如何在R中合并两个基准点

显然你不能把"recordedplot"个物体放在layout上.

不知道你为什么要使用grDevices::recordPlot，也许你想模仿某种ggplot行为.然而，plot或使用它的WaveletComp::wt.image总是会完成绘图，所以你总是会看到你的绘图两次.

因此，你可以坚持使用layout或使用par(mfrow=)，如@robert-hacken的答案，并根据他的建议设置graphics.reset=FALSE.

我建议使用png设备而不是RStudio预览窗口；它速度快得多，并产生硬编码图像大小.图存储在工作目录中(或使用png('/<path>/foo.R')).如果你不想使用它，只需注释掉png和dev.off行:

png('foo.png', 800, 600)  ## open png device

layout(matrix(c(1, 2), nrow=2))
par(mar=c(3, 3, 3, 3) + .6)  ## slightly reduce margins
wt.image(my.wt, main="wavelet power spectrum",
         legend.params=list(lab="wavelet power levels (quantiles)", 
                            lab.line=3.5, 
                            label.digits=2),
         periodlab="period (days)",
         graphics.reset=FALSE)
wt.image(my.wt, main="wavelet power spectrum",
         legend.params=list(lab="wavelet power levels (quantiles)", 
                            lab.line=3.5, 
                            label.digits=2),
         periodlab="period (days)",
         graphics.reset=FALSE)

dev.off()  ## close png device

Note:不要一起使用layout和par(mfrow=, mfcol=)选项，因为它们不兼容.

更新

要将多个分析组合到一个绘图中，请首先将分析存储在list中，然后循环列表进行绘图.Example:

my.data3 <- my.data2 <- my.data1 <- my.data

my.wt_lst <- Map(
  analyze.wavelet,
  my.data=list(my.data1, my.data2, my.data3),
  my.serie='x',
  loess.span=c(0, .25, .5),
  dt=1/24,
  dj=1/20,
  lowerPeriod=1/4,
  make.pval=TRUE,
  n.sim=10
)

Map在元素上同步循环，也就是说，如果只有一个元素，比如dt=1/24，它总是使用1/24，如果有多个元素，比如my.data=list(my.data1, my.data2, my.data3)，或者loess.span=c(0, .25, .5)，它会一个接一个地使用元素.注意，list或data. frame本身是一个包含多个元素的列表，你需要再次列出它，例如my.data=list(my.data1)而不是my.data=my.data1.

png('foo.png', 1200, 600)
layout(matrix(seq_along(my.wt_lst), nrow=length(my.wt_lst)))
par(mar=c(3, 3, 3, 3) + .6)  ## slightly reduce margins
for (i in seq_along(my.wt_lst)) {
  wt.image(my.wt_lst[[i]], main="wavelet power spectrum",
           legend.params=list(lab="wavelet power levels (quantiles)", 
                              lab.line=3.5, 
                              label.digits=2),
           periodlab="period (days)",
           graphics.reset=FALSE)
}
dev.off()