1
2
3
4
5
6
7
8
9
10
#绘制第二幅图p2
p2 %
ggplot(aes(x = color, fill = clarity)) +
geom_bar(stat = 'count') +
scale_fill_brewer(palette = 'Set1') +
theme_bw()
p21
2
3
4
5
6
7
#绘制第三幅图p3
p3 %
ggplot(aes(x = color, fill = clarity)) +
geom_bar(stat = 'count', position = 'fill') +
scale_fill_brewer(palette = 'Set3') +
theme_bw()
p31
2
3
4
5
6
7
#绘制第四幅图p4
p4 %
ggplot(aes(x = color, fill = clarity)) +
geom_bar(stat = 'count') +
coord_polar() +
scale_fill_brewer(palette = 'Set2') +
theme_bw()
p41
2
3
4
5
6
7
8
组合图方法一:cowplot包plot_grid()函数p5
p51
2
组合图方法二:ggpubr包ggarrange()函数p6
p61
2