R pie chart

graphics패키지 pie

> rm(list=ls())
> # DBILITY그룹 팀별 매출액 
> library(graphics)
> x<-c(100,50,120,150)# 매출액
> dept<-c('소프트웨어개발팀','기술연구소','기술지원팀','기술영업팀')
> colors<-c('blue','red','yellow','green')
> pct<-round((x/sum(x))*100)
> dept<-paste(dept,'(',pct,'%)')
> pie(x,labels = dept, main = 'DBILITY그룹 팀별 매출액', init.angle=90, col=rainbow(length(x)))

 

 

plotrix 패키지 pie3D

> library(plotrix)
> pie3D(x,labels = dept, explode = 0.05, labelcex = 1.2, col = rainbow(length(x)) ,main = 'DBILITY그룹 팀별 매출액')