#绘制中国地图
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)
绘制中国地图
最新推荐文章于 2024-06-11 21:36:57 发布