R可视化 | 地理信息空间（下）
作者：张同学
来源：凹凸数据
如果对R可视化感兴趣的同学，记得看下积分商城，限时300兑换R可视化书籍
对上图实现的地图可视化，添加业务信息：
- 实现连续量的填充。
#连续量的填充
ggplot() +
#用经度数值填充
geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=long),colour = 'white')+
#加上城市名称标签
geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
#加上业务信息（中心点经纬度信息）
geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
coord_map("polyconic")
- 实现离散量的填充
#离散量的填充
ggplot() +
#用城市名称填充
geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=name),colour = 'white')+
#加上城市名称标签
geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
#加上业务信息（中心点经纬度信息）
geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
coord_map("polyconic")
- 调整地图坐标系。
#设置等距圆柱/球面投影-gilbert
ggplot() +
#用城市名称填充
geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=name),colour = 'white')+
#加上城市名称标签
geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
#加上业务信息（中心点经纬度信息）
geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
coord_map("gilbert")
球面投影
#兰伯特等积方位投影-azequalarea
ggplot() +
#用城市名称填充
geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=name),colour = 'white')+
#加上城市名称标签
geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
#加上业务信息（中心点经纬度信息）
geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
coord_map("azequalarea")
兰伯特等积方位投影
参考资料
[1]
张杰.《R语言数据可视化之美-专业图表绘制指南(增强版)》第11章 地理空间型图表: https://www.cnblogs.com/zzj420133722/p/13789195.html
本文参与 腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2020-10-13，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读