image - 在 R 中绘制时间序列和图像，使 x 轴标签完美对齐

Question

我正在尝试用 R 中的相应频谱图绘制时间序列(地震仪)。由于我想将时间序列与频谱图进行比较，因此时间序列上的 X 轴标签需要与频谱图上的 X 轴标签对齐。但是，我在这方面遇到了很多麻烦。到目前为止我能做的最好的就是使用

par(mar=c(0,10,0,8))

并尝试通过调整频谱图余量来手动强制频谱图标签与时间序列标签对齐。当然这只是近似值，它们仍然没有完全对齐。有没有办法让下面的代码生成的轴相互匹配？

par(mfcol=c(2,1))
plot(seq_len(1000)*0.01, sin(2*pi*seq_len(1000)*0.01), type="l",xlab="Time",
ylab="Amplitude", main="Time Series", xlim=c(1,10))
image(seq_len(1000)*0.01,seq_len(100)*0.1,array(runif(1000000),dim=c(1000,100)),
xlab="Time", ylab="Frequency", main="Spectrogram", xlim=c(1,10))

提前致谢!

Answer 1

这似乎可行:

par(mfcol=c(2,1))
plot(seq_len(1000)*0.01, sin(2*pi*seq_len(1000)*0.01), type="l", xaxs="i")
image(seq_len(1000)*0.01,seq_len(100)*0.1,array(runif(1000000),dim=c(1000,100)),
    xlab="Time", ylab="Frequency", main="Spectrogram")

只需删除 xlim= 参数并在 plot() 函数中使用 xaxs="i"以匹配 image() 的默认值。