## # A tibble: 2,477 × 2
##    word       value
##    <chr>      <dbl>
##  1 abandon       -2
##  2 abandoned     -2
##  3 abandons      -2
##  4 abducted      -2
##  5 abduction     -2
##  6 abductions    -2
##  7 abhor         -3
##  8 abhorred      -3
##  9 abhorrent     -3
## 10 abhors        -3
## # ℹ 2,467 more rows
## # A tibble: 6,786 × 2
##    word        sentiment
##    <chr>       <chr>    
##  1 2-faces     negative 
##  2 abnormal    negative 
##  3 abolish     negative 
##  4 abominable  negative 
##  5 abominably  negative 
##  6 abominate   negative 
##  7 abomination negative 
##  8 abort       negative 
##  9 aborted     negative 
## 10 aborts      negative 
## # ℹ 6,776 more rows
## # A tibble: 13,872 × 2
##    word        sentiment
##    <chr>       <chr>    
##  1 abacus      trust    
##  2 abandon     fear     
##  3 abandon     negative 
##  4 abandon     sadness  
##  5 abandoned   anger    
##  6 abandoned   fear     
##  7 abandoned   negative 
##  8 abandoned   sadness  
##  9 abandonment anger    
## 10 abandonment fear     
## # ℹ 13,862 more rows

Introduction

The graduate programs office regularly sends a survey to recent graduates to ascertain their level of satisfaction with their program experience. The purpose of this survey is gather information from recent graduates to enable program directors to make the program more effective and enjoyable for students.

Questions

  • What program did you complete?
  • How did the program affect your employment?
  • What is your level of satisfaction?
  • What additional comments do you have?
## New names:
## • `Did not take` -> `Did not take...11`
## • `Did not take` -> `Did not take...12`
## • `Yes` -> `Yes...15`
## • `Yes` -> `Yes...16`
## • `` -> `...17`
## • `I received neither` -> `I received neither...21`
## • `I received neither` -> `I received neither...22`
## • `Yes` -> `Yes...26`
## • `Extremely satisfied` -> `Extremely satisfied...28`
## • `Extremely satisfied` -> `Extremely satisfied...29`
## • `Extremely satisfied` -> `Extremely satisfied...30`
## • `Extremely satisfied` -> `Extremely satisfied...31`
## • `Extremely satisfied` -> `Extremely satisfied...32`
## • `` -> `...33`

What Program did you Complete?

all_programs <- CSB_grad_survey_comments_2_15_2023$"Online MBA (OMBA)"

program_list <- strsplit(all_programs, ", ", fixed = TRUE)

program_counts <- table(unlist(program_list))

program_counts_df <- as.data.frame(program_counts)
names(program_counts_df) <- c("Program", "Count")

library(ggplot2)
ggplot(program_counts_df, aes(x = Program, y = Count, fill = Program)) +
  geom_bar(stat = "identity") +
  labs(title = "Survey Results by Program", x = "Program", y = "Count") +
  theme(axis.text.x = element_text(angle = 0, hjust = -7)) +
  scale_fill_manual(values = c("Online MBA (OMBA)" = "skyblue", 
                                "Business Foundations Certificate (BFC)" = "orange", 
                                "M.S. Business Analytics (MSBA)" = "green", 
                                "Professional MBA (PMBA)" = "red", 
                                "Executive MBA (EMBA)" = "blue"))

How did the program affect your employment?

What is your level of satisfaction?

What additional comments do you have?

This section provides sentiment analysis of the student’s comments based on their experience in the program.

##Sentiment Analysis was conducted using the AFINN lexicon

## # A tibble: 6 × 2
##   word          value
##   <chr>         <dbl>
## 1 disappointed     -2
## 2 growth            2
## 3 friendly          2
## 4 easy              1
## 5 fantastic         4
## 6 opportunities     2

##A visual representation of the Sentiment Analysis is seen in this chart which shows the sentiment value of each word.