ggplot多图叠加_ggplot2一页多图（组合图）

suppressMessages(library(dplyr))

suppressMessages(library(ggplot2))

#绘制第一幅图p1

p1 %

ggplot(aes(x = color, y = price, fill = color)) +

geom_violin() +

facet_grid(clarity ~ .) +

theme_classic() +

scale_fill_brewer(palette = 'Set1')

p1

p1.png

#绘制第二幅图p2

p2 %

ggplot(aes(x = color, fill = clarity)) +

geom_bar(stat = 'count') +

scale_fill_brewer(palette = 'Set1') +

theme_bw()

p2

p2.png

#绘制第三幅图p3

p3 %

ggplot(aes(x = color, fill = clarity)) +

geom_bar(stat = 'count', position = 'fill') +

scale_fill_brewer(palette = 'Set3') +

theme_bw()

p3

p3.png

#绘制第四幅图p4

p4 %

ggplot(aes(x = color, fill = clarity)) +

geom_bar(stat = 'count') +

coord_polar() +

scale_fill_brewer(palette = 'Set2') +

theme_bw()

p4

p4.png

组合图方法一：cowplot包plot_grid()函数

p5

p5

p5.png

组合图方法二：ggpubr包ggarrange()函数

p6

p6

p6.png