R语言实现多个图的拼接并且导出（1）

#导入包
library(ggplot2)
#生成数据
Age<-round(rnorm(60,60,10)) 
BMI<-round(rnorm(60,20,3))
Sex<-sample(c("男", "女"), 60, replace = TRUE)
SBP<-round(rnorm(60,120,20))
data<-data.frame(Age,BMI,Sex,SBP) 
str(data)
# 将Sex变量转换为因子变量
data$Sex <- as.factor(data$Sex)
#使用plot绘图
png("fig1.png")
par(mfrow = c(1,2))
p1<-plot(Age,BMI)
p2<-plot(Age,SBP)
dev.off()
#单独生成两两之间的关系图
p1<-ggplot(data, aes(x = Age, y = BMI)) +
  geom_point() +
  geom_smooth(method = "auto", se = FALSE) 
p2<-ggplot(data, aes(x = Age, y = SBP)) +
  geom_point() +
  geom_smooth(method = "auto", se = FALSE)
#使用cowplot::plot_grid组合
png("fig1.png")
cowplot::plot_grid(p1,p2,labels = c("A", "B"))
dev.off()
#使用patchwork
library(patchwork)
p1 + p2
p1 / p2
p1 + p2 +
  plot_annotation(
    tag_levels = "A",
    title = "Title",
    subtitle = "Subtitle",
    caption = "Caption"
  )

 

 

上述分析使用了par(mfrow(1,2))、cowplot、patchwork方法。