利用googleVis包实现环境数据可视化

本例的目的是按中国行政区划标注出每个省份所排放的生活废水，其结果与之前的一篇博文类似，但利用的工具是googleVis包，此工具包将Google Visualisation API与R进行连接，直接用R中的数据生成交互的可视化图形，而不用再将数据上传到google。 

首先，从公众环境研究中心得到各省的数据，然后在google网站找到各省对应的地理位置编码，在excel中制成表格，然后读入到data.frame中。并载入googleVis包

data=read.table('clipboard',T) 

library(googleVis) 

数据框的部分数据如下显示：

head(data)
   province  code country waste
1     Anhui CN-34      CN  10.6
2    Fujian CN-35      CN  10.3
3     Gansu CN-62      CN   3.3
4 Guangdong CN-44      CN  49.9
5   Guangxi CN-45      CN  14.4
6   Guizhou CN-52      CN   4.6


然后利用gvisGeoMap命令创建对象，其参数注意要在regioin处填写CN表示中国地区，locationvar表示地理位置，而numvar表示取值

 G1 = gvisGeoMap(data, locationvar='code', numvar='waste','province' options=list(region='CN',dataMode="regions",width=600, height=300)) 

然后即可绘制出相应图形

plot(G1)

也可将图形对象导出成代码，然后复制到博客中显示如下

print(G1, 'chart')