大家大概都對如下信息圖并不陌生，該圖用100%堆積面積圖的方式來表現(xiàn)不同時期不同國家人數(shù)所占的比例。這是一種很有意思的表達方式，而面積圖也是很常用的數(shù)據(jù)圖表，現(xiàn)在讓我們一起來看看如何在R里用ggplot2和plot.area來制作一個面積圖。




在制作圖表之前，首先我們先創(chuàng)建一些隨機示例數(shù)據(jù)。R代碼如下：

 1 # 創(chuàng)建隨機數(shù)
 2 set.seed(3)

 3 # 創(chuàng)建時間序列（0-20的time step)
 4 t.step<-seq(0,20)

 5 # 創(chuàng)建十組變量名（從a到j(luò))
 6 grps<-letters[1:10]

 7 # 創(chuàng)建一個由隨機數(shù)組成的十組變量的時間序列
 8 grp.dat<-runif(length(t.step)*length(grps),5,15)

 9 # 為繪圖而創(chuàng)建所需的dataframe
10 grp.dat<-matrix(grp.dat,nrow=length(t.step),ncol=length(grps))
11 grp.dat<-data.frame(grp.dat,row.names=t.step)

數(shù)據(jù)結(jié)果如圖所示：




接下來，我們用plot.area來繪制一個簡易的面積圖，代碼如下：

1 source("https://gist.github.com/fawda123/6589541/raw/8de8b1f26c7904ad5b32d56ce0902e1d93b89420/plot_area.r")
2 plot.area(grp.dat)

效果如下：

而對于plot.area，有很多參數(shù)可以進行調(diào)整來得到不同效果的圖，比如顏色，坐標(biāo)名稱，是否100%堆積等。具體參數(shù)設(shè)置可參考如下：


若我們調(diào)整顏色：

1 plot.area(grp.dat,col=c('red','lightgreen','purple'))

得到的效果如下：


接下來我們看看如何用ggplot2來繪制一個面積圖。在繪圖之前，首先我們需要轉(zhuǎn)換我們的數(shù)據(jù)格式，需要將多個列匯總到一個變量列(variable)和一個數(shù)值列(value), 轉(zhuǎn)置數(shù)據(jù)的代碼如下：

1 p.dat<-data.frame(step=row.names(grp.dat),grp.dat,stringsAsFactors=F)
2 p.dat<-melt(p.dat,id='step')
3 p.dat$step<-as.numeric(p.dat$step)

接下來，我們需要導(dǎo)入ggplot2，以及繪制面積圖，代碼如下：

1 # 導(dǎo)入包
2 require(ggplot2)
3 require(reshape)
4 require(gridExtra)

6 # 繪制面積圖
7 p<-ggplot(p.dat,aes(x=step,y=value))
8 p1<-p + geom_area(aes(fill=variable))+ theme(legend.position="bottom")
9 p2<-p + geom_area(aes(fill=variable),position='fill')

我們來看一下p1和p2分別的效果：

當(dāng)然，geom有更多好玩的應(yīng)用，具體可以戳：http://docs.ggplot2.org/current/geom_area.html

From WizNote

總結(jié)

以上是生活随笔為你收集整理的初探ggplot2 geom__制作面积图的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。