如何创建Taylor图和ggplot的并排图？

Question

我有两个图，即Taylor图和ggplot。我想将它们绘制在一个单独的图中(并排)。我试过"library(patchwork)"，但不幸的是它不起作用。

library(tidyr)
library(openair)
dat=data.frame(
  a=runif(10),
  b=runif(10)
)
dat = gather(dat, columnNames, values)
colnames(dat)=c("model", "x")
dat$b=runif(20)
plot1= ggplot(dat, aes(x = x, y = b, group = model,
                color = model, shape = model)) + 
  geom_point( aes(colour = model)) 
#plot-2
dates <- seq(as.Date("2015-01-01"),as.Date("2015-12-31"),1)
obs=runif(365)
mod=runif(365)
model=rep(c("model1","model2"),times=c(150,215))
mod.dat <- data.frame(dates,obs,mod,model)
TaylorDiagram(mod.dat, obs = "obs", mod = "mod", group = "model")

Answer 1

使用gridExtra::grid.arrange怎么样？

library(ggplot2)
library(tidyr)
library(openair)
dat=data.frame(
  a=runif(10),
  b=runif(10)
)
dat = gather(dat, columnNames, values)
colnames(dat)=c("model", "x")
dat$b=runif(20)
plot1= ggplot(dat, aes(x = x, y = b, group = model,
                       color = model, shape = model)) + 
  geom_point( aes(colour = model)) 

#plot-2
dates <- seq(as.Date("2015-01-01"),as.Date("2015-12-31"),1)
obs=runif(365)
mod=runif(365)
model=rep(c("model1","model2"),times=c(150,215))
mod.dat <- data.frame(dates,obs,mod,model)
plot2 <- TaylorDiagram(mod.dat, obs = "obs", mod = "mod", group = "model")

gridExtra::grid.arrange(plot1, plot2$plot, ncol = 2)

​

​