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@<
在地图上加入直方图
最新推荐文章于 2023-12-27 16:23:02 发布
