R语言绘制块不同调色板的状华夫饼图

library(ggplot2)
library(RColorBrewer)  

library(reshape2)
nrows <- 10
categ_table <- round(table(mpg$class ) * ((nrows*nrows)/(length(mpg$class))))
sort_table<-sort(categ_table,index.return=TRUE,decreasing = FALSE)
Order<-sort(as.data.frame(categ_table)$Freq,index.return=TRUE,decreasing = FALSE)

df <- expand.grid(y = 1:nrows, x = 1:nrows)
df$category<-factor(rep(names(sort_table),sort_table), levels=names(sort_table))


Color<-brewer.pal(length(sort_table), "YlOrRd")

ggplot(df, aes(x = y, y = x, fill = category)) + 
  geom_tile(color = "white", size = 0.25) +
  #geom_point(color = "black",shape=21,size=6) + 
  coord_fixed(ratio = 1)+
  scale_x_continuous(trans = 'reverse') +#expand = c(0, 0),
  scale_y_continuous(trans = 'reverse') +#expand = c(0, 0),
  scale_fill_manual(name = "Category", 
                    #labels = names(sort_table),
                    values = Color)+
  theme(#panel.border = element_rect(fill=NA,size = 2),
    panel.background  = element_blank(),
    plot.title = element_text(size = rel(1.2)),
    #axis.text = element_blank(),
    #axis.title = element_blank(),
    #axis.ticks = element_blank(),
    # legend.title = element_blank(),
    legend.position = "right")

Color<-brewer.pal(length(sort_table), "YlOrBr")

Color<-brewer.pal(length(sort_table), "YlGnBu")

Color<-brewer.pal(length(sort_table), "YlGn")

Color<-brewer.pal(length(sort_table), "RdPu")

Color<-brewer.pal(length(sort_table), "PuRd")

Color<-brewer.pal(length(sort_table), "PuBuGn")

Color<-brewer.pal(length(sort_table), "RdYlGn")

Color<-brewer.pal(length(sort_table), "RdYlBu")

Color<-brewer.pal(length(sort_table), "RdGy")

开发工具:RStudio与Alt+A快捷截屏工具