如何在ggplot2的geom_text()标签中同时实现斜体字母与换行？

问题原因 #

之前的代码错误主要有三点：

• 使用paste拼接expression对象时，会将其转为字符串，导致解析语法错误；
• 开启parse=T后，不能用\n实现换行，需用plotmath的atop()函数；
• 解析模式下，显示等于号需用==，而非普通的=（=在plotmath中是赋值逻辑）。

可行解决方案 #

通过构造符合plotmath语法的字符串，结合parse=T实现需求：

方案1：提前构造标签列 #

df = data.frame(x = letters[1:10],y = letters[11:20], value = c(1:10),p = c((1:10)/10))

# 用sprintf生成包含换行和斜体的plotmath字符串
df$label <- sprintf("atop(%.1f, italic(p) == %.1f)", df$value, df$p)

ggplot(df, aes(x = x, y = y)) +
  geom_tile(fill = "steelblue") + # 添加填充色提升可读性
  geom_text(aes(label = label), parse = TRUE, color = "white")

方案2：直接在geom_text中生成标签 #

df = data.frame(x = letters[1:10],y = letters[11:20], value = c(1:10),p = c((1:10)/10))

ggplot(df, aes(x = x, y = y)) +
  geom_tile(fill = "steelblue") +
  geom_text(
    aes(label = sprintf("atop(%.1f, italic(p) == %.1f)", value, p)),
    parse = TRUE,
    color = "white"
  )

代码说明 #

• atop(a, b)：plotmath语法，实现将a和b上下排列（即换行效果）；
• italic(p)：将p转为斜体显示；
• sprintf：精准格式化数值，避免科学计数法或多余小数位；
• parse=TRUE：告诉ggplot解析plotmath语法，渲染出斜体和换行效果。

内容的提问来源于stack exchange，提问作者L.D.