如何显示基于区域的标记聚类？

Question

基于此code，我希望显示地图上的标记簇，使其基于其特定区域。但是我无法正常工作。到目前为止，将根据地图上大多数标记所在的区域显示标记聚类。但我希望显示它们，以便可以在地图上看到北部，中部，东北，西部和东部等地区。

这是传单地图的快照 image

这是我的代码

export default {
  data() {
    return {
      image: require('~/path_to_image')
    }
  },

shinyApp（ui = ui，服务器=服务器）

这是我的数据示例

library(shiny)
library(leaflet)

ui <- fluidPage(
    titlePanel("Transactions for Resale Flats"),
    sidebarLayout(
        sidebarPanel(
            selectInput("year","Year", choices = c("",headlinedata$year))),
        mainPanel(leafletOutput("mymap", width = 1500 ,height = 1000)))


)


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

    output$mymap <- renderLeaflet({
        leaflet() %>% addTiles() %>% addCircleMarkers(data = headlinedata , 
                                                               lng = ~lon , 
                                                               lat = ~lat , radius = 10 , 
                                                               clusterOptions = markerClusterOptions())
    })

    observeEvent(
        eventExpr = input$map_zoom,{
            print(input$map_zoom)
            leafletProxy(mapId = 'mymap',
                         session=session
                         )%>%
                          clearMarkers()%>%
                          addMarkers(
                              data=headlinedata,
                              lng=~lon,
                              lat=~lat,
                              label=if(input$map_zoom<6)~region
                          )
        }
    )

}