R可视化 | 地理信息空间(下)


作者:张同学

来源:凹凸数据

前文:R可视化 | 地理信息空间(上)

如果对R可视化感兴趣的同学,记得看下积分商城,限时300兑换R可视化书籍

对上图实现的地图可视化,添加业务信息:

  1. 实现连续量的填充。

#连续量的填充
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")
  1. 实现离散量的填充

#离散量的填充
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")
  1. 调整地图坐标系。

#设置等距圆柱/球面投影-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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

朱小五是凹凸君呀

感谢支持

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值