我已经建立了一个交互式地图来按星期和年份过滤多伦多汽车盗窃案。但是,我一直在查看构建的地图,并且似乎根本就没有对数据进行过滤。看起来每个输入更改都会绘制相同的点。
考虑到代码看起来不错,我不确定什么不起作用。这是我所拥有的:
ui <- fluidPage(
titlePanel("Toronto Auto Thefts"),
sidebarLayout(
sidebarPanel(
selectInput("checkGroup", h3("Weekday"), choices = list("Monday" = 1,
"Tuesday" = 2,
"Wednesday" = 3,
"Thursday" = 4,
"Friday" = 5,
"Saturday" = 6,
"Sunday" = 7), selected = 1),
selectInput("checkGroup2", h3("Year"), choices = list("2014" = 1,
"2015" = 2,
"2016" = 3,
"2017" = 4,
"2018" = 5), selected = 1),
),
mainPanel (leafletOutput("map", "100%", 500))
))
server <- function(input, output, session){
output$map <- renderLeaflet({
df <- data[data$occurrencedayofweek == input$checkGroup & data$occurrenceyear == input$checkGroup2]
leaflet() %>%
addTiles() %>%
addCircles(data = df)
})
}
数据是数据帧吗?如果是这样,则需要逗号,在这里:
data[data$occurrencedayofweek == input$checkGroup & data$occurrenceyear == input$checkGroup2, ]