Leaflet Map - 第二个多边形使第一层不可点击

Question

我正在绘制美国社区调查数据的地图。目前我有一个主层（见下文plotMerge$incomePerCapita）。它运行良好，具有完全充实的弹出窗口、图像和所有内容。当我添加第二层以提供县和区域边界时，区域边界变得不可点击，似乎被新层掩盖了。

如果我交换图层顺序，区域边界将变得不可见。

map1<-leaflet()%>%
  addTiles()%>%

addPolygons(data = plotMerge,
          fillColor = ~pal(plotMerge$incomePerCapita),
          color = "#000000", #this is an outline color
          fillOpacity = 0.8,
          weight = 0.2,
          popup=popup)%>%
addPolygons(data = countyPoly,
            fillColor = "transparent",
           color = "#000000",
           stroke = TRUE,
           weight = 1,
           smoothFactor = 0.5,
           group = "Counties")%>%
addLegend(pal = pal,
            values  = plotMerge$incomePerCapita,
            position = "bottomright",
            title = "State-wide Income Percentiles",
            labFormat = labelFormat(digits=1))

saveas(map1, "map1.html")
map1

有没有办法在第二层中只显示边界的轮廓，而保持前一层的全部功能不变？

我是否应该以不同的方式编写 addPolygons 脚本以显示边界而不强加功能上晦涩的图层？

更新：

我修复了一个错误并交换了addPolygons 代码以使图层按正确的顺序排列。

map1<-leaflet()%>%
  addTiles()%>%
addPolygons(data = countyPoly,
            fillColor = "transparent",
           color = "#000000",
           stroke = TRUE,
           weight = 1,
           smoothFactor = 0.5,
           group = "Counties")%>%
addPolygons(data = plotMerge,
          fillColor = ~pal(plotMerge$incomePerCapita),
          color = "#000000", #this is an outline color
          fillOpacity = 0.8,
          weight = 0.2,
          popup=popup)%>%
addLegend(pal = pal,
            values  = plotMerge$incomePerCapita,
            position = "bottomright",
            title = "State-wide Income Percentiles",
            labFormat = labelFormat(digits=1))

感谢收看！

Answer 1

如果您使用sp 处理适当的空间对象，您可以将您的countyPoly 强制转换为SpatialLines(DataFrame)：

countyLines <- as(countyPoly, "SpatialLinesDataFrame")

然后您应该能够在显示顶部线条的同时单击底层多边形图层。

编辑： 作为一个可重现的示例，您可以尝试：

library(mapview)
library(sp)

pol <- as(gadmCHE, "SpatialPolygons")
ln <- as(gadmCHE, "SpatialLines")

mapview(gadmCHE, color = "blue") + pol # not clickable
mapview(gadmCHE, color = "blue") + ln # clickable

Answer 2

对于leaflet_1.1.0，看来@TimSalabim 提出的解决方案已经行不通了。
您现在可以使用addPolylines 代替addPolygons 来解决问题。