Summary:

1.绘制饼图：

• 简单的饼图：pie(x, labels)绘制，x为非负数值向量。必要时利用as.numeric()转换一下

    x<- c(1,2,3,4)  

   labs0<-c("A","B","C","D")

   pie(x,labels = labs0, main = "A simple Piechart")

   更改一下颜色设置:

    pie(x,labels = labs0, main = "A simple Piechart",col = rainbow(4))  #rainbow被解析成了4种颜色

                                                                           

• 好看的3D饼图
  

require("plotrix")

user_num01<-c(nrow(less50),nrow(g50_100),nrow(g100_500),nrow(g500_1k),nrow(g1k_5k),

                           nrow(g5k_10w),nrow(more10w))

ranges01<-c("<=50","50-100","100-500","500-1K","1K-5K","5K-100K",">100K")

x1<-as.numeric(user_num01)

lbls<-paste(ranges0,"\n",round(x1/sum(x1)*100,2),"%",sep = "")