R语言：如何为grid生成的表格第一列设置蓝色填充背景？

AI 小北

2026-7-1

解决tableGrob第一列蓝色填充的问题

修正数据框定义

原代码创建的dataframe结构错误，会生成一列list类型数据，无法正确生成表格。改用矩阵转换生成标准结构：

Rows <- c("GDP state", "yearly change %", "GDP country", "yearly change %")
columns <- c("2012", "2013", "2014", "2015", "2016")

dataframe <- data.frame(
  matrix(
    unlist(list(c(5818, 6269, 6351, 6111, 6548), 
                c("9.8%", "6.6%", "1.3%", "-3.8%", "7.1%"), 
                c(182166, 189435, 190895, 179482, 200425), 
                c("1.4%", "4%", "0.8%", "-6%", "11.7%"))),
    nrow = 4, byrow = TRUE,
    dimnames = list(Rows, columns)
  ),
  stringsAsFactors = FALSE
)

修改表格背景色

原bg_params是全局设置，无法单独指定列填充色。需要直接定位第一列的背景grob，修改其填充属性：

# 生成tableGrob
table_grid<- tableGrob(dataframe, rows = rownames(dataframe), theme = ttheme_default(
  core = list(fg_params = list(hjust = 1, x = 0.9)),
  rowhead = list(fg_params = list(hjust = 0, x = 0)),
  base_size = 13
))

# 定位第一列背景grob并设置蓝色填充
bg_indices <- which(grepl("bg", table_grid$layout$name))
first_col_bg <- bg_indices[1:4] # 4行数据对应第一列的4个背景单元格
table_grid$grobs[first_col_bg] <- lapply(table_grid$grobs[first_col_bg], function(g) {
  g$gp$fill <- "lightblue" # 可替换为具体蓝色代码，如"#4287f5"
  g
})

# 绘图
table_grid$vp <- viewport(gp = gpar(fontsize = 8))  
pushViewport(viewport(x = 0.23, y = 0.7, height = 0.3))
grid.draw(table_grid)