在R轴标签中使用上标

Question

在R中使用基本图形时,如何在地图上绘制纬度和经度轴时可能需要将上标添加到轴标签.

考虑这个例子:

plot(-100:-50, 50:100, type="n", xlab="", ylab="", axes=FALSE)
axis(1, seq(-100, -50, 10), labels=paste(abs(seq(-100, -50, 10)), "o", "W", sep=""))
axis(2, seq(50, 100, 10), labels=paste(seq(50,100,10), "o", "N", sep=""))
box()

在地图周围生成一个漂亮的框架.使度数符号上标更好.

这通常可以在其他绘图功能中完成,例如mtext()和text()使用expression(paste(...))或substitute()在这种情况下如何操作？

Answer 1

轴的工作方式相同:parse(text='70^o*N')将上升值o作为上标(*N确保N不会升高).

labelsX=parse(text=paste(abs(seq(-100, -50, 10)), "^o ", "*W", sep=""))
labelsY=parse(text=paste(seq(50,100,10), "^o ", "*N", sep=""))
plot(-100:-50, 50:100, type="n", xlab="", ylab="", axes=FALSE)
axis(1, seq(-100, -50, 10), labels=labelsX)
axis(2, seq(50, 100, 10), labels=labelsY)
box()

Answer 2

这是一个简单的例子

plot(rnorm(30), xlab = expression(paste("4"^"th")))