R语言 ggplot2 一页多图方法 ggpubr::ggarrange()

R语言 ggplot2 一页多图方法 ggpubr::ggarrange()

# 载入packages
library(ggplot2)
library(ggpubr)

# 生成数据
x <- seq(1,10,0.01) * pi
e <- rnorm(length(x), mean = 0, sd=0.2)
fx <- sin(x) + e + sqrt(x)
dat = data.frame(x=x, fx=fx)

# 作图
p0 = ggplot(dat,aes(x,fx))+geom_point()+geom_smooth(method = 'lm')

set.seed(2021)
idx1 = sample(1:length(x), 100)
dat1 = data.frame(x1=x[idx1], fx1=fx[idx1])
p1 = ggplot(dat1, aes(x1, fx1)) + geom_smooth(span=0.03)

idx2 = sample(1:length(x), 100)
dat2 = data.frame(x2=x[idx2], fx2=fx[idx2])
p2 = ggplot(dat2, aes(x2, fx2)) + geom_smooth(span=0.03)

idx3 = sample(1:length(x), 100)
dat3 = data.frame(x3=x[idx3], fx3=fx[idx3])
p3 = ggplot(dat3, aes(x3, fx3)) + geom_smooth(span=0.03)

# 绘图
ggarrange(p0,p1,p2,p3, ncol=1, nrow = 4)