leaflet在线地图之热力密度图
之前在练习leaflet的时候没有找到R语言leaflet中的热力密度图接口函数，一直感觉很遗憾。
最近在Stack Overflow上面发现了leaflet包的一个插件leaflet.esri包，结合leaflet可以在R语言中提供非常完美的热力密度图解决方案，顿时觉得发现了新大陆，立马分享给大家具体的实现思路。
library("leaflet")
library("leafletCN")
library("leaflet.extras")
library("xlsx")mydata <- read.xlsx(
"D:/Python/File/Cities2015.xlsx",
sheetName="Sheet1",
header=T,
encoding='UTF-8',
stringsAsFactors=FALSE,
check.names=FALSE
) %>%
na.omit()
1、默认状态下热力图效果：
leaflet(mydata) %>%
addTiles() %>%
addHeatmap(lng = ~lon, lat = ~lat, radius = 8)
2、通过addTiles加载高德地图：
leaflet(mydata) %>%
addTiles( 'http://webrd02.is.autonavi.com/appmaptile?lang=zh_cn&size=1&scale=1&style=8&x={x}&y={y}&z={z}',
options = tileOptions(tileSize=256,minZoom=4,maxZoom=17),
attribution='© <a href="http://ditu.amap.com/">高德地图</a>',
) %>%
addHeatmap(lng = ~lon, lat = ~lat, radius = 8)
3、这里可以借用leafletCN::amap函数简化高德地图的调用，该函数封装了高德地图api的接口
leaflet(mydata) %>% leafletCN::amap() %>%
addHeatmap(lng = ~lon, lat = ~lat, radius = 8)
4、当然腾讯地图的调用也是可以支持的：
leaflet(mydata) %>%
addTiles( 'http://rt{s}.map.gtimg.com/realtimerender?z={z}&x={x}&y={y}&type=vector&style=0',
options = tileOptions(tms=TRUE, tileSize=256, minZoom=4, maxZoom=17, subdomains="0123"),
attribution = '© <a href="http://map.qq.com/">腾讯地图</a>'
) %>% setView(116.40,39.90, zoom = 4) %>%
addHeatmap(lng = ~lon, lat = ~lat, radius = 8)
以上参数中tileSize控制默认显式地图窗口面积，minZoom代码缩放的最大级别（比例尺越大），同理maxZoom=17代表缩放的最小级别（比例尺越小）。
如果你还想了解leafelt更为丰富的用法和特性，请参考以下这些分享，期待大家可以将这些在线地图丰富的可视化特性结合shiny容器打造出更具业务价值的数据分析看板和仪表盘，也期待同样喜欢可视化的小伙伴儿可以一起线上线下交流。
动态地理信息可视化——leaflet在线地图简介
动态地理信息可视化——散点地图系列
动态地理信息可视化——leaflet构造路径图
动态地理信息可视化——leaflet填充地图
Leaflet在线地图进阶宝典——json素材操纵与图层面板控制
leaflet在线地图进阶宝典之——高级辅助特性
leaflet在线地图进阶宝典——高级交互特性
leaflet的小搭档leaflet.minicharts来了，从此动态地图又多了一些乐趣~~~
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2018-06-16，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
