R语言 ggplot 循环画图与多图合并

最新推荐文章于 2023-03-10 16:59:28 发布

还没想好123

最新推荐文章于 2023-03-10 16:59:28 发布

阅读量7.3k

点赞数 4

文章标签： r语言

本文链接：https://blog.csdn.net/weixin_46623488/article/details/120385106

版权

先把其中一个变量的一幅图画好，参数调对了

#循环作图   在 { }之间加入要画的图，循环的变量为R
p <- apply(data3, 2,function(R) {    ggplot(data) +
    aes(x = year, fill =R) +
    geom_bar(position = "fill") } )

#S3提取其中一幅ggplot图
p['age']$age  #填入你循环画图的一个变量
#加标签 
p2=p['age']$age+labs(fill ='年龄')
p3=p['张口受限']$张口受限+labs(fill ='张口受限')
p4=p['弹响']$弹响+labs(fill ='弹响')
#合并图片
#组合成一幅图，按照两行两列排列，标签分别为ABCD（LETTERS[1:4] 
pic <- cowplot::plot_grid(p2,p3,p4,p5,p6,p7,p8,p9,p10,p11, 
                          ncol=4,nrow = 3, labels = LETTERS[1:10])
pic