如何使用 Mapdeck 和 Shiny 创建图层分组

如何解决如何使用 Mapdeck 和 Shiny 创建图层分组

在Leaflet中，有像这样进行图层分组的功能 https://rstudio.github.io/leaflet/showhide.html

它帮助用户在想要使用的层图之间导航，例如网格、十六进制、热图、点簇等。

我是闪亮和 mapdeck 的新用户，仍然不知道如何制作组图层。

我们如何在 mapdeck 和 Shiny 中创建它，这里是代码示例：

library(shiny)
library(shinydashboard)
library(mapdeck)


key <- 'MAPBox_KEY'
nyc_airbnb <- read.csv("https://raw.githubusercontent.com/mahardisetyoso/shiny_hardysetyoso/main/shiny_dashboard/data/AB_NYC_2019.csv",stringsAsFactors = TRUE)

ui <- navbarPage("Shiny Dashboard",tabPanel("mapdeck",mapdeckOutput("mapdeck",height = 1000,width = 1900)),tabPanel("About")

)

server <- function(input,output) {
    output$mapdeck <- rendermapdeck({

        mapdeck(
            token = key,width = 700,height = 700,style = "mapBox://styles/mapBox/streets-v11",pitch = 50,bearing = 25,zoom = 10,location = c(-73.99701041459296,40.716870845525336)) %>%
            add_grid(
                data = nyc_airbnb,lat = "latitude",lon = "longitude",cell_size = 200,elevation_scale = 5,layer_id = "nyc_grid",update_view = FALSE
            )
    })


}

shinyApp(ui,server)

另一个我想添加为图层组的 mapdeck Viz

mapdeck(
      token = key,location =c(-73.99701041459296,40.716870845525336)) %>%
  add_hexagon(
    data = nyc_airbnb,radius = 200,layer_id = "nyc_hex",update_view = FALSE
  )