R语言绘制多彩的坐标系统

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