r - 将用户输入与分组数据进行比较

Question

我想用 2 个“selectInputs”的组合来绘制数据以供选择。第一阶段是“大”或“小”，第二阶段是品种。所以我用这个函数对不同的列进行了分组，它会总结狗的数量。

filterMethod <- reactive({
if(input$dropdown1=="small"){
  data <- rawData %>%  group_by(breed, name, ID, color) %>%
    summarise(AmountDogs = sum(AmountDogs))
}

我创建了各种输入，例如一个 selectInput ，其中包含可供选择的品种，因此用户可以设置选项。现在，如果用户选择“Terrier”，我想绘制数据。

 if(input$dropdown1=="small"){
  plot <- ggplot(data=filterMethod() ??? if $breed==input$breed ???
  }

提前谢谢你们！

标签： rif-statementshiny