install.packages("devtools")#安装devtools包
devtools::install_github("thomasp85/patchwork")#安装patchwork包
library(ggplot2)
library(patchwork)
#p1是一个散点图，显示了汽车数据集（mtcars）中的燃油效率（mpg）和排量（disp）的关系
p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
#p2是一个箱线图，显示了不同齿轮数（gear）下排量（disp）的分布
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))
#p3是一个平滑曲线图，显示了排量（disp）和加速时间（qsec）之间的关系
p3 <- ggplot(mtcars) + geom_smooth(aes(disp, qsec))
#p4是一个柱状图，显示了不同化油器数量（carb）的频数
p4 <- ggplot(mtcars) + geom_bar(aes(carb))
#绘图（上3下1格式）
(p1 | p2 | p3) / p4
