R图，控制轴高度或限制

Question

我使用par（mfrow = c（2,1））绘制两个放样图。在下面的图中我删除了默认轴并添加了我自己的（这是一个更复杂的绘图的虚拟示例，我需要这样做）。

问题是我添加的轴上升到下图框的上限，与上图轴的数字重叠。

因此，我需要限制下曲线轴的高度，以便不重叠。

这里有一些虚拟代码，我希望它会重现效果：

serie1 <- c(45, 257, 25, 55, 89, 297, 471, 1256, 312, 969, 788, 425, NaN, 77, 43, 38, 20, 6, 16, 13, 11, 6, 7, 2, 0, 31, 4, 3, 2, 2, 3, 4, 10, 16, 200, NaN)
serie2 <- c(1106, 1654, 578, 1354, 536, 2384, 586, 1356, 1457, 1508, 4567, 4501, 4037, 7735, 6118, 2775, 1196, 916, 551, 991, 109, 174, 278, 100, 98, 124, 122, 138, 256, 226, 445, 638, 511, 465, 1733, 1278)

opar <- par(mfrow = c(2,1))

par(mar = c(0,4,4,2))
plot.ts(serie1, col = 'red', lwd = 3, xaxt= 'n', xlab='')

par(mar = c(5,4,0,2))
plot.ts(serie2, col = 'blue', lwd = 3, xaxt = 'n', yaxt = 'n', ylab = '', xlab = '')

axis(2)
mtext(side = 2, line = 3, 'serie2')

par(opar)

Answer 1

您可以使用at（和labels）参数axis()来微调轴标签。将此行axis(2)替换为：

axis(2,at=(0:3)*2000)

查看?axis以查看您的选项。

或者，您可以在图表之间留出一些空间，即更改par(mar=...)命令。