Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
32 lines (24 sloc) 698 Bytes
library(shiny)
library(ggplot2)
function(input, output) {
dataset <- reactive({
diamonds[sample(nrow(diamonds), input$sampleSize),]
})
output$plot <- renderPlot({
p <- ggplot(dataset(), aes_string(x=input$x, y=input$y)) + geom_point()
if (input$color != 'None') {
p <- p + aes_string(color=input$color)
}
facets <- paste(input$facet_row, '~', input$facet_col)
if (facets != '. ~ .') {
p <- p + facet_grid(facets)
}
if (input$jitter) {
p <- p + geom_jitter()
}
if (input$smooth) {
p <- p + geom_smooth()
}
print(p)
}, height=700)
}
You can’t perform that action at this time.