这是我的最小例子：

Question

我正在尝试根据属性过滤地图上的点。只要一个属性只包含一个值，它就可以正常工作。如果一个属性有多个值（即“water; sand”），我无法根据过滤器映射此点。

这是我的最小例子：

library(data.table)
mydat <- data.table( londd=c(20, 38, 96, 32),
                     latdd=c(60, 56, 30, 31),
                     art=c("mountain", "water,sand", "sand", "forest"),
                     anwendung=c("a","b","c","d"))

#Set up ui
ui <- shinyUI(fluidPage(
sidebarPanel(h5("", width=2),
     checkboxGroupInput(inputId="ArtFlag", label=h4("Art des Bodens"), 
        choices=setNames(object=c("mountain", "water", "sand", "forest"),
                           nm=c("mountain", "water", "sand", "forest"))),
     checkboxGroupInput(inputId="AnwendungFlag", label=h4("Anwendung"), 
        choices=setNames(object=c("a","b","c","d"),
                           nm=c("a","b","c","d"))),
position="left"),
#App mainPanel content and styles
mainPanel(fluidRow(leafletOutput(outputId="lmap")))
              )
            )
          )

#Set up server
server <- function(input, output){
#Build leaflet map
lmap <- leaflet(data=mydat)%>%
addProviderTiles("Stamen.TonerLite", options = providerTileOptions(noWrap = TRUE)) %>%
fitBounds(~min(londd), ~min(latdd), ~max(londd), ~max(latdd))

#Filter data
datFilt <- reactive(mydat[art%in%input$ArtFlag & anwendung%in%input$AnwendungFlag])

#Add markers based on selected flags
observe({
  if(nrow(datFilt())==0) {print("Nothing selected");leafletProxy("lmap") %>% clearShapes()}
    else{ #print(paste0("Selected: ", unique(input$InFlags & input$InFlags2)))

    leafletProxy("lmap", data=datFilt())%>%clearShapes()%>%
    addCircleMarkers(lng=~londd, lat=~latdd,
                     clusterOptions=markerClusterOptions(), weight=3,
                     color="#33CC33", opacity=1, fillColor="#FF9900", 
                     fillOpacity=0.8)%>% clearShapes()
        }
     })

   output$lmap <- renderLeaflet(lmap)
}

#Run app
shinyApp(ui = ui, server = server)

如果我的编码格式不正确，我很抱歉。我还是个初学者。

非常感谢，

克里斯蒂娜

Answer 1

好吧，我不是百分百肯定这会解决你所寻找的问题，所以如果没有，请发表评论。你的问题出在你的reactive声明中 - 你没有“水，沙”的复选框，所以你永远不会得到复选框B的匹配。要获得复选框B的匹配，无论是水还是水选择了沙子，我尝试了这个，使用grepl来获得模式匹配，而不是完全匹配。尝试将datFilt来电更改为：

  #Filter data
  datFilt <- reactive({

    filterName <- ifelse(length(input$ArtFlag) == 0, 'none', input$ArtFlag)

    mydat[grepl(filterName, art) & anwendung%in%input$AnwendungFlag]
    })

（这可能不是最有效的代码，但希望它可以工作或让你更接近你正在寻找的东西。在一个完美的世界，如果结构可能更容易编码您的数据有所不同，但不确定这是否适合您选择）

Answer 2

Sam的回答不正确 - 您无法在grepl

中比较这样的两个向量

您需要连接并过滤：

datFilt <- reactive({
    ArtSearch <- paste0(input$ArtFlag,collapse = "|")
    ArtSearch <- gsub(",","|",ArtSearch)
    mydat[grepl(ArtSearch,art) & Anwendung %in% input$AnwendungFlag]
  })

使用R中的Leaflet和Shiny过滤地图 - 多个值属性

这是我的最小例子：

2 个答案: