R + Shiny +传单：根据缩放级别在地图上汇总值

如何解决R + Shiny +传单：根据缩放级别在地图上汇总值

请考虑文章末尾的小例子。我只是在地理地图上放了很多标记。我希望能够做两件事：

为地图上的每个标记关联一个值（简称为数字）。当我将鼠标悬停在标记上时，该数字应该可见。
为简单起见，假设我们将值1与每个标记关联。如果根据缩放级别适当地汇总了总数（附加在标记上的各个值的总和），那将是很好的。例如，当我缩小时，应该看到一个值为40的标记，然后逐渐有更多的标记与一个相关的值，这些值的总和将始终为40。

有人知道如何实现吗？谢谢！

谢谢！

library(shiny)
library(leaflet)

r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
  leafletoutput("mymap"),p(),actionButton("recalc","New points")
)

server <- function(input,output,session) {

  points <- eventReactive(input$recalc,{
    cbind(rnorm(40) * 2 + 13,rnorm(40) + 48)
  },ignoreNULL = FALSE)

  output$mymap <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$Stamen.TonerLite,options = providerTileOptions(Nowrap = TRUE)
      ) %>%
      addMarkers(data = points())
  })
}

shinyApp(ui,server)

^{由reprex package（v0.3.0）于2020-09-16创建}

解决方法

您将必须自己进行聚合，然后使用不同的组ID添加它。然后，您可以处理在groupOptions上哪个缩放级别上显示哪个组。有关更多信息，请查看this answer