r-在字母前面加上标的代码顺序

Question

我有一个图，我希望x轴标签读取206Pb/207Pb，数字为上标。除非数字在单词"Pb"后面，否则我无法让它工作。有人知道如何让它们在前面，最好在中间加上反斜杠吗？

谢谢。

p1<-ggplot(waplead, aes(x =Pb206207 , y = Depth))+
labs(y = "Depth (cm)")+
geom_lineh(size=1.1)+
geom_errorbarh((aes(xmin=Pb206207-Pb206207Error, xmax=Pb206207+Pb206207Error)))+
geom_point(shape = 21, size = 3,fill="#FFFFFF")+
theme_classic()+
scale_y_reverse(limits=c(50,0),breaks=seq(0,50,5))+
xlab(bquote(' '~ '' ~~ Pb^206~Pb^207*''))

p1

Answer 1

您可以使用expression

p1<-ggplot(waplead, aes(x =Pb206207 , y = Depth))+
geom_lineh(size=1.1)+
geom_errorbarh((aes(xmin=Pb206207-Pb206207Error, xmax=Pb206207+Pb206207Error)))+
geom_point(shape = 21, size = 3,fill="#FFFFFF")+
theme_classic()+
scale_y_reverse(limits=c(50,0),breaks=seq(0,50,5))+
labs(x=expression(paste(""^{206}~Pb~"/"^{207}~Pb)),
y="Depth (cm)")
p1