library(mapproj)
library(ggplot2)
library(readxl)
library(plyr)
#Reading boundary data from provinces
china_map <- readShapePoly("C:\\Users\\Administrator\\Desktop\\dt\\bou2_4p.shp")
#Change projection mode
ggplot(china_map,aes(x=long,y=lat,group=group))+
geom_polygon(fill="white",colour="grey")+
coord_map("polyconic")
#Loading and stitching administrative information
x <- china_map@<
library(mapproj)library(ggplot2)library(readxl)library(plyr)#Reading boundary data from provinceschina_map <- readShapePoly("C:\\Users\\Administrator\\Desktop\\dt\\bou2_4p.shp")#Change projection m
最低0.47元/天 解锁文章
429
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
