R plot：在左上角的边距上打印文本

Question

我有以下基本代码来绘制网格。

grid <- expand.grid( pi=seq(50, 95, 5) / 100, mu2=seq(5, .5, -.5) )
pi <- seq(44, 100, .5) / 100
par( mai=c(.05, .05, .05, .05), oma=c(2.9, 2.9, 0, 0) ) # Make room for label
plot( grid, cex=.5, xlab="", ylab="", cex.axis=.7 )

如何绘制文本标签，例如＆＃34;（A）＆＃34;在左上角，如红色圆圈所示？

编辑：＆＃34;（A）＆＃34;应以规则的，即水平的阅读方向打印;不垂直于y轴。

Answer 1

您可以使用mtext将文字放在边距之外：

##Look at the help page for further details    
mtext("A", 2, adj=1, line=2)

##To rotate "A", try
mtext("A", 2, adj=5, las=1, padj=-22)

得到：

Answer 2

你可以试试这个：

text(x = 0.44, y = 5, labels = "(A)", xpd = NA)

如果您需要更多文本空间，另请参阅?par如何使用mar调整绘图边距。