小鱼儿的菜鸟笔记二 用R语言绘制中国完整地图

【2018-3-1上午】

R版本：Rx64 3.4.3  windows7

点击程序包--设定CRAN镜像--选择China(Lanzhou)[https]--确定

点击 文件--新建程序脚本

install.packages("mapdata")#安装mapdata包，以下缺少什么包则用同样的语句安装相应的包，并加载
library(mapdata)#加载mapdata包

map("china")#这个地图版本没有重庆市

#为获取有重庆市的中国完整地图，我们还需要进行以下几步操作

install.packages("maptools")#安装maptools包

library("maptools")#加载maptools包

#先要找到中国地图数据文件。可到微信公众号 iamExcelPro 发送 shapefile 获得下载地址。

#中国省级地图空间数据文件： http://pan.baidu.com/s/1gfFQGtP

#中国行政区域空间文件，无台湾 链接：http://pan.baidu.com/s/1o6Md8qY 密码：amgn
#中国省会城市经纬度坐标 链接：http://pan.baidu.com/s/1jGovOr0 密码：cq2m 

#将以上三个文件解压到D:/rstudy

china_map = readShapePoly("d:/rstudy/bou2_4p.shp") # 读取地图空间数据

plot(china_map)#绘制出完整地图

#以下几个包均为在安装ggplot2包时需要额外安装的包
install.packages("colorspace")
library(colorspace)

install.packages("plyr")
library(plyr)

install.packages("lazyeval")
library(lazyeval)

install.packages("mapproj")

library(mapproj)

#加载ggplot2包，用ggplot绘制，并使用polyconic投影方式

install.packages("ggplot2")
library(ggplot2)

ggplot(china_map,aes(x=long,y=lat,group=group))+

geom_polygon(fill="white",colour="grey")+

coord_map("polyconic")

效果如下：

参考资料：http://f.dataguru.cn/thread-585045-1-1.html