
R Programming Assignment Solution on SHINY
- 5th Oct, 2021
- 18:55 PM
# We will make a app which will make scatter plot of variable which ever we choose # and we can also make the points colour according to the another variable which we can choose in Color data("mtcars") library(shiny) library(ggplot2) #Making all categorical variables as factor mtcars[,c(2, 8, 9, 10, 11)] <- apply(mtcars[,c(2, 8, 9, 10, 11)], 2, as.factor) ui <- shinyUI(pageWithSidebar( headerPanel("Mtcars Plot"), sidebarPanel( selectInput('x', 'X Axis', names(mtcars)), selectInput('y', 'Y Axis', names(mtcars), names(mtcars)[[2]]), selectInput('color', 'Color', c('None', names(mtcars))), checkboxInput('smooth', 'Smooth') ), mainPanel( plotOutput('plot') ) )) server <- function(input, output) { output$plot <- renderPlot({ p <- ggplot(mtcars, aes_string(x=input$x, y=input$y)) + geom_point(size = 5) if (input$color != 'None') p <- p + aes_string(color=input$color) if (input$smooth) p <- p + geom_smooth() print(p) }, height = 550)} shinyApp(ui, server) ************************************************************************************************************** library(ggplot2) library(gganimate) library(dplyr) library(gifski) data("mtcars") theme_set(theme_bw()) #changing variable type to categorical for those who are factor mtcars[,c(2, 8, 9, 10, 11)] <- apply(mtcars[,c(2, 8, 9, 10, 11)], 2, as.factor) # plot 1 # Here we are making plot of horsepower vs Miles per gallon which varies in size of bubble according to weight of vechile # And color varies according to transmission mode (automatic for red and manual for blue) # And it animates according to the number of cylinders in the cars plot <- ggplot(mtcars, aes(x = hp, y = mpg, size = wt, colour = am)) + geom_point(alpha = 0.8) + labs(x = "Horsepower", y = "Miles per Gallon") #############PLOT 1####################### plot + transition_states(cyl) + labs(title = "No of Cylinders : {closest_state}") # Now we will uses multiple types of transitions, exits and entry functions ##########PLOT 2########################## # Here y axis will be fixed and x axis will move according to the Miles per gallon plot + transition_states(cyl) + labs(title = "No of Cylinders : {closest_state}")+ view_follow(fixed_y = TRUE) ##########PLOT 3########################## # with different transistion length and state plot + transition_states(cyl, transition_length = 2, state_length = 1) + labs(title = "No of Cylinders : {closest_state}") ##########PLOT 4########################## #with different entry and exit state plot + transition_states(cyl, transition_length = 2, state_length = 1) + labs(title = "No of Cylinders : {closest_state}") + enter_fade() + exit_shrink() ##########PLOT 5########################## plot + transition_states(cyl, transition_length = 2, state_length = 1) + labs(title = "No of Cylinders : {closest_state}") + enter_fade() + enter_drift(x_mod = -1) + exit_shrink() + exit_drift(x_mod = 5)