如何为ggplot2柱状图坐标轴文本中的O₂添加下标？

嘿，这个问题我之前也踩过坑，给你几个实用的解法，都能轻松把x轴标签里的O₂的2变成下标～

方法1：提前修改数据框的因子水平（最直接） #

你可以直接把数据框里env列的因子标签替换成expression对象，ggplot会自动解析下标格式：

# 重新定义因子水平，把O2替换为带下标O[2]的表达式
d$env <- factor(d$env, 
                levels = c("mean SS", "50% O2 @ 0 °C", "50% O2 @ 10 °C", "50% O2 @ 25 °C", 
                           "anoxic @ 0 °C", "anoxic @ 10 °C", "anoxic @ 25 °C"),
                labels = list("mean SS", 
                              expression(paste("50% ", O[2], " @ 0 °C")),
                              expression(paste("50% ", O[2], " @ 10 °C")),
                              expression(paste("50% ", O[2], " @ 25 °C")),
                              "anoxic @ 0 °C",
                              "anoxic @ 10 °C",
                              "anoxic @ 25 °C"))

# 重新绘图，x轴标签自动显示下标
ggplot(d, aes(env, pco2_inc)) + geom_col()

方法2：用scale_x_discrete动态修改标签（不改动原始数据） #

如果不想修改原始数据，可以在绘图时通过scale_x_discrete()的labels参数批量转换标签，写个小函数就能搞定：

library(ggplot2)

# 定义替换函数：把标签里的"O2"转换成带下标格式的表达式
format_o2_labels <- function(x) {
  sapply(x, function(label) {
    if (grepl("O2", label)) {
      # 用parse解析字符串为表达式
      parse(text = gsub("O2", "O[2]", label))
    } else {
      # 不含O2的标签直接保留
      label
    }
  })
}

# 绘图时应用这个函数
ggplot(d, aes(env, pco2_inc)) + 
  geom_col() +
  scale_x_discrete(labels = format_o2_labels)

这个方法的优势是完全不碰原始数据，只在绘图层做临时调整，适合快速测试不同格式。

方法3：用ggtext包支持Markdown格式（最简洁直观） #

如果你觉得写表达式太麻烦，可以用ggtext包，它支持用Markdown的<sub>标签来设置下标，代码可读性拉满：

library(ggplot2)
library(ggtext)

# 批量替换所有标签里的"O2"为Markdown下标格式
new_x_labels <- gsub("O2", "O<sub>2</sub>", levels(d$env))

# 绘图时设置axis.text.x为element_markdown()来解析格式，加角度避免标签重叠
ggplot(d, aes(env, pco2_inc)) + 
  geom_col() +
  scale_x_discrete(labels = new_x_labels) +
  theme(axis.text.x = element_markdown(angle = 45, hjust = 1))

这种方法最适合大量标签需要修改的场景，而且语法和日常写Markdown一样，上手毫无压力。

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