Fatal编程技术网
  • r/
  • 对于R中的传单，是否可以添加一个按钮，用于为每个地图层添加和删除多边形？

对于R中的传单，是否可以添加一个按钮，用于为每个地图层添加和删除多边形？

r leaflet

对于R中的传单，是否可以添加一个按钮，用于为每个地图层添加和删除多边形？,r,leaflet,r-markdown,R,Leaflet,R Markdown,如果我们只需要一张标准的单张地图，如下所示： library(leaflet) library(maps) mapStates = map("state", fill = TRUE, plot = FALSE) leaflet(data = mapStates) %>% addTiles() %>% addPolygons(fillColor = topo.colors(10, alpha = NULL), stroke = FALSE) 有没有办法添加

如果我们只需要一张标准的
单张
地图，如下所示：

library(leaflet)
library(maps)

mapStates = map("state", fill = TRUE, plot = FALSE)

leaflet(data = mapStates) %>% addTiles() %>%
  addPolygons(fillColor = topo.colors(10, alpha = NULL), stroke = FALSE)
有没有办法添加一个按钮来添加和删除某些多边形？例如，如果上面的地图包含多个图层（即未保险费率和平均年龄），我需要一个按钮或切换开关，允许用户添加和删除以“a”开头的所有状态（愚蠢的示例）。因此，我没有4个层（两个层包含所有州的统计信息，两个层包含不以“a”开头的州的统计信息），而是只有两个层和一个按钮

我的警告是，它需要以.html格式导出，这意味着我无法部署
闪亮的
解决方案


可能有一个
addEasyButton
解决方案？
您需要在addPolygons（）函数的组参数中添加一个唯一标识符，然后根据

我无法完全提供代码，因为我没有您的mapStates数据，但这里有一个尝试


library(leaflet)
library(maps)

mapStates = map("state", fill = TRUE, plot = FALSE)

leaflet(data = mapStates) %>% addTiles() %>%
  addPolygons(fillColor = topo.colors(10, alpha = NULL), stroke = FALSE, group = "stateShape") %>%
addLayersControl(overlayGroups = c("stateShape"))