R语言用paste拼接expression表达式作绘图轴标签显示异常如何解决？

错误原因 #

paste()函数会将expression类型的plotmath表达式强制转换为普通字符串，导致绘图时无法识别下标、公式格式，直接输出表达式的原始文本内容，才会出现格式错误。

基础绘图（对应你提供的最小示例）解决方案 #

有两种常用方案可选：

• 方案1：调整绘图边距参数，无需修改标签内容
  mgp参数控制轴元素的间距，三个值分别对应「轴标题距离、刻度标签距离、轴线距离」，默认值为c(3,1,0)，调大第一个值即可直接拉开y轴标签和轴线的距离：

ylabel <- expression("NO"[3]*"-N-Concentration [mg/l]")
par(mar=c(6,8,1,1), mgp = c(5, 1, 0))
y=c(1,1,2,2,3,4,5)
plot(y, ylab = ylabel)

• 方案2：用plotmath自带的atop()函数实现换行，不需要加\n

# atop()的第一个参数是标签内容，第二个参数是空占位符，相当于在标签下方加空行
ylabel <- expression(atop("NO"[3]*"-N-Concentration [mg/l]", " "))
par(mar=c(6,8,1,1))
y=c(1,1,2,2,3,4,5)
plot(y, ylab = ylabel)

ggplot2/ggboxplot 解决方案 #

更推荐直接调整主题参数控制间距，不需要修改标签本身：

library(ggpubr)
# 示例数据
df <- data.frame(y = c(1,1,2,2,3,4,5), group = rep("A",7))
ylabel <- expression("NO"[3]*"-N-Concentration [mg/l]")
ggboxplot(df, x = "group", y = "y", ylab = ylabel) +
  # 调整y轴标题的右侧边距，数值越大距离轴线越远
  theme(axis.title.y = element_text(margin = margin(r = 15, unit = "pt")))

如果需要手动给标签加空行，同样用atop()函数处理expression即可，不要用paste拼接\n。

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