在 R 中使用格式 table 添加 Headers 到 table

Question

我想将标题为“类别 1”、“类别 2”、“类别 3”和“类别 4”的 headers 添加到 table，用黑线分隔。我希望它看起来像所附的图片。请查看 table 的代码，列之间没有 Categories/black 行：

library(formattable)
data(mtcars)

df <- mtcars

formattable(df)

想要的情节

Answer 1

这是一个 kable 可以使用 add_header_above 的方法，方法是将 key/value 对的向量与 key 相结合，建议列数的名称和值展开

library(kableExtra)
library(dplyr)
library(kableExtra)
mtcars %>%
   kable() %>%
  kable_styling(bootstrap_options = "bordered",
                full_width = FALSE)  %>%
 add_header_above(c("", "Category1" = 3, "Category2" = 3,
                           "Category3" = 3, "Category4" = 2)) %>%
  collapse_rows(columns = 1,
                valign = "middle")

-输出

部分样式也可以更改

mtcars %>%
   kable() %>%
  kable_styling(bootstrap_options = "responsive",
                full_width = FALSE)  %>%
 add_header_above(c("", "Category1" = 3, "Category2" = 3,
                           "Category3" = 3, "Category4" = 2)) %>%
  collapse_rows(columns = 1,
                valign = "middle")

在 R 中使用格式 table 添加 Headers 到 table

Adding Headers to a table using formattable in R

r

formattable

想要的情节