r - 带有ggplot2轴标签的下标和上标“-”或“+”？ ( ionic 化学符号)

我使用下面的代码得到了这个情节



在我的情节中，我希望NO3带有负号“-”，如下所示



在x轴的标签中，我不能仅使用负号作为NO3的上标，因此我必须使用-1，如下所示

x <- seq(0,2*pi,0.1)
y <- sin(x)

df <- data.frame(x, y)
ggplot(df, aes(x=x, y=y))+
geom_point(size=4)+
labs(x=expression(Production~rate~" "~mu~moles~NO[3]^{-1}-N~Kg^{-1}),
     y=expression(Concentration~mg~L^{-1}))

关于如何将标签更改为仅不带负号的任何建议？

最佳答案

尝试在上标运算符后引用减号：

ggplot(df, aes(x=x, y=y))+
geom_point(size=4)+
labs(x=expression(Production~rate~" "~mu~moles~NO[3]^{"-"}-N~Kg^{-1}),
     y=expression(Concentration~mg~L^{-1})) +
theme(legend.title = element_text(size=12, face="bold"),
      legend.text=element_text(size=12),
      axis.text=element_text(size=12),
      axis.title = element_text(color="black", face="bold", size=18))

我认为在单元之间使用%.%运算符看起来更科学准确：

+ labs(x=expression(Production~rate~" "~mu~moles~NO[3]^{textstyle("-")}-N %.% Kg^{-1}),
     y=expression(Concentration~mg~L^{-1})) +

textstyle应避免上标文本被缩小。我也不确定为什么在两个波浪号之间有一个" "。您可以将一大串波浪号串在一起以增加“空格”：

ggplot(df, aes(x=x, y=y))+
geom_point(size=4)+
labs(x=expression(Production~rate~~~~~~~~~~~~mu~moles~NO[3]^{textstyle("-")}-N %.% Kg^{-1}),
     y=expression(Concentration~mg~L^{-1})) +
theme(legend.title = element_text(size=12, face="bold"),
      legend.text=element_text(size=12),
      axis.text=element_text(size=12),
      axis.title = element_text(color="black", face="bold", size=18))

还有一个奖励的绘图员技巧：对数字进行报价是一种避免记录在使用绘图员生成斜体数字的难度上的方法。 （使用italic(123)不会成功，但是italic("123")会成功。）

关于r - 带有ggplot2轴标签的下标和上标“-”或“+”？ ( ionic 化学符号)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/34892262/