是否为R中的tableGrob自定义一列的字体颜色？

library(grid)
library(gridExtra)

# 创建一个示例数据框
data <- data.frame(
  Name = c("John", "Alice", "Bob"),
  Age = c(25, 30, 35),
  Score = c(80, 90, 85)
)

# 创建tableGrob对象
table <- tableGrob(data)

# 自定义字体颜色的函数
customColor <- function(x, color) {
  textGrob(label = x, gp = gpar(col = color))
}

# 获取tableGrob中的第三列
column <- table$grobs[[3]]

# 为第三列的文本设置自定义颜色
column$children <- lapply(column$children, function(x) {
  if (is.null(x)) return(NULL)
  if (is.character(x)) return(customColor(x, "red"))
  x
})

# 更新tableGrob对象
table$grobs[[3]] <- column

# 显示tableGrob
grid.newpage()
grid.draw(table)