r - 如何在不使用 axis 命令的情况下直接在右侧绘制 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")