coord_polar极坐标变换

  画图配色映射到离散型变量：

scale_fill_hue: 指定色系的色相、色度和亮度

scale_fill_gray: 使用灰色色系

scale_fill_brewer: 使用调色板提供的色系（代码块有用到）

scale_fill_manual: 使用一个颜色向量指定各个离散水平对应的配色

代码块

#常见的柱形图、堆积柱形图通过极坐标函数转换为饼图、玫瑰图、圆环图
library(ggplot2)
library(ggthemes)

#饼图
#theta='y',柱形图的y轴为成为极坐标的x轴（圆周），柱形图的x轴会成为极坐标的y轴（半径）
ggplot(data=iris,aes(x=factor(1),fill=Species))+geom_bar()+coord_polar(theta='y')

#theta='x',柱形图的x轴为成为极坐标的x轴（圆周），柱形图的y轴会成为极坐标的y轴（半径）
ggplot(data=iris,aes(x=factor(1),fill=Species))+geom_bar()+coord_polar(theta = 'x')

#柱形图的宽度控制饼图的完整度(theta='x'),决定饼图半径(theta='x')
ggplot(data=iris,aes(x=factor(1),fill=Species))+geom_bar(width=1)+coord_polar(theta = 'x')

ggplot(data=iris,aes(x=factor(1),fill=Species))+geom_bar()+coord_polar(theta='y')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text= element_blank(),
       axis.title = element_blank())+
 scale_fill_brewer(palette())+
 guides(fill=guide_legend(reverse=T,title=NULL))

ggplot(diamonds,aes(cut))+
 geom_bar(width=1,fill='steelblue',color='white')+
 coord_polar(theta='y')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text.x  = element_blank(),
       axis.title = element_blank(),
       axis.ticks = element_blank())

ggplot(diamonds,aes(cut))+
 geom_bar(width=1,fill='steelblue',color='white')+
 coord_polar(theta='x')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text.y  = element_blank(),
       axis.title = element_blank(),
       axis.ticks = element_blank())+
 ylim(c(-2000,22500))

library(RColorBrewer)
display.brewer.all()#查看所有调色板，scale_fill_brewer使用的就是调色板提供的色系
ggplot(diamonds,aes(x=color,fill=cut))+
 geom_bar()+
 scale_fill_brewer(palette = 'Oranges')+
 coord_polar(theta='y')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text.x  = element_blank(),
       axis.title = element_blank(),
       axis.ticks = element_blank())

ggplot(diamonds,aes(x=color,fill=cut))+
 geom_bar()+
 scale_fill_brewer(palette = 'Oranges')+
 coord_polar(theta='x')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text.y  = element_blank(),
       axis.title = element_blank(),
       axis.ticks = element_blank())+
 ylim(c(-2000,11000))

ggplot(diamonds,aes(x=color,fill=cut))+
 geom_bar()+
 scale_fill_hue(h=c(0,360),c=100,l=65 )+
 coord_polar(theta='x')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text.y  = element_blank(),
       axis.title = element_blank(),
       axis.ticks = element_blank())+
 ylim(c(-2000,11000))

ggplot(diamonds,aes(x=color,fill=cut))+
 geom_bar()+
 scale_fill_grey(start=0.1,end=0.7)+
 coord_polar(theta='x')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text.y  = element_blank(),
       axis.title = element_blank(),
       axis.ticks = element_blank())+
 ylim(c(-2000,11000))

ggplot(diamonds,aes(x=color,fill=cut))+
 geom_bar()+
 scale_fill_manual(values=c('red','green','steelblue','orange','blue'))+
 coord_polar(theta='x')+
 theme(panel.grid=element_blank(),
       panel.background = element_blank(),
       axis.text.y  = element_blank(),
       axis.title = element_blank(),
       axis.ticks = element_blank())+
 ylim(c(-2000,11000))