如何解决在传单热图中添加一个弹出标签
当用户将鼠标悬停在传单热图的特定点上时,是否可以添加弹出标签?例如,从depth
数据集中查看stations
和quakes
。
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))
解决方法
我不确定这是否是您想要的,但是您可以按照通常的方式添加标记弹出窗口:
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,radius = 15
) %>%
addCircleMarkers(lng = quakes$long,fillOpacity = 0,weight = 0,popup = paste("Depth:",quakes$stations),labelOptions = labelOptions(noHide = TRUE))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。