ggplot2中使用annotate()富文本时geom_text偏移问题排查与解决

问题根源是annotate("richtext")默认带有内边距、外边距和背景填充，这些额外元素会干扰patchwork的布局计算，导致上下图形的轴对齐错位。下面给你两种可行的解决办法：

方法1：清除richtext的额外样式，让它和普通text一致 #

直接修改richtext的参数，去掉多余的占位空间，让它的布局表现和annotate("text")完全相同：

library(ggplot2)
library(patchwork)
library(ggtext)

# 构造示例数据
df <- data.frame(
  group = c("A", "B", "C"),
  value = c(3, 5, 2)
)

# 上方柱状图
p1 <- ggplot(df, aes(x = group, y = value)) +
  geom_col() +
  theme_minimal()

# 下方评级文本层，修复richtext样式
p2 <- ggplot(df, aes(x = group, y = 0)) +
  geom_text(aes(label = c("FAST", "SLOW", "FAST")), size = 5) +
  annotate("richtext", 
           x = 2, y = 1,
           label = "<span style='color:red'>FAST</span> = 快速响应，<span style='color:blue'>SLOW</span> = 延迟严重",
           fill = NA,      # 去掉背景
           label.color = NA,  # 去掉边框
           padding = unit(c(0,0,0,0), "pt"),  # 清除内边距
           margin = unit(c(0,0,0,0), "pt"),   # 清除外边距
           size = 4) +
  theme_void()  # 隐藏轴元素

# 拼接并对齐图形
p1 / p2 + plot_layout(heights = c(3, 1), align = "h")

方法2：用ggtext的element_markdown在主题添加说明（更推荐） #

如果只是要添加全局评级说明，没必要用annotate，直接在下方图形的主题里用element_markdown添加底部文本，完全避免布局冲突：

p2 <- ggplot(df, aes(x = group, y = 0)) +
  geom_text(aes(label = c("FAST", "SLOW", "FAST")), size = 5) +
  theme_void() +
  theme(
    plot.margin = margin(b = 20, unit = "pt"),  # 给底部文本预留空间
    plot.caption = element_markdown(
      hjust = 0.5,  # 居中对齐
      size = 4,
      lineheight = 1.2
    )
  ) +
  labs(caption = "<span style='color:red'>FAST</span> = 快速响应，<span style='color:blue'>SLOW</span> = 延迟严重")

p1 / p2 + plot_layout(heights = c(3, 1), align = "h")

两种方法都能实现多色文字需求，同时保证下方geom_text完全对齐到上方柱状图的轴下方。第一种适合把说明放在文本层内部的场景，第二种更简洁，适合全局说明的场景。

内容的提问来源于stack exchange，提问作者J.Sabree