Using Reactive Dataset for GGplot2?

Question

I am trying to renderplot using ggplot2 instead of the base R's plot function.

However I've encountered some problems when using reactive dataset in ggplot2.

Below is the code that works with base R's plot:

library(shiny)
library(ggplot2)

# Define UI for application that draws a histogram
ui <- fluidPage(

  # Application title
  titlePanel("Javier Test"),

  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(

      # Input: Select a file ----
      fileInput('file1', 'Choose CSV File',
                accept=c('text/csv', 
                         'text/comma-separated-values,text/plain', 
                         '.csv')),

      # Horizontal line ----
      tags$hr(),

      checkboxInput('header', 'Header', TRUE),
      radioButtons('sep', 'Separator',
                   c(Comma=',',
                     Semicolon=';',
                     Tab='\t'),
                   ','),
      radioButtons('quote', 'Quote',
                   c(None='',
                     'Double Quote'='"',
                     'Single Quote'="'"),
                   '"'),

      #implementing dropdown column 
      selectInput('xcol', 'X Variable', ""),
      selectInput('ycol', 'Y Variable', "", selected = "")),

    # Show a plot of the generated distribution
    mainPanel(
      # Output: Data file ----
      plotOutput('MyPlot')
    )
  )
)

# Define server logic required to draw a histogram
server <- shinyServer(function(input, output, session) {
  # added "session" because updateSelectInput requires it


  data <- reactive({ 
    req(input$file1) ## ?req #  require that the input is available

    inFile <- input$file1 

    # tested with a following dataset: write.csv(mtcars, "mtcars.csv")
    # and                              write.csv(iris, "iris.csv")
    df <- read.csv(inFile$datapath, header = input$header, sep = input$sep,
                   quote = input$quote)


    # Update inputs (you could create an observer with both updateSel...)
    # You can also constraint your choices. If you wanted select only numeric
    # variables you could set "choices = sapply(df, is.numeric)"
    # It depends on what do you want to do later on.

    updateSelectInput(session, inputId = 'xcol', label = 'X Variable',
                      choices = names(df), selected = names(df))
    updateSelectInput(session, inputId = 'ycol', label = 'Y Variable',
                      choices = names(df), selected = names(df)[2])

    return(df)
  })

  output$MyPlot <- renderPlot({
    x <- data()[,c(input$xcol, input$ycol)]
    plot(x)
  })
})

shinyApp(ui, server)

This is the part where I'm trying to change to ggplot2 render plot instead:

  output$MyPlot <- renderPlot({
    ggplot(data, aes(x=input$xcol, y=input$ycol)) + geom_point()
  })

Error: ggplot2 doesn't know how to deal with data of class reactiveExpr/reactive

Any idea how do I use a reactive data set for ggplot2?

Thank you so much!

Update

Here's the code! I've figured it out. Not very nice, is there a better way to represent it?

  output$MyPlot <- renderPlot({
    x <- data()[,c(input$xcol, input$ycol)]
    ggplot(x, aes(x=x[,1], y=x[,2])) + geom_point()
  })

Hi @SalmanLashkarara, Yes I can load data into df. If you run the first code with base R plot, the app works. Just trying to use ggplot2 instead! — Javier
– Javier, Commented Sep 20, 2018 at 6:58
Yes that is correct. The code works like I mentioned. It is reproducible if you plug it into R and use any .csv file. Just unsure about the parameters I should be using for ggplot2 — Javier
– Javier, Commented Sep 20, 2018 at 7:01
@SalmanLashkarara I've added the correct code! Do check it out, hopefully it can be improved! It looks bad — Javier
– Javier, Commented Sep 20, 2018 at 7:23

Abdella Mohamed · Accepted Answer · 2018-09-20 08:53:54Z

2

Instead of sub-setting the data multiple times in the renderPlot function, you could instead of using aes function you would use aes_string function from ggplot package. So the one liner solution will be:

output$MyPlot <- renderPlot({
ggplot(data = data(), aes_string(x = input$xcol, y = input$ycol)) + geom_point()
})

answered Sep 20, 2018 at 8:53

Abdella Mohamed

212 bronze badges

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

2 Comments

Javier Over a year ago

wow this is great! thanks so much for sharing your knowledge!

Abdella Mohamed Over a year ago

Happy to help :)

Sal-laS · Accepted Answer · 2018-09-20 08:26:08Z

1

It works well now:

  output$MyPlot <- renderPlot({
       x <- data()[,c(input$xcol, input$ycol)]

        ggplot(x, aes(x=data()[,c(input$xcol)], 
                      y=data()[,c(input$ycol)])) + geom_point()

      })

edited Sep 20, 2018 at 8:26

answered Sep 20, 2018 at 7:07

Sal-laS

11.7k28 gold badges114 silver badges179 bronze badges

Collectives™ on Stack Overflow

Using Reactive Dataset for GGplot2?

2 Answers 2

2 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related