0

在 Leaflet 中有这样的功能来做图层分组图层 https://rstudio.github.io/leaflet/showhide.html

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

我是闪亮和地图甲板的新用户，但仍然无法弄清楚如何制作组图层。

我们如何在 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,
      width = 700,
      height = 700,
      style = "mapbox://styles/mapbox/streets-v11",
      pitch = 50,
      bearing = 25,
      zoom = 10,
      location =c(-73.99701041459296,40.716870845525336)) %>%
  add_hexagon(
    data = nyc_airbnb,
    lat = "latitude",
    lon = "longitude",
    radius = 200,
    elevation_scale = 5,
    layer_id = "nyc_hex",
    update_view = FALSE
  )
4

0 回答 0