加载包:
library(ggplot2)
library(ggmap)
library(plyr)
library(maptools)
加载中国省份行政地图:
china_map<-readShapePoly...ggplot()+
geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill="white",colour="grey60")+
geom_point...其实这里还有一个图层函数也可以做出来这种放射状线条,geom_curve(),图层,不过它本身就是有弧度的曲线,曲率可以通过参数进行微调。...曲率调整:
ggplot()+
geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill="white",colour="grey60...当然,根据实际需要,你也可以将图层叠加N次,从而制作出与业务需求一致的多中心放射状路径图,这里只给出思路和大致步骤,感兴趣的小伙伴可以自己尝试。