ggplot2 x轴刻度文本上标设置不生效的解决方法

• 直接向scale_x_discrete()的labels参数传入带^语法的普通字符串时，ggplot2默认按纯文本渲染，不会自动触发plotmath表达式解析，因此会直接显示源码文本。
• 你之前构造的test.labs标签器是适配分面条带文本的工具，没有传入x轴刻度的相关参数，不会对x轴刻度生效。
• ggtitle()里能正常渲染上标，是因为你传入的是用~拼接的R表达式对象，而非普通字符串，和刻度标签的默认解析逻辑不同。

你遇到的渲染失败效果如下：

核心是让x轴标签传入的内容为可被plotmath解析的表达式，两种常用无依赖写法如下：

方法1：直接传入表达式向量 #

直接在标签映射中编写plotmath表达式即可，注意+作为特殊运算符需要用反引号包裹，内容间的空格用~表示：

bFICOLL + scale_x_discrete(
  labels = c(
    CD4Gated = expression(CD4^`+`~cells),
    CD8Gated = expression(CD8^`+`~cells),
    Bcell = "B cells"
  )
)

方法2：字符串批量转表达式 #

如果需要先集中定义标签，可以用base R的parse()函数把符合plotmath语法的字符串批量转为表达式：

# 预定义字符串形式的标签
x_axis_labels <- c(
  CD4Gated = "CD4^'+' ~ cells",
  CD8Gated = "CD8^'+' ~ cells",
  Bcell = "B cells"
)

# 绘图时传入解析后的表达式
bFICOLL + scale_x_discrete(
  labels = parse(text = x_axis_labels)
)

• plotmath语法中，文本元素之间的间隔不能直接输入空格字符，要用~表示单空格、~~表示加宽空格
• 运算符类的上标/下标内容（如+、-、*）需要用反引号或单引号包裹，避免被R识别为运算符号触发报错
• 你之前写的as_labeller()配合label_parsed的写法仅适用于分面标签场景，需要传给facet_wrap()/facet_grid()的labeller参数才会生效，无法作用于x轴刻度。

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