這篇文章給大家介紹R語言怎么進(jìn)行簡(jiǎn)單餅圖的繪制，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對(duì)大家能有所幫助。

創(chuàng)新互聯(lián)總部坐落于成都市區(qū)，致力網(wǎng)站建設(shè)服務(wù)有成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、網(wǎng)絡(luò)營(yíng)銷策劃、網(wǎng)頁設(shè)計(jì)、網(wǎng)站維護(hù)、公眾號(hào)搭建、小程序開發(fā)、軟件開發(fā)等為企業(yè)提供一整套的信息化建設(shè)解決方案。創(chuàng)造真正意義上的網(wǎng)站建設(shè)，為互聯(lián)網(wǎng)品牌在互動(dòng)行銷領(lǐng)域創(chuàng)造價(jià)值而不懈努力！

構(gòu)建數(shù)據(jù)

data<-data.frame(value=c(45.71,23.34,34.24,56,67.51,78.23),group=c("SOD","PPO","POD","LOX","LPS","CAT"))

對(duì)數(shù)據(jù)value降序

data<-arrange(data,desc(value))

餅圖顏色搭配

data$color<-rev(brewer.pal(nrow(data),"Blues"))

圖標(biāo)簽

labels<-paste0(data$group,"\n(",round(data$value/sum(data$value)*100,2),"%)")

     

#標(biāo)簽格式

繪圖方式1

pie(data$value,labels=labs,init.angle=90,col=data$color,border="black")

     

     

繪圖方式2

pie(data$value,labels=paste0(data$group,"\n(",round(data$value/sum(data$value)*100,1),"%)"),init.angle=90,col=brewer.pal(nrow(data),"Oranges"),border="black")

     

     

    

關(guān)于R語言怎么進(jìn)行簡(jiǎn)單餅圖的繪制就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺得文章不錯(cuò)，可以把它分享出去讓更多的人看到。