ggplot如何構(gòu)造連環(huán)餅圖

本篇內(nèi)容介紹了“ggplot如何構(gòu)造連環(huán)餅圖”的有關(guān)知識(shí)，在實(shí)際案例的操作過程中，不少人都會(huì)遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

library("ggplot2")

library("scatterpie")

library("Cairo")

數(shù)據(jù)集構(gòu)造：

mydata<-c(1,1,1,1,1,1,1,1,1,2,3,2,3,5,5,1,1,1,1,1,2,2,4,5,1,3,2,3,5,5,4,2,4,2,1,2,1,1,0.5,0.5)

Dummy<-5*seq(1:8)

mynewdata<-matrix(mydata,nrow=8,ncol=5,byrow=T)

colnames(mynewdata)<-c("S1","S2","S3","S4","S5")

mynewdata<-as.data.frame(mynewdata)

as.integer(mynewdata1$Year)

mynewdata1<-cbind(Year,Dummy,Data,mynewdata)

as.integer(mynewdata1$Dummy)

構(gòu)造色盤：

color1<-c("#FF2D2D","#F79646","#4BACC6","#FFC000","#92D050")

color2<-c("#17375E","#23538D","#558ED5","#8EB4E3","#C6D9F1")

色盤1圖表輸出：

CairoPNG(file="C:/Users/Administrator/Desktop/scatterpie1.png",width=500,height=330)

ggplot()+

geom_line(data=mynewdata1,aes(x=Dummy,y=Data,group=1),col="#085264",size=.8)+

geom_scatterpie(data=mynewdata1,aes(x=Dummy,y=Data,r=2),cols=colnames(mynewdata1)[4:8],color=NA)+

ylim(0,25)+

scale_fill_manual(values=color1)+

scale_x_continuous(breaks=mynewdata1$Dummy,labels=c(2004:2011))+

guides( fill=guide_legend(label.position ="top"))+

theme(

axis.title=element_blank(),

legend.title=element_blank(),

panel.background=element_blank(),

axis.line=element_line(),

axis.ticks=element_line(),

legend.direction="horizontal",

legend.position=c(0.15,0.9),

)

dev.off()

色盤2輸出：

CairoPNG(file="C:/Users/Administrator/Desktop/scatterpie2.png",width=500,height=330)

ggplot()+

geom_line(data=mynewdata1,aes(x=Dummy,y=Data,group=1),col="#085264",size=.8)+

geom_scatterpie(data=mynewdata1,aes(x=Dummy,y=Data,r=2),cols=colnames(mynewdata1)[4:8],color=NA)+

ylim(0,25)+

scale_fill_manual(values=color2)+

scale_x_continuous(breaks=mynewdata1$Dummy,labels=c(2004:2011))+

guides( fill=guide_legend(label.position ="top"))+

theme(

axis.title=element_blank(),

legend.title=element_blank(),

panel.background=element_blank(),

axis.line=element_line(),

axis.ticks=element_line(),

legend.direction="horizontal",

legend.position=c(0.15,0.9),

)

dev.off()

本來原始圖表在案例中使用VBA寫的，大體思路是在折線圖對(duì)應(yīng)點(diǎn)位置強(qiáng)制插入8個(gè)餅圖對(duì)象。（就是對(duì)應(yīng)八個(gè)點(diǎn)位置的餅圖）思路雖好，可是VBA的笨拙語(yǔ)法操作起來實(shí)在不易，代碼量巨大。

源案例代碼截圖：

而使用R語(yǔ)言，不算主題修飾成分，核心代碼只有短短6行，由此可見R在圖形操控方面的便利。

本例適用場(chǎng)景：

• 基于時(shí)間維度的個(gè)指標(biāo)結(jié)構(gòu)分解（年度GDP構(gòu)成）；

• 基于地域維度的指標(biāo)構(gòu)成分解。（不同地區(qū)產(chǎn)品銷量、銷額等）。

  
  

核心要點(diǎn)：

• 需掌握geom_scatterpie 圖層函數(shù)要義（其實(shí)就是熟知scatterpie包的參數(shù)）；

• 保證橫、縱軸刻度線量級(jí)一致，細(xì)心地童鞋可能已經(jīng)發(fā)現(xiàn)，我并未直接將X軸映射給Year變量，而是費(fèi)事兒的用0,5,10……40等間隔為5的數(shù)值來作為X軸，之后才將刻度標(biāo)簽替換成2004~2011的年份（具有實(shí)際意義的指標(biāo)）。原因就是因?yàn)橐?guī)避橫縱坐標(biāo)量級(jí)差異導(dǎo)致餅圖變形。（算是scatterpie的bug吧，無法自動(dòng)優(yōu)化餅圖半徑）。

“ggplot如何構(gòu)造連環(huán)餅圖”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注億速云網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！