Login
Order Now
Support
R Programming Task on SHINY

R Programming Task 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)

Share this post

assignment helpassignment helperassignment expertsassignment writing services