rmarkdown中的数据表交叉标签

install.packages("kableExtra")

library(kableExtra)

# 创建一个简单的数据框
df <- data.frame(
  Name = c("John", "Jane", "Mike"),
  Age = c(25, 30, 35),
  Country = c("USA", "Canada", "UK")
)

# 使用kable函数创建数据表
table <- kable(df, format = "html", caption = "Sample Table") %>%
  kable_styling(bootstrap_options = "striped", full_width = FALSE)

# 添加交叉标签
table_with_labels <- add_header_above(table, header = c(" ", "Personal Information" = 3))

# 输出数据表
print(table_with_labels)