在R中，如何在绘图标签中获得粗体字体的十次方

Question

我想用粗体显示"10^4点"作为我的x轴标签。

我知道如何制作一个简单的粗体标签：

plot(1:10, xlab="")
mtext(text="10 points", side=1, font=2, line=3)

多亏了这个答案，我知道如何制作一个10次方的标签，但没有什么是粗体的：

mtext(text=expression(paste(10^4, " points")), side=1, font=2, line=3)

多亏了这个答案，我也知道如何制作带有粗体希腊字母的标签：

mtext(text=expression(bold(paste(beta, "=", 10^1, " points"))), side=1, line=3)

但是十的力量仍然不大胆！

它也不适用于bquote:

mtext(text=bquote(bold(10^1~points)), side=1, line=3)

知道吗？

以下是有关我的系统的一些详细信息。如果你还需要什么，请告诉我。

> sessionInfo()
R version 2.15.0 (2012-03-30)
Platform: x86_64-redhat-linux-gnu (64-bit)
locale:
[1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
[3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
[5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
[7] LC_PAPER=C                 LC_NAME=C                 
[9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

Answer 1

诀窍是使用"4"而不是数字4。

mtext(text=expression(paste(10^bold("4"), " points")), side=1, font=2, line=3)

顺便说一句，这是另一种不需要绘图paste的情况：

mtext(text=expression(10^bold("4")~points), side=1, font=2, line=3)

我看到你引用了我之前在plotmath上的一篇帖子，发现Ripley教授2010年帖子的链接是指向旧的finzi服务器，该服务器不再承载rhelp搜索的负载。我已经更新了该链接。