[R-es] Shiny data

[Jesús Para Fernández]

Buenas

una pregunta. Quiero hace run panel con shiny en el que puedas elegir la variable del eje x, la variable del eje y, y entonces graficar usando ggplot2

Por ejemplo, haciendo uso del dataframe diamonds de ggplot2, lo consigo hacer usando la funci�n get, pero no se si hay una manear mas limpia:


  library(shiny)
  library(ggplot2)

  ui <-  fluidPage(
    titlePanel("Diamonds"),
    sidebarLayout(
      sidebarPanel(
          selectInput("id.ejex","Eje x",choices = colnames(diamonds)),
          selectInput("id.ejey","Eje y",choices=colnames(diamonds)),
          selectInput("id.color","Color",choices=colnames(diamonds))
      ),
      mainPanel(
          plotOutput("grafico"),
          p("Variable x:"),
          verbatimTextOutput("estadisticas")
      )

      )
    )





  server <- function(input,output){
          output$grafico <- renderPlot({
            data <- diamonds
                   ggplot(diamonds,aes(x=get(input$id.ejex),
                                       y=get(input$id.ejey),
                                       color=get(input$id.color)))+geom_point()
                      })
          output$estadisticas <- renderText(
            summary(diamonds[,input$id.ejex])
          )

            }

  shinyApp(ui=ui,server = server)



Hay alguna manera de no poner el codigo de get y que coja las variables directamente?

Un saludo y gracias!
Jes�s



	[[alternative HTML version deleted]]