如何在R中合并两个基本图？

Question

   library("cowplot")
    library(WaveletComp)
   layaout2<-layout(matrix(c(1, 2, 3), nrow = 3))
   x <- periodic.series(start.period = 1*24, length = 6*128*24)
my.date <- seq(as.POSIXct("2014-10-14 00:00:00", format = "%F %T"), 
       by = "hour", 
       length.out = 6*128*24)     
my.data <- data.frame(date = my.date, x = x)
my.wt <- analyze.wavelet(my.data, "x",                   
        loess.span = 0, 
                 dt = 1/24, dj = 1/20, 
                 lowerPeriod = 1/4, 
                 make.pval = TRUE, n.sim = 10)
  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)")
  p1 <- recordPlot() 
  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)")
p2 <- recordPlot()
plot_grid(p1, p2,
      labels = 'AUTO',
      hjust = 0, vjust = 1)

我收到错误 if (labels) { 中的错误：缺少需要 TRUE / FALSE 的值

Answer 1

您可以使用标准的基本 R 方法，例如

par(mfrow=c(2, 1))

。只需确保为

graphics.reset=F

设置

wt.image()

，否则完成时会重置原始图形参数，这尤其会重新应用

mfrow

设置，并且下一个绘图将放在新页面上。

par(mfrow=c(2, 1))
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=F)
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=F)