R语言ggplot2中因子型X轴文本添加上下标的实现方法

问题根源 #

当X轴变量是因子类型时，直接将因子向量传入parse(text=...)，R会自动把因子转换为对应的整数编码（比如示例中df2$x会被转成c(1,2)），而非保留原始的字符内容，导致parse()无法识别上下标语法，自然无法生成预期的轴标签。

两种可行解决方案 #

方案1：将因子转为字符后解析 #

通过as.character()把因子向量转换为字符向量，确保parse()能读取到原始的上下标语法文本：

df2 %>% 
  ggplot(aes(x = x, y = y)) +
  geom_col() +
  scale_x_discrete(labels = parse(text = as.character(df2$x))) +
  theme(axis.text.x = element_text(color = 'red'))

方案2：直接解析因子的水平值 #

因子的levels()属性存储了原始的字符内容，直接传递水平值给parse()更高效，尤其适合大数据集：

df2 %>% 
  ggplot(aes(x = x, y = y)) +
  geom_col() +
  scale_x_discrete(labels = parse(text = levels(df2$x))) +
  theme(axis.text.x = element_text(color = 'red'))

补充说明 #

如果后续需要调整X轴的顺序，只需修改因子的水平顺序（比如用fct_relevel()），解析后的标签会自动对应调整后的轴位置，无需额外修改标签参数。

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