在传单热图中添加弹出标签答案

【问题标题】：Add a pop-up label in a leaflet heatmap在传单热图中添加弹出标签
【发布时间】：2020-09-08 15:59:22
【问题描述】：

当用户将鼠标悬停在传单热图中的某个点上时，是否可以添加弹出标签？例如从quakes 数据集中查看depth 和stations。

library(leaflet)

leaflet(quakes) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView( 178, -20, 5 ) %>%
  addHeatmap(
    lng = ~long, lat = ~lat, intensity = ~mag,
    blur = 20, max = 0.05, radius = 15
  )

## for more examples see
# browseURL(system.file("examples/heatmaps.R", package = "leaflet.extras"))
kml <- readr::read_file(
  system.file("examples/data/kml/crimes.kml.zip", package = "leaflet.extras")
)

leaflet() %>%
  setView(-77.0369, 38.9072, 12) %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  addKMLHeatmap(kml, radius = 7) %>%
  addKML(
    kml,
    markerType = "circleMarker",
    stroke = FALSE, fillColor = "black", fillOpacity = 1,
    markerOptions = markerOptions(radius = 1))

【问题讨论】：

标签： r leaflet heatmap

【解决方案1】：

我不确定这是您想要的，但您可以按常规方式添加标记弹出窗口：

library(leaflet)
leaflet(quakes) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView( 178, -20, 5 ) %>%
  addHeatmap(
    lng = ~long, lat = ~lat, intensity = ~mag,
    blur = 20, max = 0.05, radius = 15
  ) %>% 
  addMarkers(lng = quakes$long, lat = quakes$lat, 
             popup = paste("Depth", quakes$depth, "<br>",
                           "Stations:", quakes$stations))

如果您不希望主要标记可见，您可以添加圆形标记，但将 fillOpacity 设置为零：

leaflet(quakes) %>%
  addProviderTiles(providers$CartoDB.DarkMatter) %>%
  setView( 178, -20, 5 ) %>%
  addHeatmap(
    lng = ~long, lat = ~lat, intensity = ~mag,
    blur = 20, max = 0.05, radius = 15
  ) %>% 
  addCircleMarkers(lng = quakes$long, lat = quakes$lat, 
                   fillOpacity = 0, weight = 0,
                   popup = paste("Depth:", quakes$depth, "<br>",
                                 "Stations:", quakes$stations),
                   labelOptions = labelOptions(noHide = TRUE))

【讨论】：