r - 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 )

如何在左上角绘制一个文本标签，如红色圆圈所示的“(A)”？

编辑：“(A)”应按常规，即水平，阅读方向打印；不与 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