基于tableGrob移除NA并仅为含数值单元格着色的ggplot表格需求

我来帮你搞定这个表格的NA格式化需求！咱们一步步调整代码，实现你要的效果——NA单元格空白（无文本+白色填充），数值单元格用指定颜色填充：

步骤1：预处理数据，移除NA文本 #

首先把你的top.table转换成数据框，同时把所有NA替换成空字符串，这样表格里就不会显示"NA"字样了：

# 转换为数据框并替换NA为空字符串
top.table_df <- as.data.frame(top.table)
top.table_df[is.na(top.table_df)] <- ""

步骤2：构建匹配的填充颜色矩阵 #

我们需要创建一个和表格维度完全一致的颜色矩阵，判断每个单元格是否为NA：如果是数值（非NA），就用你指定的colors$newcolor；如果是NA，就用白色填充（保持空白）：

# 生成对应每个单元格的填充颜色矩阵
fill_matrix <- matrix(
  ifelse(is.na(top.table), "white", rep(colors$newcolor, ncol(top.table))),
  nrow = nrow(top.table),
  ncol = ncol(top.table)
)

这里利用rep把每行的颜色重复对应列数，确保每一行的数值单元格都用该行指定的颜色。

步骤3：自定义表格主题 #

接下来调整ttheme_minimal，把填充颜色矩阵传入，同时设置文本和表头的样式：

# 定义符合需求的表格主题
tt1 <- ttheme_minimal(
  core = list(
    bg_params = list(fill = fill_matrix, col = NA),  # 应用填充色，去掉单元格边框
    fg_params = list(col = "black")  # 数值文本设为黑色，可按需修改
  ),
  colhead = list(
    fg_params = list(col = "black", fontface = "bold"),  # 表头加粗
    bg_params = list(fill = "lightgray")  # 表头背景色，可选去掉
  )
)

步骤4：生成并绘制表格 #

最后用处理好的数据框生成tableGrob并绘制：

# 生成表格并展示
g <- tableGrob(top.table_df, theme = tt1)
grid.draw(g)

这样运行后，你就能得到：所有NA的单元格是空白（无文本+白色填充），有数值的单元格用你指定的对应颜色填充的表格啦！如果只是想让数值单元格有颜色、NA保持默认样式，上面的代码也完全适用，因为我们已经把NA的文本清空并设置了白色填充。

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