自定义插入ggplot的表格外观：修改网格线及表头背景色

要实现修改表头背景色和网格线颜色，需要利用ggpmisc包中geom_table的table.theme参数，结合gridExtra包的主题函数来定制表格样式——仅用fill和color参数只能控制整体背景和文字颜色，无法精细化调整表头与网格线。

完整示例代码 #

# 加载所需包
library(ggplot2)
library(tibble)
library(ggpmisc)
library(gridExtra)

# 创建示例数据框
df <- data.frame(
  x = 1:10,
  y = rnorm(10)
)

# 创建基础图表
p <- ggplot(df, aes(x, y)) +
  geom_point() +
  labs(title = "Scatter Plot Example", x = "X-axis", y = "Y-axis")+
  theme_bw()

# 创建表格注释数据
legend_table <- tibble(x = 5, y = 0,
                       tb = list(data.frame(  Category = c("A", "B", "C"),
                                              Value = c(10, 20, 30))))

# 自定义表格主题
custom_table_theme <- ttheme_minimal(
  # 控制表格主体单元格样式
  core = list(
    fg_params = list(col = "black"), # 主体文字颜色
    bg_params = list(fill = "#FFCCCC", col = "blue") # 主体背景色 + 网格线颜色
  ),
  # 控制表头样式
  colhead = list(
    fg_params = list(col = "white"), # 表头文字颜色
    bg_params = list(fill = "darkred", col = "blue") # 表头背景色 + 表头网格线颜色
  )
)

# 添加自定义样式的表格注释
p + geom_table(data = legend_table,  
               aes(x = x, y = y, label = tb),
               vjust = 1,
               table.theme = custom_table_theme)

参数说明 #

• core：设置表格主体区域样式，bg_params中的fill定义单元格背景色，col指定网格线颜色；fg_params控制主体文字颜色。
• colhead：设置表头区域样式，bg_params中的fill定义表头背景色，col同步表头边框/网格线颜色；fg_params控制表头文字颜色。
• 若需调整网格线粗细，可在bg_params中添加lwd = 1.5这类参数（数值越大线条越粗）。

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