如何在ggplot中绘制上标文本并保留前导零

数据老陈

2026-5-19

解决ggplot文本标签上标丢失前导零的问题

这个问题我太熟悉了！之前也踩过同样的坑——当你用plotmath解析上标时，带前导零的年份后缀会被当成数值自动去掉前导零，比如^05会被解析成^5。下面给你两种靠谱的解决办法：

方法一：用plotmath的字符串语法保留前导零

核心思路是把年份后缀当作纯文本传给plotmath，而不是让它被解析成数值。我们可以用bquote()动态生成表达式，并用单引号把年份后缀包起来：

library(ggplot2)
library(stringr) # 用来补前导零

# 模拟你的数据
df <- data.frame(
  x = 1:2,
  y = 1:2,
  label = c("A", "B"),
  year = c(2005, 2018)
)

# 先把年份转成带前导零的两位字符串
df$year_suffix <- str_pad(df$year %% 100, 2, pad = "0")

# 用bquote生成带正确上标的标签
ggplot(df, aes(x, y)) +
  geom_text(aes(label = bquote(.(label) ^ "'" .(year_suffix) "'")))

这里的单引号是关键——plotmath看到被单引号包裹的内容，就会把它当作纯文本渲染，不会去掉前导零。

方法二：用ggtext的markdown渲染（更直观）

如果你觉得plotmath的语法太绕，推荐用ggtext包，它支持直接渲染markdown/HTML格式的文本，完全不用担心前导零的问题：

library(ggplot2)
library(ggtext)
library(stringr)

df <- data.frame(
  x = 1:2,
  y = 1:2,
  label = c("A", "B"),
  year = c(2005, 2018)
)

# 生成带HTML上标的标签字符串
df$label_with_year <- paste0(
  df$label, 
  "<sup>", 
  str_pad(df$year %% 100, 2, pad = "0"), 
  "</sup>"
)

# 用geom_text_markdown渲染
ggplot(df, aes(x, y)) +
  geom_text_markdown(aes(label = label_with_year))

这种方法的代码可读性更高，而且除了上标，还能轻松实现其他格式（比如下标、颜色、粗体等）。