地图视图在悬停时突出显示空间线

Question

我想在地图视图中突出显示前往地图上的节点/标记的所有线路。在此处的示例代码中，节点代表首都城市。将鼠标悬停在其中一个城市上时，我希望往返该城市的所有 4 条线路都会突出显示。当我尝试时，

hover

内的

mapview

选项没有效果。

library(dplyr)
library(readr)
library(janitor)
library(sp)
library(purrr)

cc = read_csv("http://techslides.com/demos/country-capitals.csv")

nodes = 
  cc %>% 
  clean_names() %>% 
  mutate(capital_latitude = as.numeric(capital_latitude)) %>% 
  select(capital_name, capital_longitude, capital_latitude) %>% 
  filter(capital_name %in% c("Warsaw", "El-Aaiún", "Jamestown", "Antananarivo", "Manama"))

edges = 
  full_join(
  nodes %>% rename(from = capital_name, from_lon = capital_longitude, from_lat = capital_latitude) %>% mutate(index = 1),
  nodes %>% rename(to = capital_name, to_lon = capital_longitude, to_lat = capital_latitude) %>% mutate(index = 1),
  by = "index") %>% 
  mutate(from_to = paste(from, "_", to)) %>% 
  filter(from != to) %>% 
  select(-index) %>% 
  rowwise() %>%  
  mutate(capital_lines = pmap(list(from_lon = from_lon, from_lat = from_lat, to_lon = to_lon, to_lat = to_lat, from_to = from_to),  
                             function(from_lon, from_lat, to_lon, to_lat, from_to) {
                               Line(cbind(c(from_lon, to_lon), 
                                          c(from_lat, to_lat))) %>% 
                                 Lines(., ID = from_to)}
  )) %>% 
  mutate(capital_lines = list(SpatialLines(list(capital_lines))))


mapview(nodes, xcol = "capital_longitude", ycol = "capital_latitude") +
  mapview(do.call(rbind, edges$capital_lines))

Answer 1

library(mapview)
mapviewOptions(fgb = FALSE)
mapview(shp, highlight = leaflet::highlightOptions(color = "red", weight = 2, sendToBack = TRUE))

这对我有用。 详情请参阅https://github.com/r-spatial/mapview/issues/392。