R图: How to use mtext to get top-aligned vertical label with las=1

Question

我正在尝试使用 mtext 在垂直轴上获取一个标签，该标签是水平读取的 (las=1) 并且位于轴的顶部。

我的尝试是使用las=1, adj=1。当我不指定 las=1 时，我可以获得所需的展示位置，但一旦添加 las=1 参数，adj=1 放置消失。这是带有代码的图片。左图显示了正确的位置，但没有 las=1。右图显示了两个参数都存在。

par(mfrow=c(1,2), mar=c(2,3,2,1))

plot(1, 1, ann=F)
mtext(col="blue", "y", side=2, line=2, adj=1)
mtext(side=3, "col=blue, side=2, adj=1")

plot(1, 1, ann=F)
mtext(col="red", "y", side=2, line=2, adj=1, las=1)
mtext(side=3, "col=red, side=2, adj=1, las=1")

我尝试过使用 padj，但这只会使标签上下移动一点。另外，我知道 at 参数可以，但这感觉有点过于手动。

Answer 1

诀窍是通过调用 par('usr')[4] 来访问绘图的高度:

par(mar=c(2,3,2,1))
plot(1, 1, ann=F)
mtext(col="blue", "y", side=2, line=2, at=par('usr')[4], las=2)