如何下标 x 轴刻度标签

Question

我用下面的脚本生成了这张图。但是PM10下标“10”，SO2下标“2”，NO2下标“2”怎么办？

我尝试了 levels(df$variable) <- c("PM[10]","SO[2]", "NO", "NO[2]")，但没有用。

有人可以帮忙吗？谢谢！

variable <- c("PM10","SO2","NO","NO2")
coef <- c(10,20,30,40)
coef_lb <- c(-5,10,23,27)
coef_ub <- c(20,39,39,50)

df <- as.data.frame(cbind(variable, as.numeric(coef),as.numeric(coef_lb),as.numeric(coef_ub)))


df$variable <- factor(df$variable,levels=c("PM10","SO2","NO","NO2"))
levels(df$variable) <- c("PM[10]","SO[2]", "NO", "NO[2]")

library(ggplot2)
#ggplot 95%CI
BWplot <- ggplot(data=df,aes(x=variable,y=coef))
BWplot <- BWplot + geom_pointrange(aes(ymin=coef_lb,ymax=coef_ub))
BWplot <- BWplot + geom_point() 
BWplot <- BWplot + scale_y_continuous(limits=c(-110, 110),breaks=seq(-100, 100, by = 20))
BWplot <- BWplot + xlab("Air pollutant") 
BWplot <- BWplot + ylab("Mean change") 
BWplot <- BWplot + geom_hline(yintercept=0,alpha=0.5)
BWplot

Answer 1

您想在 ggplot 定义中命名轴。这在您现在为级别定义新名称（作为字符串）的位置是不可能的。现在发生的是 PM[10] 将被识别并读取为字符串。

将此添加到您的 ggplot 脚本中。这将您拥有的 x 轴刻度定义为离散刻度：

+ scale_x_discrete("Air pollutant", labels = c(expression(PM[10]),expression(SO[2]), expression(NO), expression(NO[2])))

玩得开心。

感谢 Alexwhan 它也可以写成：

+ scale_x_discrete("Air pollutant", labels = parse(text = levels(df$variable)))

哪个更简单。

如何下标 x 轴刻度标签

how to subscript the x axis tick label

r

ggplot2

axis-labels