在 y 轴的顶部绘制 y-label

Question

我想在y轴上方绘制ylab，可以使用哪个代码？

这是例子

par(mar=c(4,6,4,4))
plot(rnorm(100), ylab="")
mtext(side=2, text="Label", las=1, line=2)

我想在红色箭头指示的 y 轴顶部绘制 ylabel。

Answer 1

您可以这样做，找到左上角并将其固定。

par(mar=c(4,6,4,4))
plot(rnorm(100), ylab="")

loc <- par("usr")
text(loc[1], loc[4], "Label", pos = 2, xpd = T)

玩转 pos 并添加 adj 可能会稍微改变一下位置。