轴标签放置

Question

我有一个可能相当简单的问题。 我想将y轴标签水平放在y轴上方，而不是默认值（垂直于y轴）。这可能需要一个par（）命令，但是哪一个？

提前感谢！

Answer 1

我认为par不是你想要的。您可以调整默认值，使用ylab = ""排除y轴的标签，然后手动添加带有边缘文本输入（mtext）的文本。 例如：

xx <- 1:20
yy <- 55 + 50 * xx - 3 * xx ^ 2

plot(x = xx, y = yy, type = "l", ylab="")
mtext("yy", side = 3, at = -1)

或作为一项功能：

newplot <- function(xx, yy) {
  plot(x = xx, y = yy, type = "l", ylab="")
  mtext(deparse(substitute(yy)), side = 3,
    at = - sum(range(xx)) / range(xx)[2])
}