小编wor*_*ode的帖子

我试图让我的传单地图在选择两个图层时都没有显示图例,并且当只选择一个图层时显示该图层的图例.

我使用Javascript找到了这些解决方案:

• 如何用leaflet.js在多个地图传说之间切换？
• https://gis.stackexchange.com/questions/92257/leaflet-add-and-remove-legends-with-layer-selection

但是我还没弄清楚如何在R中应用这些技术.有人能指出我要阅读的文件,还是可以给我一个提示？

这是一些测试数据:

df1
  Tickets      long      lat
1      28 -71.12088 42.37418
2       4 -71.09524 42.36911
3       3 -71.11935 42.38532
df2 
  Tickets     long      lat
4      33 -71.1213 42.37401
5       1 -71.0915 42.37255
6      21 -71.1226 42.37512
7       1 -71.1016 42.36411

这是一段代码:

base_map <- leaflet() %>% 
  addProviderTiles('Stamen.TonerLite') %>% 
  setView(-71.128184, 42.3769824, zoom = 14)

pal1 <- colorNumeric(palette = "RdBu",
                    domain = df1$Tickets)
pal2 <- colorNumeric(palette = "RdBu",
                    domain = df2$Tickets)

base_map %>% 
    addCircles(data = df1, lng = df1$long, lat = …