R图: Print text on margin in top left corner

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)

得到: