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]]