R 未找到有光泽的传单数据

对于能够呈现传单地图的闪亮应用程序，我使用的是“ggmap”包中的“犯罪”数据集。我试图实现两个输入。一个是“进攻”，另一个是“月份”变量。这些变量可以从Shining下拉列表中获得。目标是根据攻击类型和月份组合进行过滤和显示。例如四月份的抢劫案

执行时，我得到未找到的

点数据错误

下面是一个用于提取数据的代码构造

fData <- reactive({
  data <- hustonCrime

           if (input$offenseFilter != "All"){
                  data <- subset(hustonCrime, offense %in% input$offenseFilter) 
                  }
           if (input$monthFilter != "All"){
                   data <- subset(hustonCrime, month %in% input$monthFilter) 
                 }
   })

fData要修复不良过滤情况，您必须将代码切换到以下位置：

fData <- reactive({
  data <- hustonCrime
  if (input$offenseFilter != "All") {
    data <- subset(data, offense %in% input$offenseFilter)
  }
  if (input$monthFilter != "All") {
    data <- subset(data, month %in% input$monthFilter)
  }
  return(data)
})

fData要修复不良过滤情况，您必须将代码切换到以下位置：

fData <- reactive({
  data <- hustonCrime
  if (input$offenseFilter != "All") {
    data <- subset(data, offense %in% input$offenseFilter)
  }
  if (input$monthFilter != "All") {
    data <- subset(data, month %in% input$monthFilter)
  }
  return(data)
})

fData可能只是不返回数据的问题。尝试在代码末尾添加
return（data）
。另外，顺便说一句，我认为你的代码目前并没有按照你想要的方式进行过滤。谢谢brittenbreturn（data）'修复了其中一个问题。该应用程序现在可以根据地图上的每个变量进行过滤，但不能按我想要的组合进行过滤。有没有任何关于我想要的过滤效果的建议？可能只是一个不返回数据的问题。尝试在代码末尾添加
return（data）
。另外，顺便说一句，我认为你的代码目前并没有按照你想要的方式进行过滤。谢谢brittenbreturn（data）'修复了其中一个问题。该应用程序现在可以根据地图上的每个变量进行过滤，但不能按我想要的组合进行过滤。有没有关于过滤效果的建议？正如我在上面的回复中提到的，添加“retrun（data）”修复了其中一个问题-另一个问题是能够结合攻击和月份进行过滤..以上内容应该已经修复了您在组合过滤时的问题。正如我在回答中所述，您的代码目前在每个步骤中都用
hustonCrime
的新子集替换
data
，这将使您只剩下筛选变量中的一个或另一个。我将编辑这个问题，让您详细了解这个问题。再次感谢brittenb。目标是-选择犯罪=抢劫和月份=六月-并仅显示六月的抢劫。事实上，我在6月份看到了所有的犯罪行为——尽管输入的犯罪行为是抢劫。我正在玩dplyr过滤函数-但还没有…你有没有改变你的代码来匹配我的？因为根据你所说的，你似乎没有这么做。上面的代码不仅向代码中添加了
return（data）
。正如我在上面的回复中提到的，添加'retrun（data）'修复了其中一个问题-另一个问题是能够结合攻击和月份进行过滤。上面的代码应该已经修复了您在组合过滤中的问题。正如我在回答中所述，您的代码目前在每个步骤中都用
hustonCrime
的新子集替换
data
，这将使您只剩下筛选变量中的一个或另一个。我将编辑这个问题，让您详细了解这个问题。再次感谢brittenb。目标是-选择犯罪=抢劫和月份=六月-并仅显示六月的抢劫。事实上，我在6月份看到了所有的犯罪行为——尽管输入的犯罪行为是抢劫。我正在玩dplyr过滤函数-但还没有…你有没有改变你的代码来匹配我的？因为根据你所说的，你似乎没有这么做。上述代码不仅向代码中添加了
return（data）
。