R语言leaflet怎么实现热力密度图

本文小编为大家详细介绍“R语言 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='© 高德地图',
    ) %>%
  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 = '© 腾讯地图'
    ) %>%  setView(116.40,39.90, zoom = 4) %>%
     addHeatmap(lng = ~lon, lat = ~lat, radius = 8)

以上参数中tileSize控制默认显式地图窗口面积，minZoom代码缩放的最大级别（比例尺越大），同理maxZoom=17代表缩放的最小级别（比例尺越小）。

读到这里，这篇“R语言 leaflet怎么实现热力密度图”文章已经介绍完毕，想要掌握这篇文章的知识点还需要大家自己动手实践使用过才能领会，如果想了解更多相关内容的文章，欢迎关注创新互联行业资讯频道。