错误：所有观察都在同一组中，同时从闪亮的ui列表中动态过滤R模型

Posted 2021-05-03

伙计们我是Shiny的新手，在这里我面临R问题的闪亮翻译，我使用SelectInput将teacher_ID作为输入来过滤sever.r上相应的学生数据。 Data looks like this到这里下面的代码工作正常。

library(shiny)

x <- fluidPage("this is fluid page", 
           selectInput("Selecter","slide to select",choices = ID$Teacher_ID, 
selected = "1003935242" ),
          tableOutput("data")
  ################### server.r #################
)
shinyServer(function(input, output) 
output$data = renderTable({
  TeachersData[TeachersData$Teacher_ID==input$Selecter,]
}) 
})

但是在下面我添加更多的代码实际上使用anova，kruskal等在RenderTable（）块中实际计算统计值，如下所示，我收到错误消息

---

错误：所有观察结果都在同一组中

***，我试图通过分割和创建具有因子和其他一些东西的组来解决，但无法解决。在代码中没有问题，似乎用闪亮的方式操纵数据的问题。

   ############ server.r problematic ##########

shinyServer(function(input, output) {

output$data = renderTable({

  Instro = TeachersData[TeachersData$Teacher_ID==input$Selecter,]
  Data_Procedure1= Instro 
  Data_Procedure1$Score=as.numeric(as.character(Data_Procedure1$Score))
  Data_Procedure1_ByCourse=Subset_Data_ByCourse_fct(Data_Procedure1)
  ANOVA_Procedure1= Compare_ANOVA_Procedure1_fct(Data_Procedure1, 
  Data_Procedure1$Score, as.factor(Data_Procedure1$Course_ID), alpha)
  p_Procedure1 = ANOVA_Procedure1$p_value
  Method_Procedure1= ANOVA_Procedure1$test_name
  PairWise_Compare_Procedure1=Pairwise_Comparison_fct(Method_Procedure1, 
  Data_Procedure1, Data_Procedure1$Score, 
  as.factor(Data_Procedure1$Course_ID ))
  result <- as.data.frame(PairWise_Compare_Procedure1)
})

})

Error message

请任何人帮忙弄明白，非常感谢你。

答案

首先，这个'ID $ Teacher_ID'加载好吗？ UI上显示的选项是什么？有时这可能是个问题。

其次，如果我正确理解你的问题，你应该改变这个：

TeachersData[TeachersData$Teacher_ID==input$slide,]

对此：

TeachersData[TeachersData$Teacher_ID==input$Selecter,]

如果那不是问题，也许你应该显示什么是输入$ slide？

另一答案

谢谢@Ricardo的帮助，但问题还有别处。进一步挖掘后，我发现数据集存在问题。因为当我过滤数据时，一些Teacher_ID的数据中只有单个记录而没有进一步的子分组，统计模型无法捕获那些Teacher_ID的观察结果，并抛出了将所有观察结果放在同一组中的错误。因此，当我过滤掉这种不具有统计意义的数据后，现在一切正常。