在最近卫报的一则文章中,根据从2007到2011年的死刑数据进行了一些可视化工作。特别是根据大赦国际最近公布的一份报告,给出了一份死刑执行情况的气泡地图。形象的说明了当今世界上还有哪些国家在判决与执行死刑。本文则是照猫画虎,以说明R语言中googleVis包和ggplot2包的使用方法。
下图则是从1991年到2011年间,保留死刑的国家数目和废除死刑国家数目的条形图。蓝色条形表示废除死刑国家数目的多少。很容易从图中看到在未来的趋势。
R代码如下:
data1 <- read.csv('d:/data.csv',T)
names(data1) <- c('country','code','sentenced')
library(googleVis)
g1 <- gvisGeoMap(data1, locationvar='code', numvar='sentenced','country',options=list(region='world',colors='[0xDCDCDC,0xEE2C2C,]' ,dataMode="regions",width=600, height=400))
plot(g1)
# print(g1, 'chart')
data2 <- read.csv('d:/data2.csv',T)
names(data2) <- c('year','executing','abolitionist')
library(reshape)
data2.melt <-melt(data2,measure=c('executing','abolitionist'))
library(ggplot2)
p <- ggplot(data2.melt,aes(x=factor(year),y=value,fill=variable))
p + geom_bar()
没有评论:
发表评论