闪亮的反应性子集

Question

我试图允许用户从少数几个变量中选择类，然后我使用的图将动态地从数据框中选择所选的类，然后绘制输出。

到目前为止..

ui = dashboardPage(dashboardHeader(title = "NFL"),

dashboardSidebar(
 sidebarMenu(
  selectInput("Year",label = "Year",
   choices = c("2013" = "2013", "2014" = "2014", "2015" = "2015",
                              "2016"= "2016"), selected="2013")
 ),
dashboardBody(
    fluidRow(
      plotOutput(outputId = "p1"),width = 150
    )
  )
)
server=function(input,output) {
  output$p1 = renderPlot({
    ggplot(data=df, aes_string(x=df$PlayLocation, y=df$YardageResult, 
      color="PlayLocation"))+
    geom_point()+
    geom_jitter()+
    labs (x = ("Play Location"), y = ("Yards Gained"))+
    theme(legend.position="none")
    }
   )
  }
  shinyApp(ui=ui, server=server)

在这个例子中，我希望x和y变量保持不变，但只显示所选年份的数据。我的最终闪亮应用程序将有许多不同的变量进一步子集，但这是基本前提。

有什么想法吗？我已经研究过被动反应，但我只是找到了如何基于索引进行子集化的信息，而不是匹配因子或字符串值。