如何在不使用轴命令的情况下直接在右侧绘制y轴？

Question

我正在绘制一个时间序列结束时的预测，所以我认为右边的y刻度更方便，因为它们会更接近预测的路径部分。

有没有办法避免这样做：

set.seed(1)

x <- 1:10
y <- sample(1:15, 10)

par(mar = c(5.1, 2.1, 4.1, 4.1))
plot(x, y, yaxt="n", ylab=NA)
axis(4)
mtext("my y", 4, line = 2)

欢迎提出任何建议。

Answer 1

你可以构建一个能够做你喜欢的功能。

从这样的东西开始，然后根据需要进一步自定义，例如，进一步控制绘制轴的哪一侧，轴刻度的数量/位置，或其他：

myPlot <- function(..., yaxt = "n", ylab = NA) {
    plot(x, y, yaxt = "n", ylab = NA)
    axis(4)
    mtext(ylab, 4, line = 2)
}

myPlot(x, y, ylab="my y")