将标题行添加到R中的组列

我正在尝试使用r对标题进行分组。这是我正在使用的输入数据帧

  |usage     |flavor |variable     |level |      mean|        se|
  |:---------|:------|:------------|:-----|---------:|---------:|
  |Every Day |Yes    |a            |NA    | 0.1844236| 0.0645649|
  |Every Day |No     |a            |NA    | 0.2074303| 0.0830913| 
  |Some Days |Yes    |a            |NA    | 0.1748468| 0.0279065| 
  |Some Days |No     |a            |NA    | 0.2720068| 0.0512438|

我使用以下代码进行分组

kable(data) %>%
  kable_styling("striped") %>%
  add_header_above(c(" " = 1, "Group 1" = 2, "Group 2" = 2))

我得到的结果是：

        |V1           |V2           |V3           |V4           |
  |:--------|:------------|:------------|:------------|:------------|
  |usage    |Every Day    |Every Day    |Some Days    |Some Days    |
  |flavor   |Yes          |No           |Yes          |No           |
  |variable |a            |a            a             |a            |
  |level    |NA           |NA           |NA           |NA           |
  |mean     |0.1844236    |0.2074303    |0.1748468    |0.2720068    |

我试图压缩输入数据帧的内容如下：

            |EVERYDAY                   |SOMEDAYS                   
            ---------------------------------------------------------
            |flavor yes   |flavor no    |flavor yes   |flavor no    |
  |:--------|:------------|:------------|:------------|:------------|
  |variable |a            |a            a             |a            |
  |level    |NA           |NA           |NA           |NA           |
  |mean     |0.1844236    |0.2074303    |0.1748468    |0.2720068    |

如何按上述方式进行分组

我确实尝试过kableextra，它添加了另一行名称，如v1 v2 v4

kable(data, format = "html", caption = "Demo Table") %>%
  kable_styling(bootstrap_options = "striped",
                full_width = F) %>%
  add_header_above(c(" ", "Group 1" = 2, "Group 2[note]" = 2)) %>%
  add_footnote(c("table footnote"))

---

查看

kableExtra

软件包。它建立在kable的基础上，有一个像这样添加标题的功能，而且很好documented@camille我也试过了。我在上面添加了我的代码。