R plot和barplot如何修复ylim不一样？

Question

我尝试使用 base R 将时间序列绘制为条形图和普通线图。我尝试编写一个灵活的函数来绘制这样的图，并且想绘制没有轴的图，然后手动添加通用轴。

现在，我遇到了一个奇怪的问题：相同的 ylim 值导致不同的轴。考虑以下示例：

data(presidents)
# shorten this series a bit
pw <- window(presidents,start=c(1965))
barplot(t(pw),ylim = c(0,80))
par(new=T)
plot(pw,ylim = c(0,80),col="blue",lwd=3)

我故意在此处绘制来自两个图的 y 轴，以表明它不一样。我知道我可以通过首先绘制条形图然后使用x 和y args 的lines 添加lines 来达到预期的结果。

但我正在寻找灵活的解决方案，让您可以向条形图添加线条，就像向点或其他线条图添加线条一样。那么有没有办法确保y轴相同？

编辑：也将usr 参数添加到 par 对我没有帮助。

par(new=T,usr = par("usr"))

Answer 1

将yaxs="i" 添加到您的线图中。像这样：

plot(pw,ylim = c(0,80),col="blue",lwd=3, yaxs="i")

R 在 y=0 处开始条形图，而折线图不会。这是为了确保在您的数据是 y=0 时看到一条线，否则它与 x 轴线对齐。