Shiny and ggplot2 script issue

Question

Hello i have this quite simple script i can't make to work... it give me a histogram but not for the variable i asked for ! For example when i choose the variable AGE it doesn't show the the histogram of the AGE on the population but the total population : it s very likely it selects all the column of dat instead of dat$AGE but i can't find the solution

server.R :

library(shiny)
library(ggplot2)
library(plotly)


shinyServer(function(input, output, session) {

  dat <- reactive({
    req(input$df)
    dfile <- read.csv(input$df$datapath)
    updateSelectInput(session,inputId = 'select1', label = 'Variable',
                      choices = colnames(dfile))
    return(dfile)
    })



  output$data <- renderUI({
   if (!is.null(input$df$datapath)){
    selectInput('select1', choices = names(dat()), label = h3('Variable'))
   }
  })

  output$plot <- renderPlotly( ggplotly(
      ggplot(data=dat(),aes(x=input$select1))  + geom_histogram(stat = "count")))
  })

ui.R

library(shiny)
library(ggplot2)
library(plotly)

shinyUI(fluidPage(

    sidebarLayout(
      sidebarPanel(
        fileInput("df","CSV file :"),
        uiOutput("data")
),

      mainPanel(
        h2(plotlyOutput("plot"))
      )
 )
 ))

If you can help, i searched for this all the afternoon :3

Weihuang Wong · Accepted Answer · 2017-02-06 18:02:32Z

1

In your call to ggplot, change the aes mapping to

aes_string("x" = input$select1)

since input$select1 is a string. In other words, your original code does aes(x = "AGE") rather than aes(x = AGE), which is what you want.

answered Feb 6, 2017 at 18:02

Weihuang Wong

13.2k2 gold badges30 silver badges51 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Valentin Amar Over a year ago

Thank you very much

Collectives™ on Stack Overflow

Shiny and ggplot2 script issue

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related