R中的表副标题

# 为每一列添加副标题
colnames(dataframe) <- c("副标题1", "副标题2", "副标题3")

# 为每一行添加副标题
rownames(dataframe) <- c("副标题1", "副标题2", "副标题3")

library(kableExtra)

# 创建表格
table <- data.frame(
  列1 = c(1, 2, 3),
  列2 = c(4, 5, 6),
  列3 = c(7, 8, 9)
)

# 添加副标题行
table <- kable(table) %>%
  add_header_above(c("副标题1" = 1, "副标题2" = 1, "副标题3" = 1))

# 打印表格
print(table)

library(gridExtra)

# 创建表格
table <- data.frame(
  列1 = c(1, 2, 3),
  列2 = c(4, 5, 6),
  列3 = c(7, 8, 9)
)

# 创建副标题
subtitle1 <- textGrob("副标题1")
subtitle2 <- textGrob("副标题2")
subtitle3 <- textGrob("副标题3")

# 创建表格对象
table_obj <- tableGrob(table)

# 添加副标题
table_obj <- gtable_add_rows(table_obj, heights = unit(1, "cm"), pos = 0)
table_obj <- gtable_add_grob(table_obj, list(subtitle1, subtitle2, subtitle3), t = 1, l = 2:4)

# 绘制表格
grid.newpage()
grid.draw(table_obj)