绘制中国地图

#绘制中国地图
install.packages('XML')
install.packages('rjson')
install.packages("httr")
devtools::install_github("lchiffon/REmap") 
devtools::install_github("lchiffon/baidumap") 
library(devtools)
library(REmap)
library(baidumap)
library(XML)
library(rjson)
library(httr)
province <- mapNames("china")           #全国省份
write.csv(province,"province.csv")
value1 <- read.csv("**.csv",header=F)   
mydata2011 <- data.frame(province,value1)    #合成数据框作图数据
remapC(mydata2011,color=c("red","white"),title="***", theme = get_theme("Sky", pointShow = F),mindata = 0,maxdata = NA)