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

#循环作图   在 { }之间加入要画的图，循环的变量为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