在传单中循环

Question

我有下面的代码，我想

forloop

每个集群的

overlayGroup

。

library(dplyr); library(leaflet); library(raster);library(htmltools)
cluster <- c("1st.C", "2nd.C", "3rd.C")
lat     <- c(40.8518, 42.6611, 37.3089)
long    <- c(14.2681, 13.6987, 13.5858)
data <- data.frame(cluster, lat, long); data
adm <- raster::getData('GADM', country= "italy" , level=1) 



map_layers <- function() {
  
  #number of groups
  k <- n_distinct(data$cluster) 
  
  #base map
  map <- leaflet() %>%
    addProviderTiles(providers$CartoDB.Positron)
  
  #loop through all groups and add a layer one at a time
  for (i in  1:k) {
    map <- map %>% 
      addCircleMarkers(
        data = data %>% filter(cluster == i), group = as.character(i),
        radius = 3, lng = ~long, lat = ~lat
      )
  }
  
  #create layer control
  map %>% 
    addLayersControl(
      overlayGroups = c(1:k),
      options = layersControlOptions(collapsed = FALSE)) %>% 
    hideGroup(as.character(c(2:k))) #hide all groups except the 1st one
  
}

#plot the map
map_layers()

Answer 1

我认为这就是您想要实现的目标：

leaflet() %>%
  addProviderTiles(providers$CartoDB.Positron) %>% 
  addCircleMarkers(data = data, 
                   radius = 3, lng = ~long, lat = ~lat, group = cluster) %>% 
  addLayersControl(overlayGroups = cluster,
                   options = layersControlOptions(collapsed = FALSE)) %>% 
  hideGroup(group = data$cluster[2:3])