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

当用户将鼠标悬停在传单热图的某个点上时，是否可以添加pop标签？例如，从

地震

数据集中查看

深度

和

台站

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))

图书馆（传单）
传单（地震）%>%
addProviderTiles（提供程序$CartoDB.DarkMatter）%>%
setView（178，-20,5）%>%
添加热图(
液化天然气=~long，lat=~lat，intensity=~mag，
模糊=20，最大=0.05，半径=15
)
##有关更多示例，请参见
#browseURL（system.file（“examples/heatmaps.R”，package=“mobile.extras”））
kml%
setView（-77.0369,38.9072,12）%>%
addProviderTiles（提供程序$CartoDB.Positron）%>%
添加KMLHEATMAP（kml，半径=7）%>%
addKML(
kml，
markerType=“circleMarker”，
笔划=假，fillColor=“黑色”，fillOpacity=1，
标记选项=标记选项（半径=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))

---

非常感谢这两份非常有用的文件

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))