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

你可以试试这个：

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

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

Answer 2

您可以使用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) 

获得：