r-markdown - динамический многострочный заголовок со второй строкой.

Я пытаюсь создать многострочный заголовок в r-markdown, но у меня возникают проблемы: 1.) сделать его динамическим и 2.) позволить второй строке заголовка быть таким же.

Например, в приведенном ниже наборе данных вы можете увидеть две группы: лепестки и перегородки. У каждого есть длина и ширина.

library(tidyverse)

data <- iris[c(1, 51, 101), ] %>% 
  gather(key = key, value = value, -Species) %>% 
  separate(col = key, into = c("Group", "key"), sep = "\\.") %>% 
  spread(key = key, value = value, )

data

#       Species      Group   Length Width
# 1     setosa       Petal   1.4    0.2
# 2     setosa       Sepal   5.1    3.5
# 3 versicolor       Petal   4.7    1.4
# 4 versicolor       Sepal   7.0    3.2
# 5  virginica       Petal   6.0    2.5
# 6  virginica       Sepal   6.3    3.3

Я хотел бы, чтобы в результате получился многострочный заголовок с группами по частям цветка (сгруппированные по уникальным значениям, какими бы они ни были), а также по длине и ширине во второй строке. Как показано ниже:

# --------------------------------------------
#            Petal            Sepal
# --------------------------------------------
# Species    Length  Width    Length    Width
# --------------------------------------------
# setosa     1.4     0.2      5.1       3.5
# versicolor 4.7     1.4      7         3.2
# virginica  6       2.5      6.3       3.3
# --------------------------------------------

Я экспериментировал с пакетами kable и flextable, но в примерах, похоже, жестко запрограммированы заголовки, которых я стараюсь избегать.