如何为含/和;的ggplot2轴刻度标签添加上标？

核心原因 #

expression()或bquote()会将内容当作R表达式解析，/是除法运算符、;是语句分隔符，直接写入会被识别为代码而非文本内容，从而触发语法错误。

解决方案 #

1. 用单引号包裹特殊符号文本 #

在expression()或bquote()内，把包含/、;的文本段用单引号括起来，明确标记为字符串内容：

library(ggplot2)

# 示例数据
df <- data.frame(x = c("A", "B"), y = c(1, 2))

# 使用expression + 单引号实现含特殊符号的上标
ggplot(df, aes(x, y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = c(
    expression('Sample/Group'; ~X^2),
    expression(Y['test'] ~ 'Ratio; 3/4')
  ))

2. 用paste()拼接文本与表达式 #

如果需要动态组合普通文本和上标元素，paste()可以将两者拼接后再用expression()解析：

# 动态生成带特殊符号的刻度标签
labels_list <- list(
  expression(paste('Control/Exp'; , ' ', Z^'*')),
  bquote(paste('Treat; 5/6', ' ', .(LETTERS[1])^3))
)

ggplot(df, aes(x, y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = labels_list)

3. 使用ggtext包实现富文本刻度 #

如果需要更灵活的格式支持，ggtext允许用HTML/markdown语法编写标签，无需纠结表达式语法：

library(ggtext)

ggplot(df, aes(x, y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = c(
    "Sample/Group; X<sup>2</sup>",
    "Y<sub>test</sub> Ratio; 3/4"
  )) +
  theme(axis.text.x = element_markdown())

关键注意点 #

• 单引号在expression()中仅作为文本边界标记，不会被渲染出来
• bquote()中插入变量时用.(var)语法，特殊符号文本仍需用单引号包裹
• ggtext的element_markdown()需要配合markdown/HTML语法，适合复杂格式需求

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