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

问题描述：

我在时间序列的末尾绘制预测图，所以我认为在右边绘制y蜱更方便，因为它们会更接近路径的预测部分。如何在不使用轴命令的情况下直接在右侧绘制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)

任何建议是值得欢迎的。

您可以切换到格子，但如果您的长期计划是保存一些打字（这需要每天大约1000次？xyplot'打电话），那么这可能是一个糟糕的选择。 – baptiste 2014-09-24 12:39:37

是的，我想到了莱迪思，但我想检查是否有人有更快的方法来解决这个问题。 – 2014-09-24 12:42:02

你总是可以将这几个命令包装到自定义绘图函数中。这正是函数式编程真正发挥的作用。 – baptiste 2014-09-24 12:43:02

答

你可以创建一个你喜欢的函数。

开始像这样的东西，然后进一步自定义它，如果你想要的，例如，进一步控制在侧轴被绘制时，轴数/放置蜱，或什么：

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")

在我发帖时看到了你的答案，尽管他们有些互补，所以我现在就离开我的。 – baptiste 2014-09-24 12:48:36

@baptiste - 我发布我的答案后，我看到了您的第二条评论。如果我知道你是这个案子的话，我会一个人留下这个问题;）。 – 2014-09-24 12:50:47

你的身体更好，更健康，我已将其移除 – baptiste 2014-09-24 12:59:03

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

相关推荐