R語(yǔ)言怎么繪制家庭金融資產(chǎn)配置變化圖

這篇文章主要介紹“R語(yǔ)言怎么繪制家庭金融資產(chǎn)配置變化圖”，在日常操作中，相信很多人在R語(yǔ)言怎么繪制家庭金融資產(chǎn)配置變化圖問(wèn)題上存在疑惑，小編查閱了各式資料，整理出簡(jiǎn)單好用的操作方法，希望對(duì)大家解答”R語(yǔ)言怎么繪制家庭金融資產(chǎn)配置變化圖”的疑惑有所幫助！接下來(lái)，請(qǐng)跟著小編一起來(lái)學(xué)習(xí)吧！

帶有連接帶的堆積柱形圖：

library("ggplot2")

library("showtext")

library("Cairo")

font_add("myfzhzh","方正正粗黑簡(jiǎn)體.TTF")

#原始數(shù)據(jù)：

mydata<-data.frame(

      Class=c("現(xiàn)金和活期存款","定期存款","貨幣基金","共同基金","養(yǎng)老基金"),

      Y1974=c(8,35,0.1,3,47),

      Y2016=c(2.5,22,2.7,31,53)

)

mydata$Class<-factor(mydata$Class,levels=c("現(xiàn)金和活期存款","定期存款","貨幣基金","共同基金","養(yǎng)老基金"),ordered=T)

geom_rect()的規(guī)則是根據(jù)每一個(gè)多邊形的邊界點(diǎn)進(jìn)行形狀構(gòu)建，所有我們需要獲取15個(gè)矩形塊中不重復(fù)的24個(gè)坐標(biāo)點(diǎn)。

根據(jù)以上思路，先構(gòu)造兩側(cè)柱形圖的數(shù)據(jù)源；

bar1<-data.frame(

         Class=c("現(xiàn)金和活期存款","定期存款","貨幣基金","共同基金","養(yǎng)老基金"),

         xmin=rep(0,5),

         xmax=rep(5,5),

         ymin=c(0,cumsum(mydata$Y1974)[1:4]),

         ymax=cumsum(mydata$Y1974),

         Year="Y1974",

         )

bar2<-data.frame(

         Class=c("現(xiàn)金和活期存款","定期存款","貨幣基金","共同基金","養(yǎng)老基金"),

         xmin=rep(25,5),

         xmax=rep(30,5),

         ymin=c(0,cumsum(mydata$Y2016)[1:4]),

         ymax=cumsum(mydata$Y2016),

         Year="Y2016"

         )

mydata1<-rbind(bar1,bar2)

mydata1$Class<-factor(mydata1$Class,levels=c("現(xiàn)金和活期存款","定期存款","貨幣基金","共同基金","養(yǎng)老基金"),ordered=T)

構(gòu)造標(biāo)簽：

mydata1$label_x=rep(c(2.5,27.5),each=5)

mydata1$label_y=mydata1$ymin+(mydata1$ymax-mydata1$ymin)/2

mydata1$value<-c(mydata$Y1974,mydata$Y2016)

構(gòu)造中間的連接帶數(shù)據(jù)源：

midrect<-data.frame(Class=mydata$Class)

midrect$id<-1:nrow(midrect)

midrect$ystart<-c(0,cumsum(mydata$Y2016[1:(nrow(mydata)-1)]))

midrect$yend<-cumsum(mydata$Y2016)

midrect$start<-bar1$ymin

midrect$end<-bar1$ymax

轉(zhuǎn)置并構(gòu)造中間的連接帶單個(gè)多邊形四角坐標(biāo)點(diǎn)：

midrect_data<-data.frame(t(midrect[,c("start","end","yend","ystart")]),stringsAsFactors=FALSE)

names(midrect_data)<-midrect$Class

midrect_data$order<-1:4

將這些坐標(biāo)點(diǎn)數(shù)據(jù)轉(zhuǎn)成長(zhǎng)數(shù)據(jù)：

midrect_data_final<-gather(midrect_data,Class,lat,-order)

midrect_data_final$long<-rep(c(5,5,25,25),5)

midrect_data_final$Class<-factor(midrect_data_final$Class,levels=c("現(xiàn)金和活期存款","定期存款","貨幣基金","共同基金","養(yǎng)老基金"),ordered=T)

#繪圖過(guò)程：

color<-c("#0579AD","#0899DA","#519F46","#A2D293","#C7C8CC")

CairoPNG(file="E:/微信公眾號(hào)/公眾號(hào)——數(shù)據(jù)小魔方/2017年9月/20170922/bump_bar.png",width=1200,height=900)

showtext.begin()

ggplot()+

geom_rect(data=mydata1,aes(xmin=xmin,xmax=xmax,ymin=ymin,ymax=ymax,fill=Class),colour="white")+

geom_text(data=mydata1,aes(x=label_x,y=label_y,label=paste(value,"%")),family="myfzhzh",size=5,colour="white")+

geom_text(data=NULL,aes(x=c(2.5,27.5),y=c(98,115),label=c(1974,2016)),size=10)+

geom_polygon(data=midrect_data_final,aes(x=long,y=lat,fill=Class),colour="white")+

ylim(0,115)+

guides(fill=guide_legend(title=NULL)) +

scale_fill_manual(values=color)+

labs(title="美國(guó)居民和非營(yíng)利部門(mén)的金融資產(chǎn)分布與社會(huì)融資成本\n（1974年至2016年）",

    caption="備注：金融資產(chǎn)數(shù)據(jù)來(lái)自于美聯(lián)儲(chǔ)發(fā)布的美國(guó)國(guó)家資產(chǎn)負(fù)債表年報(bào),貸款利率數(shù)據(jù)來(lái)自世界銀行官網(wǎng)。"

    )+

theme_void(base_size=18,base_family="myfzhzh") %+replace%

theme(

legend.position=c(.25,.95),

legend.direction ="horizontal",

plot.title=element_text(size=35,hjust=0),

plot.caption=element_text(size=20,hjust=0),

plot.margin=margin(10,0,10,0,unit="pt"),

legend.text=element_text(size=20)

)

showtext.end()

dev.off()

到此，關(guān)于“R語(yǔ)言怎么繪制家庭金融資產(chǎn)配置變化圖”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí)，請(qǐng)繼續(xù)關(guān)注億速云網(wǎng)站，小編會(huì)繼續(xù)努力為大家?guī)?lái)更多實(shí)用的文章！