ggplot2画图，如何将柱状图变成饼状图？

如题。示例如下，如何画饼图？

谢谢！

1. city<-c(        '北京', '上海', '天津')
   
2. rate<-c(0.53, 0.29, 0.18)
   
3. data1<-data.frame(city,rate)
   
4. colnames(data1)<-c('city','rate')
   
5. 
   
6. p <- ggplot(data = data1, aes(x=city,y=rate))  
   
7. p <- p + geom_bar( stat="identity" , width = 0.4, fill = "cornflowerblue")
   
8. p <- p + geom_text(label=paste(data1$rate * 100, "%", sep = "") ,colour = "blue", vjust=-1)
   
9. p <- p + labs(x="",y="份额\n",title = "各省份额\n")  
   
10. p <- p + scale_y_continuous(limits=c(0, max(data1$rate)*1.1),labels = percent, breaks = seq(0, 2, 0.1))
    
11. p <- p + theme( plot.title = element_text(size = 16, face = "bold"))
    
12. 
    
13. p

复制代码

画出的柱状图如下图。问题是，如何画饼图？类似于excel中的下下图。
  

1. city <- c(rep("北京",53),rep("上海",29),rep("天津",18))
   
2. data1<-data.frame(
   
3.   index = 1:100,
   
4.   rate = city)
   
5. 
   
6. ggplot(data1)+geom_bar(aes(x=factor(1),fill=city))+coord_polar(theta="y")

复制代码

+coord_polar(theta="y")

yilence 发表于 2015-4-9 19:04

请问如何删除饼图的坐标轴，0/100,20,40,60,80这个，同时删除外层的白线圈？

yilence 发表于 2015-4-9 19:04

请问如何删除饼图的坐标轴，0/100,20,40,60,80这个，同时删除外层的白线圈？