College Debt Dashboard

# Inputs for Salary Estimator plot
input1 <- inputPanel(
    selectInput("selectInput1",
        label = "Choose your major:",
        choices = unique(salary$Major),
        selected = "ART HISTORY AND CRITICISM"
    ),
    checkboxGroupInput("percentile_choice",
        label = "Pick your career level:",
        choices = list(
            "Early Career " = "Early Career",
            "Middle Career " = "Middle Career",
            "Late Career " = "Late Career"
        ),
        selected = c("Early Career", "Middle Career", "Late Career")
    ),
)

# Inputs for Tuition Estimator plot
input2 <- inputPanel(
    selectInput("money",
        label = "Select the type of expense:",
        choices = c(
            "Room and Board" = "Room and Board",
           

 "In State Tuition" = "In State Tuition",
            "Out of State Tuition" = "Out of State Tuition"
        ),
        selected = "In State Tuition"
    ),
    selectInput("state",
        label = "Pick your State:",
        choices = unique(df$state),
        selected = "Oregon"
    ),
)

# Inputs for Debt Estimator plot
input3 <- inputPanel(
    selectInput("selectInput2",
        label = "Select your university:",
        choices = unique(tuition_cost$name),
        selected = "Willamette University"
    ),
    checkboxGroupInput("checkGroup",
        label = "Select your household income bracket:",
        choices = list(
            "$0 to $30,000" = "$0 to $30,000",
            "$30,001 to $48,000" = "$30,001 to $48,000",
            "$48,001 to $75,000" = "$48,001 to $75,000",
            "$75,001 to $110,000" = "$75,001 to $110,000",
            "Over $110,000" = "Over $110,000"
        ),
        selected = c(
            "$0 to $30,000",
            "$30,001 to $48,000",
            "$48,001 to $75,000",
            "$75,001 to $110,000",
            "Over $110,000"
        )
    ),
)

# Inputs for Debt Calculator plot
input4 <- inputPanel(
    selectInput("major_category",
        label = "Pick a major category:",
        choices = unique(ds4$major_category),
        selected = "Computers & Mathematics"
    ),
)

# Plot for Salary Estimator
plot1 <- renderPlot({
    salary %>%
        filter((Major %in% input$selectInput1) & (Percentile_Range %in% input$percentile_choice)) %>%
        ggplot(aes(x = Percentile_Range, y = Salary, fill = Percentile_Range)) +
        geom_col(width = 0.4, color = "black", show.legend = FALSE) +
        geom_label(
            aes(
                y = Salary,
                label = print(paste0("$", round(Salary / 1000, 2), "K"))
            ),
            show.legend = FALSE,
            size = 7,
            family = "Futura",
            fill = "white"
        ) +
        scale_y_continuous(labels = label_number(prefix = "$", suffix = "K", scale = 1e-3)) +
        labs(
            x = NULL,
            y = NULL,
            title = paste0("Estimated Salary for ", input$selectInput1),
            caption = "Source: TuitionTracker.org @ 2018"
        ) +
        CoreyPlotTheme +
        scale_fill_brewer(palette = "PuBuGn")
})

# Plot for Tuition Estimator
plot2 <- renderPlot({
    df %>%
        filter(state == input$state) %>%
        ggplot(aes(x = degree_length, y = .data[[input$money]], fill = degree_length)) +
        geom_col(width = 0.4, color = "black", show.legend = FALSE) +
        facet_wrap(~type) +
        geom_label(
            aes(
                y = .data[[input$money]],
                label = print(paste0("$", round(.data[[input$money]] / 1000, 2), "K"))
            ),
            family = "Oswald",
            size = 7,
            show.legend = FALSE,
            fill = "white"
        ) +
        scale_y_continuous(
            labels = label_number(prefix = "$", suffix = "K", scale = 1e-3),
            limits = c(0, 55000)
        ) +
        labs(
            x = NULL,
            y = NULL,
            title = paste0("Average ", input$money, " for ", input$state, " Universities"),
            subtitle = "For Undergraduate Degrees",
            caption = "Source: TuitionTracker.org @ 2018"
        ) +
        CoreyPlotTheme +
        scale_fill_brewer(palette = "PuBuGn")
})

# Plot for Debt Estimator
plot3 <- renderPlot({
    tuition_cost %>%
        filter((income_lvl %in% input$checkGroup) & (name %in% input$selectInput2)) %>%
        ggplot(aes(x = income_lvl, y = net_cost, fill = income_lvl)) +
        geom_col(color = "black", width = 0.4, position = "dodge", show.legend = FALSE) +
        geom_label(
            aes(
                y = net_cost,
                label = print(paste0("$", round(net_cost / 1000, 2), "K"))
            ),
            family = "Oswald",
            size = 7,
            show.legend = FALSE,
            fill = "white"
        ) +
        scale_y_continuous(labels = label_number(prefix = "$", suffix = "K", scale = 1e-3)) +
        labs(
            x = NULL,
            y = NULL,
            title = paste0("Median Student Loan Debt for ", input$selectInput2),
            subtitle = "After Completing Their Undergraduate Degree",
            caption = "Source: TuitionTracker.org @ 2018"
        ) +
        CoreyPlotTheme +
        scale_fill_brewer(palette = "PuBuGn")
})

# Plot for Debt Calculator
plot4 <- renderPlot({
    ds4 %>%
        filter(major_category == input$major_category) %>%
        ggplot(aes(perfect_payback_period, reorder(major, perfect_payback_period), fill = perfect_payback_period)) +
        geom_col(show.legend = FALSE) +
        geom_label(aes(label = paste(round(perfect_payback_period, 2), " yrs.")),
            show.legend = FALSE,
            fill = "white",
            hjust = 1.1
        ) +
        theme(
            axis.title.y = element_blank(),
            axis.text.x = element_blank()
        ) +
        labs(
            title = "How Long Will You Be In Debt?",
            subtitle = "Based on Your

 Major",
            x = "Time to pay off loans"
        ) +
        CoreyPlotTheme +
        theme(plot.title = element_text(hjust = 0.5)) +
        scale_fill_continuous_sequential("PuBuGn")
})