ggplot2：如何为绘图区域内的数据表元素添加颜色？

直接用annotate(geom='table')无法实现单元格文字上色，因为它不支持富文本渲染。我们可以结合ggtext的markdown渲染能力和gridExtra的表格对象来达成需求，具体步骤如下：

1. 预处理数据，给目标文字添加颜色标签 #

把需要上色的文本用HTML的<span>标签包裹，指定对应颜色样式：

library(ggplot2)
library(ggtext)
library(gridExtra)

# 原始数据
data = data.frame(
  colors = c('black, red, black again', 'green, yellow, now blue'), 
  x = c(1, 2),
  y = c(5, 10)
)

# 替换目标文本为带颜色的HTML标签
data$colors = gsub("red", "<span style='color:red'>red</span>", data$colors)
data$colors = gsub("green", "<span style='color:green'>green</span>", data$colors)
data$colors = gsub("blue", "<span style='color:blue'>blue</span>", data$colors)

2. 创建支持markdown解析的表格对象 #

用tableGrob生成表格，同时设置文本元素支持markdown解析，让颜色标签生效：

# 创建支持富文本的表格
colored_table = tableGrob(
  data,
  theme = ttheme_default(
    core = list(fg_params = list(parse = TRUE, 
                                fontface = 1, 
                                gp = gpar(fontsize = 10))),
    colhead = list(fg_params = list(parse = TRUE))
  )
)

3. 将表格嵌入到ggplot绘图中 #

用annotation_custom把表格对象添加到指定位置：

# 绘制柱状图并嵌入表格
gg = ggplot(data, aes(x = x, y = y)) +
  geom_bar(stat = 'identity', fill = 'blue') +
  # 添加内嵌表格，调整x/y范围控制位置和大小
  annotation_custom(
    colored_table,
    xmin = 0.8, xmax = 1.8,
    ymin = 6, ymax = 9
  ) +
  # 保留原示例中的richtext文本
  geom_richtext(aes(x = 1.5, y = 3, label = "black, <span style='color: red;'>red</span>, black again ...."), 
                label.color = NA)

gg

关键说明 #

• tableGrob的parse=TRUE参数会让文本被当作markdown解析，从而识别<span>的颜色样式。
• 可通过调整xmin/xmax和ymin/ymax参数，控制表格在绘图区域的位置和显示大小。
• 若需要定制表格样式（比如表头颜色、边框粗细），可以修改ttheme_default的相关参数实现。

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