在 R 轴标签中使用上标答案

【问题标题】：Use superscripts in R axis labels在 R 轴标签中使用上标
【发布时间】：2012-05-24 14:33:18
【问题描述】：

使用 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() 但在这种情况下如何做到这一点？

【问题讨论】：

plot(0,xlab=expression(paste('(SOC[',kgm^-2,'])'^0.25,sep=''))) 回答你的问题了吗？

标签： r

【解决方案1】：

@The Thunder Chimp 您可以拆分文本，使某些部分受超级（或子）脚本影响，而其他部分不受 *.以您的示例为例，将“时刻”一词从“4th”中拆分出来 -

plot(rnorm(30), xlab = expression('4'^th*'moment'))

【讨论】：

【解决方案2】：

在这种特殊情况下，另一个选项是输入度数符号：˚

R 似乎处理得很好。在 Mac 上键入 Option-k 以获取它。不确定其他平台。

【讨论】：

这不适用于其他符号，例如 Unicode 上标 7 (fileformat.info/info/unicode/char/2077/index.htm)

【解决方案3】：

这是一个简单的例子

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

【讨论】：

你会如何在最后写一些不上标的东西，比如在“第 4 时刻”而不用上标“时刻”？
@TheThunderChimp 很抱歉回复得太晚了。也许你已经想出了如何做到这一点，但你可以做到这一点：plot(rnorm(30), xlab = expression(paste("4"^"th", " moment")))
我有同样的谜题....在这种情况下，我应该把“”放在哪里才能让上标中的 -1（仅）？即..... + ylab = 表达式 (paste("Ba:Ca 浓度 (μmol:mol^-1)")

【解决方案4】：

它对轴的工作方式相同：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()

【讨论】：

绘图中的文本标记是 R 实践中有点晦涩的领域。它似乎总是把我弄得一团糟。感谢您的澄清。如果有人为此开发了一个深入的教程，那就太好了。
用什么字符表示下标？
@npo：方括号（见?plotmath）
这会中断文本；示例： parse(text="Frequency ((364 days)^-1)") 轴标题需要上标。自己没有找到解决方案。
plot(0,xlab=expression('Frequency (364 days)' ^ -1))