R語言 leaflet怎么實現(xiàn)熱力密度圖

本文小編為大家詳細(xì)介紹“R語言 leaflet怎么實現(xiàn)熱力密度圖”，內(nèi)容詳細(xì)，步驟清晰，細(xì)節(jié)處理妥當(dāng)，希望這篇“R語言 leaflet怎么實現(xiàn)熱力密度圖”文章能幫助大家解決疑惑，下面跟著小編的思路慢慢深入，一起來學(xué)習(xí)新知識吧。

最近在Stack Overflow上面發(fā)現(xiàn)了leaflet包的一個插件leaflet.esri包，結(jié)合leaflet可以在R語言中提供非常完美的熱力密度圖解決方案，頓時覺得發(fā)現(xiàn)了新大陸，立馬分享給大家具體的實現(xiàn)思路。

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、默認(rèn)狀態(tài)下熱力圖效果：

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='&copy; <a href="http://ditu.amap.com/">高德地圖</a>',
    ) %>%
  addHeatmap(lng = ~lon, lat = ~lat, radius = 8)

3、這里可以借用leafletCN::amap函數(shù)簡化高德地圖的調(diào)用，該函數(shù)封裝了高德地圖api的接口

leaflet(mydata) %>% leafletCN::amap() %>%
  addHeatmap(lng = ~lon, lat = ~lat, radius = 8)

4、當(dāng)然騰訊地圖的調(diào)用也是可以支持的：

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 = '&copy; <a href="http://map.qq.com/">騰訊地圖</a>'
    ) %>%  setView(116.40,39.90, zoom = 4) %>%
     addHeatmap(lng = ~lon, lat = ~lat, radius = 8)

以上參數(shù)中tileSize控制默認(rèn)顯式地圖窗口面積，minZoom代碼縮放的最大級別（比例尺越大），同理maxZoom=17代表縮放的最小級別（比例尺越?。?。

讀到這里，這篇“R語言 leaflet怎么實現(xiàn)熱力密度圖”文章已經(jīng)介紹完畢，想要掌握這篇文章的知識點還需要大家自己動手實踐使用過才能領(lǐng)會，如果想了解更多相關(guān)內(nèi)容的文章，歡迎關(guān)注億速云行業(yè)資訊頻道。