清明时节说死刑

死刑是自人类社会成长以来就降生的一种剥夺人生命的刑罚。死刑除了是对付不守法则的事件的处罚外，也是对粉碎法则的环境的一种繁重度的威吓。这个史前就已有的制度，是对举办不容于社会的行为的严厉处罚之一。世界上险些每一个国度或地域都曾有过“死刑”这种刑罚制度，时至今天，仍有一些国度继承存有并继承执行死刑。然而大都国度已经废止了死刑，有些国度则是已经10年以上未执行过死刑，或是仅答允在战时利用死刑。

在最近卫报的一则文章中，按照从2007到2011年的死刑数据举办了一些可视化事情。出格是按照大赦国际最近发布的一份陈诉，给出了一份死刑执行环境的气泡舆图。形象的说明白当当代界上尚有哪些国度在讯断与执行死刑。本文则是照猫画虎，以说明R语言中googleVis包和ggplot2包的利用要领。

上图是操作卫报所提供的数据，将2007年到2011年所有讯断死刑的数字按国别汇总。由于中国对该数据举办了保密，所以2009年后的数据没法获得。但仅基于前两年的数字，也有八千例阁下的死刑讯断，远超其它国度，所以可以从图上看到“赤色的中国”。越是灰色的区域暗示死刑讯断越少，而白色的区域则是暗示破除了死刑的国度，但俄罗斯应该是个破例，预计是缺乏数据的原因。大抵来看，好像社会经济发家的区域，死刑讯断数较少。

下图则是从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()