r - 当鼠标悬停在 R 传单中的圆圈上时显示折线

Question

我有一个流程图 - 在 R 中使用传单

library(leaflet)
m <- leaflet(AM_Peak) %>% 
addTiles('http://{s}.basemaps.cartocdn.com/dark_all/{z}/{x}/{y}.png',
attribution='Map tiles by <a href="http://stamen.com">Stamen Design</a>, 
<a href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a> &mdash; Map data &copy; <a href="http://www.openstreetmap.org/copyright">OpenStreetMap</a>') %>%
setView(103.831959, 1.360270, zoom = 11) %>% 
addCircles(~x_AM_Peak$Entry_Station_Long, ~x_AM_Peak$Entry_Station_Lat,
weight =x_AM_Peak$radius, radius=40, 
label = ~as.character(x_AM_Peak$Entry_Station),color="#ffa500", stroke = TRUE, fillOpacity = 0.8) %>%
    addPolylines(data = y_AM_Peak,
                 stroke = TRUE,color = "#6eff2a", weight = 0.2, opacity = 0.2,
                 fill = FALSE, fillOpacity = 0.1, dashArray = NULL,
                 smoothFactor = 1)

像这样的东西

我要做的是 - 默认情况下，地图应该有所有圆圈 - 当我将鼠标悬停在圆圈点上时 - 它应该只显示从那个圆圈开始的所有折线（如链接所示）。

Answer 1

没有尝试过，但这是我将遵循的方法：

a) 为每个线组创建不同的图层组。

b) 将圆形标记层设置为交互式（Leaflet 有此选项）。

c) 使用 Leaflet 支持的 'mouseover' 和 'mouseout' 事件。

d) 使用显示/隐藏方法仅显示连接到“悬停”圆形标记的图层组（线）。我认为您可以使用 Leaflet 方法显示/隐藏（否则，jQuery 可能很有用）。