如何将 fillColor 调色板更新为 shiny map 中选定的输入？

Question

我在将我的 map 从 static 转换为响应式时遇到问题，因此用户可以 select 他们想要查看的数据。 不知何故，我没有成功地将输入连接到 dataframe。我的数据来自 shapefile，大致如下所示：

 NAME  Average      Rate                       geometry
1  Alcona 119.7504 0.1421498 MULTIPOLYGON (((-83.88711 4...
2   Alger 120.9212 0.1204398 MULTIPOLYGON (((-87.11602 4...
3 Allegan 128.4523 0.1167062 MULTIPOLYGON (((-85.54342 4...
4  Alpena 114.1528 0.1410852 MULTIPOLYGON (((-83.3434 44...
5  Antrim 124.8554 0.1350004 MULTIPOLYGON (((-84.84877 4...
6  Arenac 127.8809 0.1413534 MULTIPOLYGON (((-83.7555 43...

在下面的服务器部分，您可以看到我尝试使用 reactive 来获取所选变量，当我编写print(select)时，它确实打印了正确的变量名称，但是当我尝试将其放入colorNumeric() function 时，它是显然不被认可。 我得到的 map 都是相同的蓝色阴影，而不是基于该县变量值的不同阴影。

ui <- fluidPage(
  fluidRow(
    selectInput(inputId="var",
                label="Select variable",
                choices=list("Average"="Average",
                             "Rate"="Rate"),
                selected=1)
  ),
  fluidRow(
    leafletOutput("map")
  )
)

server <- function(input, output, session) {
  # Data sources
  counties <- st_read("EITC_counties.shp") %>%
    st_transform(crs="+init=epsg:4326")
  counties_clean <- select(counties, NAME, X2020_Avg., X2020_Takeu)
  counties_clean <- counties_clean %>%
    rename("Average"="X2020_Avg.",
           "Rate"="X2020_Takeu")
  # Map
  variable <- reactive({
    input$var
  })
  output$map <- renderLeaflet({
    select <- variable()
    print(select)
    pal <- colorNumeric(palette = "Blues", domain = counties_clean$select, na.color = "black")
    color_pal <- counties_clean$select
    leaflet()%>%
    setView( -84.51, 44.18, zoom=5) %>%
    addPolygons(data=counties_clean, layerId=~NAME,
                weight = 1, smoothFactor=.5, 
                fillOpacity=.7, 
                fillColor=~pal(color_pal()),
                highlightOptions = highlightOptions(color = "white", 
                                                    weight = 2,
                                                    bringToFront = TRUE)) %>%
    addProviderTiles(providers$CartoDB.Positron)
  })
}

shinyApp(ui, server)

我已经尝试将反应变成一个事件，并使用 leaflet 代理使用observe function，但它只会产生错误。 我还尝试跳过反应式定义，只是将 input$var 直接放入调色板 ( counties_clean$input$var )，但它同样没有显示任何颜色变化。

当我之前创建一个 static map 使用counties_clean$Average设置调色板时，它正确地出现了，但是用用户输入替换 Average 是我似乎出错的地方。 提前感谢您提供的任何指导，如果我可以分享任何其他说明，请告诉我。

Answer 1

不幸的是，如果没有数据，您的代码将无法重现，但这一行最有可能出现错误

color_pal <- counties_clean$select

此行的作用是从您的数据中提取名为select的列。 此列不存在，因此它将返回NULL 。

但是，您想要的是提取名称由select的内容给出的列，因此您想尝试：

color_pal <- counties_clean[[select]]