如何在R的ggplot中绘制带上标的因子水平？

方法1：解析plotmath表达式实现上标 #

ggplot支持plotmath语法，直接解析包含^的字符串即可自动渲染为上标：

library(tidyverse)

df %>%
  ggplot(aes(x = grp, y = mean)) +
  geom_col() +
  scale_x_discrete(labels = parse(text = levels(df$grp)))

parse(text = levels(df$grp))会把原因子水平里的A^1、B^3解析成带标的格式，自动去掉^符号。

方法2：用ggtext包支持markdown格式 #

如果偏好markdown写法，可借助ggtext包渲染带<sup>标签的文本：

1. 安装并加载包：

install.packages("ggtext")
library(ggtext)

2. 修改因子标签并设置渲染方式：

df_updated <- df %>%
  mutate(grp = case_when(
    grp == "A^1" ~ "A<sup>1</sup>",
    grp == "B^3" ~ "B<sup>3</sup>",
    TRUE ~ as.character(grp)
  ) %>% factor())

df_updated %>%
  ggplot(aes(x = grp, y = mean)) +
  geom_col() +
  theme(axis.text.x = element_markdown())

这种方式更灵活，适合处理复杂文本样式（如下标、斜体等）。

方法3：提前修改因子标签 #

若想永久修改数据框的因子标签，可直接生成带plotmath表达式的因子：

df <- df %>%
  mutate(grp = factor(grp, labels = parse(text = c("A^1", "B^3", "C"))))

df %>%
  ggplot(aes(x = grp, y = mean)) +
  geom_col()

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