在y轴的顶部绘制y标签

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可能会稍微改变位置。