如何在使用facet_wrap()时将面板标题中的数字设置为下标？

需求：将facet_wrap()生成的面板标题（如'B/R1.1'、'B.R2.1'）中的数字部分转为下标样式，仅数字以下标显示。

核心思路 #

利用ggplot2支持的表达式语法（通过parse()函数解析），将标题中的数字部分用[]包裹，即可渲染为下标。结合正则表达式批量替换数字，无需手动修改每个标题。

解决方案 #

方法1：预处理数据列（更清晰，便于复用）

先对原始数据的Treatment列进行格式化，再用于绘图：

df = data.frame(
  Genotype = c("A", "B", "A", "B"),
  Treatment = c("B/R1.1", "B/R1.1", "B/R2.1", "B/R2.1"),
  yield = c(100, 150, 88, 120)
)

# 批量替换数字为下标格式：将连续数字+小数点组合用[]包裹
df$Treatment_label = gsub("([0-9.]+)", "[\\1]", df$Treatment)

ggplot(df, aes(x=Genotype, y=yield)) +
  geom_bar(stat="identity", position="dodge", width=0.9, size=1) +
  facet_wrap(~ parse(text=Treatment_label), scales="free") + # 关键：解析表达式
  theme_classic(base_size=22, base_family="serif")+
  theme(axis.line=element_line(linewidth=0.5, colour="black"),
        strip.background=element_rect(color="white",
                                      linewidth=0.5,linetype="solid"))

方法2：直接在facet_wrap中处理（无需修改原数据）

将格式化逻辑直接嵌入facet_wrap()参数中，一步到位：

df = data.frame(
  Genotype = c("A", "B", "A", "B"),
  Treatment = c("B/R1.1", "B/R1.1", "B/R2.1", "B/R2.1"),
  yield = c(100, 150, 88, 120)
)

ggplot(df, aes(x=Genotype, y=yield)) +
  geom_bar(stat="identity", position="dodge", width=0.9, size=1) +
  # 直接替换并解析标题
  facet_wrap(~ parse(text=gsub("([0-9.]+)", "[\\1]", Treatment)), scales="free") +
  theme_classic(base_size=22, base_family="serif")+
  theme(axis.line=element_line(linewidth=0.5, colour="black"),
        strip.background=element_rect(color="white",
                                      linewidth=0.5,linetype="solid"))

关键说明 #

• gsub("([0-9.]+)", "[\\1]", Treatment)：正则表达式匹配所有连续的数字和小数点组合，替换为[数字]（ggplot表达式的下标语法）。
• parse(text=...)：告诉ggplot2将文本解析为绘图表达式，从而渲染出下标效果。

内容的提问来源于stack exchange，提问作者J.K Kim