【发布时间】：2020-07-10 21:10:34
【问题描述】：
我正在尝试制作一个闪亮的传单地图，以便用户能够选择一个变量，并且该地图将根据用户选择的变量为标记着色。我可以为标记着色，但不幸的是颜色与所选变量不对应。因此，例如，如果用户选择按“年份”着色，则同一年份的所有点都应该着色相同，但事实并非如此。我错过了什么？
library(shiny)
library(dplyr)
library(leaflet)
library(RColorBrewer)
SampleData <- data.frame(year = c('2017', '2018', '2017', '2020'),
lon = c(38.62893, 38.62681, 38.62797, 38.62972),
lat = c(-90.26233, -90.25272, -90.26232, -90.25703),
month = c('January', 'February', 'March', 'April'),
new_use = c('Industrial', 'Institutional', 'Commercial', 'Residential'))
vars <- c(
"Color by Year" = "year",
"Color by Month" = "month",
"Color by Use" = "new_use"
)
ui <- bootstrapPage(
tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
leafletOutput("map", width = "100%", height = "100%"),
absolutePanel(top = 10, right = 10,
pickerInput(inputId = "month",
label = "Select Month:",
choices = sort(unique(SampleData$month)),
multiple = TRUE,
selected = sort(unique(SampleData$month)),
options = list(
`actions-box` = TRUE,
`selected-text-format` = paste0("count > ", length(sort(unique(SampleData$month))) -1), `count-selected-text` = "All Months")),
pickerInput(inputId = "year",
label = "Select Year:",
choices = sort(unique(SampleData$year)),
multiple = TRUE,
selected = sort(unique(SampleData$year)),
options = list(
`actions-box` = TRUE,
`selected-text-format` = paste0("count > ", length(sort(unique(SampleData$year))) -1), `count-selected-text` = "All Years")),
pickerInput(inputId = "new_use",
label = "Select Permit Use:",
choices = sort(unique(SampleData$new_use)),
multiple = TRUE,
selected = sort(unique(SampleData$new_use)),
options = list(
`actions-box` = TRUE,
`selected-text-format` = paste0("count > ", length(sort(unique(SampleData$new_use))) -1), `count-selected-text` = "All Permit Types")),
selectInput(inputId = "color",
label = "Select a Color Scheme:",
choices = vars)
)
)
server <- function(input, output, session) {
output$map <- renderLeaflet({
leaflet() %>%
setView(lng = -90.1994, lat = 38.6270, zoom = 10)%>%
addProviderTiles(providers$CartoDB.Positron)
})
# Reactive expression for the data subsetted to what the user selected
filteredData <- reactive({
dplyr::filter(SampleData, year %in% input$year & new_use %in% input$new_use & month %in% input$month)
})
observe({
colorBy <- input$color
if (colorBy == "year") {
colorData <- sort(unique(SampleData$year))
pal <- colorFactor("Set1", colorData)
}
if (colorBy == "month") {
colorData <- sort(unique(SampleData$month))
pal <- colorFactor("Set1", colorData)
}
if (colorBy == "dayNight") {
colorData <- sort(unique(tot$dayNight))
pal <- colorFactor("Set1", colorData)
}
leafletProxy("map") %>%
clearShapes() %>%
addCircleMarkers(data = filteredData(),
~lat, ~lon, color = pal(colorData), popup = paste("<b>Year:</b> ", filteredData()$year, "<br>",
"<b>Permit Type:</b> ", filteredData()$new_use, "<br>")) %>%
addLegend("bottomright", pal=pal, values=colorData, title=colorBy,
layerId="colorLegend")
})
}
shinyApp(ui, server)
【问题讨论】：