用R画中国地图

如何画中国地图

 

install.packages("maps")
install.packages("mapdata")
install.packages("maptools")
library(maps)
library(mapdata)
library(maptools)
setwd("D:\\Documents\\work\\myself_learn\\地图")
map<-readShapePoly('bou2_4p.shp')
plot(map)

 

 

 

bou2_4p.shp是什么鬼？

是中国行政区地图的数据信息其中一个文件。

中国行政区地图的数据信息包括三个文件bou2_4p.dbf，bou2_4p.shp和bou2_4p.shx

怎么获取？

http://cos.name/wp-content/uploads/2009/07/chinaprovinceborderdata_tar_gz.zip下载，解压缩

最近画的两个地图

#################用echart作图###############################

 

library(devtools)
#install_github('lchiffon/REmap')
library(REmap)
setwd("D:\\Documents\\work\\myself_learn\\地图")
city_vec = c("Beijing","Shanghai","Guangzhou")
get_city_coord("Beijing")
get_city_coord("beijing")
get_city_coord("北京")
get_city_coord( c("Beijing","Shanghai","Guangzhou")) #报错，只能填写单个，不能是向量
get_geo_position (c("beijing","Shanghai","广州","新疆"))

##################remap迁徙地图############
#remap 中文不稳定 
#data 要求2列：一列出发省份，另一列到达省份
migrate_map_data<-read.csv("迁徙地图数据.csv",stringsAsFactors=FALSE)

origin<-c("shanghai","jiangsu","anhui","zhejiang","shandong","hubei","guangzhou","heilongjiang","sichuan","fujian")
destination<-rep("beijing",10)
migrate_map_data1<-as.data.frame(cbind(origin,destination))
remap(migrate_map_data1, title = "Draw by 小酥饼maomao", subtitle = "", 
      theme =get_theme("Dark"))            ##中英文均可