如何让用户选择 Shiny plot 中的 x_var？

Question

TD <- thyroid

library(readxl)
library(shiny)
library(ggplot2)
library(shinythemes)
library(DT)

ui <-shinyUI(fluidPage(pageWithSidebar(
  headerPanel("Test App"),
  sidebarPanel(
    selectInput("xaxis", "Choose a x variable", choices = names(TD)),
    actionButton("goButton","Update")
  ),
  mainPanel(
    tabsetPanel(
      tabPanel('Plot', plotOutput("plot1"))
    ))
)
))

server <- shinyServer(function(input,output, session){

  x_var<- eventReactive(input$goButton, {
    input$xaxis
  })
  

  output$plot1 <- renderPlot({
    x <- x_var()
    x
    
    p <- ggplot() + geom_bar(aes(TD$x_var, fill = TD$ThryroidClass))
    p  #+ 
      #theme(plot.title = element_text(hjust = 0.5, size=20))
  })
})

shinyApp(ui,server)

问题出在TD$x_var中。 我想引用从 selectInput 中选择的变量，但使用这段代码我得到“Erroe [object object]”。

Answer 1

在renderPlot内部， x_var()已经分配给x 。 因此，我们调用x而不是x_var 。 此外，为了评估 object，我们可以使用[[而不是$

output$plot1 <- renderPlot({
    x <- x_var()
    x
    
    p <- ggplot() +
      geom_bar(aes(TD[[x]], fill = TD$ThryroidClass))
    p  #+ 
      #theme(plot.title = element_text(hjust = 0.5, size=20))
  })
})

或者不提取列，而是在指定data后使用不带引号的列名。 这也将正确命名图例

output$plot1 <- renderPlot({
    x <- x_var()
    x
    
    p <- ggplot(TD) +
      geom_bar(aes(.data[[x]], fill =ThryroidClass))
    p  #+ 
      #theme(plot.title = element_text(hjust = 0.5, size=20))
  })
})

-使用iris的可重现示例

TD <- iris

ui <-shinyUI(fluidPage(pageWithSidebar(
  headerPanel("Test App"),
  sidebarPanel(
    selectInput("xaxis", "Choose a x variable", choices = names(TD)[1:4]),
    actionButton("goButton","Update")
  ),
  mainPanel(
    tabsetPanel(
      tabPanel('Plot', plotOutput("plot1"))
    ))
)
))

server <- shinyServer(function(input,output, session){
  
  x_var<- eventReactive(input$goButton, {
    input$xaxis
  })
  
  
  output$plot1 <- renderPlot({
    x <- x_var()
    
    
    p <- ggplot(TD) +
      geom_bar(aes(.data[[x]], fill =Species))
    p
    
  })
})

shinyApp(ui,server)

-输出