par(mfrow=c(1,2)) 不显示并排图答案

【问题标题】：par(mfrow=c(1,2)) not displaying side-by-side plotspar(mfrow=c(1,2)) 不显示并排图
【发布时间】：2022-11-21 01:09:03
【问题描述】：

当我尝试在一张图中显示两个图时，使用 par(mfrow= c(1,2)) 时我只从最后一个图获得输出

par(mfrow=c(1,2))

a <- plot(effect(fit.no_interaction, term="WEEK", confidence.level = 0.95, residuals=T),
     colors="blue", band.colors="red", band.transparency=0.3, rug=F, cex=5,
     residuals.color=adjustcolor("cornflowerblue", alpha.f=0.2),
     residuals.pch=16, smooth.residuals=F)

b <- plot(effect(fit.interaction, term="YEAR", confidence.level = 0.95, residuals=T),
     colors="blue", band.colors="red", band.transparency=0.3, rug=F, cex=5,
     residuals.color=adjustcolor("cornflowerblue", alpha.f=0.2),
     residuals.pch=16, smooth.residuals=F)

print(a, position = c(0, 0, 0.5, 1), more = TRUE)
print(b, position = c(0.5, 0, 1, 1))

这导致输出中仅绘制 (b) 而不是 (a) 和 (b)

【问题讨论】：

标签： r plot

【解决方案1】：

这不是基本的 R 解决方案，但 cowplot 包使并排绘制图形变得非常容易。

library(effects)
library(cowplot)
data(mtcars)
fit.no_interaction <- lm(mpg ~ cyl + qsec, data = mtcars)
fit.interaction <- lm(mpg ~ cyl*qsec, data = mtcars)

a <- plot(effect(fit.no_interaction, term="cyl", confidence.level = 0.95, residuals=T),
          colors="blue", band.colors="red", band.transparency=0.3, rug=F, cex=5,
          residuals.color=adjustcolor("cornflowerblue", alpha.f=0.2),
          residuals.pch=16, smooth.residuals=F)

b <-  plot(effect(fit.interaction, term="cyl", confidence.level = 0.95, residuals=T),
          colors="blue", band.colors="red", band.transparency=0.3, rug=F, cex=5,
          residuals.color=adjustcolor("cornflowerblue", alpha.f=0.2),
          residuals.pch=16, smooth.residuals=F)

plot_grid(a, b)

【讨论】：