R 图：如何使用 mtext 获取 las=1 的顶部对齐垂直标签

我正在尝试使用在垂直轴上获得标签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参数可以，但是感觉有点太手动了。

诀窍是通过调用来访问绘图的高度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)