如何在R语言中导出保留颜色的Tukey结果表？

情况1：表格是formattable创建的带样式对象 #

如果你的stat.test是formattable生成的带颜色表格，grid.table无法直接识别样式，需先转为grob对象再导出：

library(formattable)
library(grid)

# 转换为可识别的grob对象
ft_grob <- as.grob(stat.test)

# 导出为PNG
png("test.png", height = 50*nrow(stat.test), width = 200*ncol(stat.test))
grid.draw(ft_grob)
dev.off()

情况2：表格是gt包创建的带样式对象 #

gt包自带导出函数，可直接完美保留所有样式：

library(gt)

gtsave(stat.test, filename = "test.png")

情况3：用kableExtra给普通数据框添加了颜色样式 #

通过kable配合as_image导出，能保留单元格颜色：

library(kableExtra)

stat.test %>%
  kable("html") %>%
  kable_styling() %>%
  as_image(file = "test.png")

情况4：坚持用grid.table手动指定样式 #

如果一定要用grid.table，需手动传入颜色矩阵定义单元格背景：

library(gridExtra)

# 示例：自定义单元格颜色矩阵（需根据你的实际颜色调整）
col_matrix <- matrix(
  c("white", "lightblue", "lightgreen"),
  nrow = nrow(stat.test),
  ncol = ncol(stat.test),
  byrow = TRUE
)

png("test.png", height = 50*nrow(stat.test), width = 200*ncol(stat.test))
grid.table(stat.test, theme = ttheme_default(core=list(bg_params=list(fill=col_matrix))))
dev.off()

核心提示：不同表格生成包对应不同的导出逻辑，先确认stat.test的对象类型，再匹配对应的导出方法才能保留颜色样式。

内容的提问来源于stack exchange，提问作者Leo Cooper