【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

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

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

library(mapproj)

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

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