如何在R ggplot2坐标轴刻度标签中插入斜体字母并调用变量

架构老林

2026-9-30

解决方案

你可以通过构造plotmath表达式的方式实现需求，有两种常用的稳定实现方法：

方法1：构造可解析字符串+自动解析

利用plotmath的atop()函数实现多行排版，先批量构造符合语法的字符串，再通过parse()转为可渲染的表达式：

require(ggplot2)
mpg$class <- as.factor(mpg$class)
counts <- rep(1:7, 1)
# 构造符合plotmath语法的标签字符串
# 双引号包裹分类名保证字符串原样输出，atop实现两行排版
label_vec <- paste0('"', levels(mpg$class), '"~atop(, italic(n) == ', counts, ')')
ggplot(mpg, aes(class, hwy)) +
  geom_boxplot() +
  # 直接传入解析后的表达式作为标签
  scale_x_discrete(labels = parse(text = label_vec))

方法2：`bquote()`批量生成表达式

如果需要更复杂的标签格式，可以用sapply配合bquote()逐个生成带变量注入的表达式，可读性更强：

require(ggplot2)
mpg$class <- as.factor(mpg$class)
counts <- rep(1:7, 1)
# 批量生成表达式向量
label_list <- sapply(seq_along(levels(mpg$class)), function(i) {
  bquote(atop(.(levels(mpg$class)[i]), italic(n) == .(counts[i])))
})
ggplot(mpg, aes(class, hwy)) +
  geom_boxplot() +
  scale_x_discrete(labels = label_list)