Akshay’s Dashboard 1

library(readr)
library(DT)
library(ggplot2)
library(shiny)
library(shinydashboard)
library(rsconnect)
library(dplyr)


survey <- read_csv("EMPLOYEE ENGAGEMENT DATA.csv", col_names = TRUE)
employee <- read_csv("HEADCOUNT ANALYTICS.csv", col_names = TRUE)
mergedata <-
  survey %>% inner_join(employee, by = c("EMPID", "BRANCH", "FUNCTION"))


ui <- fluidPage(
  titlePanel("Akshay's Dashboard", windowTitle = "Dashboard"),
  sidebarLayout(
    sidebarPanel(
      selectInput(
        inputId = "xaxis",
        label = "X axis variable",
        choices = c(
          "Employee Engagement Score" = "EES",
          "Rewards and Recognition" = "RR",
          "Career Growth" = "CG",
          "Leadership Team" = "LT"
        ),
        selected = "EES"
      ),
      
      selectInput(
        inputId = "yaxis",
        label = "Y axis variable",
        choices = c(
          "Employee Engagement Score" = "EES",
          "Rewards and Recognition" = "RR",
          "Career Growth" = "CG",
          "Leadership Team" = "LT"
        ),
        selected = "RR"
      ),
      radioButtons(
        inputId = "color",
        label = "Color plot by:",
        choices = c(
          "Branch" = "BRANCH",
          "Department" = "FUNCTION",
          "Gender" = "GENDER",
          "Qualification" = "EDUQUAL",
          "Work experience" = "EXP"
        ),
        selected = "BRANCH"
      ),
      checkboxInput(
        inputId = "size",
        label = "Set size by Work Experience:",
        value = FALSE
      ),
      sliderInput(
        inputId = "alpha",
        label = "Transparency",
        min = 0,
        max = 1,
        value = 0.5
      ),
      wellPanel(
      checkboxInput(
        inputId = "hist",
        label = "Show histogram:",
        value = FALSE
      ),
      conditionalPanel(
        "input.hist==true",
        radioButtons(
          inputId = "histselect",
          label = "Select type of histogram",
          choices = list(
            "Employee Engagement Score" = "EES",
            "Rewards and Recognition" = "RR",
            "Career Growth" = "CG",
            "Leadership Team" = "LT"
          )
        ),
        sliderInput(inputId = "binwidth",
                    label = "Set binwidth:",
                    min=1,max=30,value = 15)
        
      )
    )),
    mainPanel(tabsetPanel(
      type = "tabs",
      tabPanel("Plot",
               fluidRow(
                 splitLayout(
                   cellWidths = c("50%", "50%"),
                   plotOutput(outputId = "plot1"),
                   plotOutput(outputId = "plot2")
                 )
               ),fluidRow(
                 splitLayout(
                   cellWidths = c("50%", "50%"),
                   plotOutput(outputId = "plot3"),
                   plotOutput(outputId = "plot4")
                 )
               )
      ),
      tabPanel("Data Table", dataTableOutput(outputId = "datatable"))
    ))
    
  )
)


server <- function(input, output) {
  plotfunct <- reactive({
    if (input$size)
    {
      ggplot(data = mergedata, aes_string(x = input$xaxis, y = input$yaxis)) +
        geom_point(aes_string(
          color = input$color,
          size = factor(mergedata$EXP)
        ), alpha = input$alpha)+
        labs(title = paste0("Change in ", input$yaxis, " for change in ", input$xaxis))
    }
    else
    {
      ggplot(data = mergedata, aes_string(x = input$xaxis, y = input$yaxis)) +
        geom_point(aes_string(color = input$color), alpha = input$alpha) +
        # geom_line(stat = "summary",fun.y=quantile,probs=.4,linetype=2,color="red")+
        labs(title = paste0("Change in ", input$yaxis, " for change in ", input$xaxis))
      
    }
    
  })
  
  plotfuncthis <- reactive({
    if (input$hist)
    {
      ggplot(data = mergedata, aes_string(x = input$histselect)) +
        geom_histogram(aes_string(fill = input$color),binwidth=input$binwidth,position = "dodge")
    }
  })
  
  output$plot1 <- renderPlot({
    plotfunct()
  })
  output$plot2 <-
    renderPlot({
      ggplot(data = mergedata, aes_string(x = input$xaxis, y = input$yaxis)) +
        geom_line(aes_string(group = input$color, color = input$color)) +
        labs(title = paste0("Change in ", input$yaxis, " for change in ", input$xaxis))
      
    })
  
  output$plot3 <- renderPlot({
    plotfuncthis()
  })

  output$datatable <-renderDataTable({
    mergedata
  })
  
}

shinyApp(ui = ui, server = server)

url to the dashboard: https://akshay91.shinyapps.io/RshinyDashboard1/