如何从字面上打印标签或图例中未使用的 R 中的上标？

Question

我知道在图表中可以使用 expression() 来包含上标，例如

plot(rnorm(20), xlab = expression(paste("n"^"th")))

不过，我确实想打印出上标，这样我以后可以将它们存储在rtf文件中。事实上，我想用它们来表示与我的回归系数相关的统计显着程度（你知道，比如“0.24^*”）。

使用“expression(paste("n"^"th"))”，我尝试了 print()、cat()、eval() 和 get()，但其中 none 有效。

我目前正在使用 "rtf" 包输出“.doc”文件。如果有人建议使用其他 ways/packages，如果 R 本身不能在控制台中显示丰富的格式也可以，但是结果可以存储在一些文件中。

Answer 1

plot(rnorm(20), xlab = as.character("n^*"))

甚至

plot(rnorm(20), xlab = paste0("n","^","th"))

不确定为什么要使用 expression()

Answer 2

如您所见，?plotmath 表达式仅在绘图中有效。 R 中的任何内容都没有针对 rtf 输出进行优化。

但是阅读 RTF 小插图，很明显您可以在输出中写入 rtf commands，并且有一个上标命令。尝试

library(rtf)

rtf<-RTF("text.doc")
addText(rtf,"Hello\n")
addText(rtf,"0.05{\super*}\n")
addText(rtf,"0.15*\n")
addText(rtf,"End")
done(rtf)

How to literally print superscripts in R not used in labels or legends?