如何从 Shiny 中传递的变量访问 DataFrame 的列？

Question

我正在尝试创建一个简单的闪亮应用程序，用户可以在其中从下拉菜单中选择一个变量，然后生成一个图。所选变量在服务器函数中被视为 input$Feature，但在尝试将数据框的列作为 df$input$Feature 访问时出现错误。我不知道该怎么做。

bw <- read.xls('filename')

ui <- fluidPage(
  selectInput(inputId = 'Feature',
               label = 'Select a feature to plot:',
               c(colnames(bw))),
  plotOutput('graph')
)

server <- function(input, output){
  output$graph <- renderPlot({
    p <- ggplot(bw, aes(bw$Date))
    p <- p + geom_line(aes(y=bw$input$Feature, colour='red', group=1))
    p <- p + labs(x = 'Date', y = 'Feature Name')
    print(p)
  })
}

shinyApp(ui=ui, server=server)

Answer 1

尝试在 geom_line 中使用它：

bw[,input$Feature]

如果没有可重现的示例，则无法提供更多帮助。

编辑： 这对我有用：

bw <- mtcars
library(shiny)

ui <- fluidPage(
  selectInput(inputId = 'Feature',
               label = 'Select a feature to plot:',
               c(colnames(bw)),
               selected=colnames(bw)[1]),
  verbatimTextOutput('value'),
  plotOutput('graph')
)

server <- function(input, output){

  output$value <- renderPrint(columname())
  columname <- reactive({input$Feature})
  output$graph <- renderPlot({
    p <- ggplot(bw, aes(bw$qsec))+ geom_line(aes_string(y=bw[, input$Feature]))
    p <- p + labs(x = 'Date', y = 'Feature Name')
    p
  })
}


shinyApp(ui=ui, server=server)