library(ggplot2)
bar <- ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, fill = cut), show.legend = FALSE, width = 1) +
# 指定比率: 长宽比为1, 便于展示图形
theme(aspect.ratio = 1) +
scale_fill_brewer() +
labs(x = NULL, y = NULL)+ scale_fill_brewer(palette = "Reds")
# 坐标轴转置
bar1 <- bar + coord_flip()
# 绘制极坐标
bar2 <- bar + coord_polar()
# 构造ggplot图片列表
plots <- list(bar1, bar2)
# 自定义图片布局
gridExtra::grid.arrange(grobs = plots, ncol = 2)
scale_fill_brewer(palette = "Set1")
scale_fill_brewer(palette = "Set2")
scale_fill_brewer(palette = "Set3")
labs(x = NULL, y = NULL)+ scale_fill_brewer(palette = "Paired")
scale_fill_brewer(palette = "Dark2")
scale_fill_brewer(palette = "RdYlBu")
scale_fill_brewer(palette = "RdBu")
scale_fill_brewer(palette = "PuOr")
scale_fill_brewer(palette = "PRGn")
scale_fill_brewer(palette = "PiYG")
scale_fill_brewer(palette = "BrBG")
scale_fill_brewer(palette = "YlOrRd")
scale_fill_brewer(palette = "YlOrBr")
scale_fill_brewer(palette = "YlGnBu")
scale_fill_brewer(palette = "YlGn")
scale_fill_brewer(palette = "Reds")
scale_fill_brewer(palette = "RdPu")
scale_fill_brewer(palette = "Purples")
scale_fill_brewer(palette = "PuRd")
scale_fill_brewer(palette = "PuBuGn")
scale_fill_brewer(palette = "PuBu")
scale_fill_brewer(palette = "OrRd")
scale_fill_brewer(palette = "Oranges")
scale_fill_brewer(palette = "Greys")
scale_fill_brewer(palette = "Greens")
scale_fill_brewer(palette = "GnBu")
scale_fill_brewer(palette = "BuPu")
scale_fill_brewer(palette = "BuGn")
scale_fill_brewer(palette = "Blues")
开发工具:RStudio 2023.06.1 Build 524
微信Alt+A截屏工具
参考文献:https://blog.csdn.net/weixin_46587777/article/details/124973766