如何在ggplot2中自定义annotate()函数的文本注释样式？

annotate("text")仅支持设置整体文本样式，无法单独修改一段文字中部分内容的颜色、字号。要实现局部样式自定义，有两种实用方案：

方案1：使用ggtext包（推荐，支持Markdown/HTML语法） #

ggtext包扩展了ggplot2的文本渲染能力，允许通过Markdown或HTML标签为文本局部设置样式。

1. 安装并加载包：

install.packages("ggtext")
library(ggtext)

2. 替换annotate("text")为annotate("richtext")，在label中用HTML标签定义局部样式：

p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()
p + annotate("richtext", 
             x = 4, y = 25, 
             label = "Some <span style='color:red; font-size:16pt'>text</span>",
             fill = NA, # 去掉背景框
             label.color = NA) # 去掉边框

方案2：使用grid包（无需额外依赖） #

通过grid包创建多个独立的文本对象，组合后添加到图表中：

1. 加载grid包：

library(grid)

2. 创建不同样式的文本对象，组合后用annotation_custom添加：

p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()

# 创建两个不同样式的文本grobs
text_part1 <- textGrob("Some ", 
                       gp = gpar(fontsize = 12)) # 基础样式
text_part2 <- textGrob("text", 
                       x = unit(0.3, "npc"), # 调整位置对齐
                       gp = gpar(fontsize = 16, col = "red")) # 自定义样式

# 组合文本对象
combined_text <- grobTree(text_part1, text_part2)

# 添加到图表
p + annotation_custom(combined_text, 
                      xmin = 4, xmax = 4, 
                      ymin = 25, ymax = 25)

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