Data
msi_by_program <- read_csv("msi-computing-by-program.csv")
glimpse(msi_by_program)
## Rows: 174
## Columns: 19
## $ inst_name <chr> "Alabama A & M University", "Alabama A & M University"…
## $ ope_id <dbl> 100200, 100200, 239600, 354100, 206200, 114400, 398030…
## $ state_id <chr> "AL", "AL", "MS", "TX", "MD", "CA", "CA", "CA", "CA", …
## $ housed_under <chr> "Computing", "Computing", "Computing", "Computing", "C…
## $ college <chr> "College of Engineering, Technology, and Physical Scie…
## $ college_id <chr> "eng-tech-phys-sci", "eng-tech-phys-sci", "na", "na", …
## $ school <chr> "N/A", "N/A", "School of Arts & Sciences", "N/A", "N/A…
## $ school_id <chr> "na", "na", "art-sci", "na", "na", "na", "na", "na", "…
## $ department <chr> "Department of Engineering & Computer Science", "Depar…
## $ dept_id <chr> "cs-eng", "cs-eng", "cs-math", "cs", "cs", "cs", "na",…
## $ program_area <chr> "Computer Science", "Computer Science", "Computer and …
## $ area_id <chr> "cs", "cs", "comp-info-sys", "cs", "cs", "cs", "cs", "…
## $ program_level <chr> "Master of Science", "Master of Science Online", "Mast…
## $ level_id <chr> "ms", "ms-online", "ms", "ms", "ms", "ms", "ms", "ms",…
## $ cip_id <chr> "11.0701", "11.0701", "11.0199", "11.0701", "11.0701",…
## $ website_inst <chr> "https://www.aamu.edu/", "https://www.aamu.edu/", "htt…
## $ website_program <chr> "https://www.aamu.edu/academics/graduate-studies/maste…
## $ website_catalog <chr> "https://www.aamu.edu/academics/catalogs/_documents/gr…
## $ course_titles <chr> "Design & Analysis of Algorithms; Object Oriented Prog…
msi_by_course <-
msi_by_program %>%
mutate(course_titles = str_split(course_titles, "; ")) %>%
unnest(course_titles)
glimpse(msi_by_course)
## Rows: 5,779
## Columns: 19
## $ inst_name <chr> "Alabama A & M University", "Alabama A & M University"…
## $ ope_id <dbl> 100200, 100200, 100200, 100200, 100200, 100200, 100200…
## $ state_id <chr> "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", "AL", …
## $ housed_under <chr> "Computing", "Computing", "Computing", "Computing", "C…
## $ college <chr> "College of Engineering, Technology, and Physical Scie…
## $ college_id <chr> "eng-tech-phys-sci", "eng-tech-phys-sci", "eng-tech-ph…
## $ school <chr> "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A"…
## $ school_id <chr> "na", "na", "na", "na", "na", "na", "na", "na", "na", …
## $ department <chr> "Department of Engineering & Computer Science", "Depar…
## $ dept_id <chr> "cs-eng", "cs-eng", "cs-eng", "cs-eng", "cs-eng", "cs-…
## $ program_area <chr> "Computer Science", "Computer Science", "Computer Scie…
## $ area_id <chr> "cs", "cs", "cs", "cs", "cs", "cs", "cs", "cs", "cs", …
## $ program_level <chr> "Master of Science", "Master of Science", "Master of S…
## $ level_id <chr> "ms", "ms", "ms", "ms", "ms", "ms", "ms", "ms", "ms", …
## $ cip_id <chr> "11.0701", "11.0701", "11.0701", "11.0701", "11.0701",…
## $ website_inst <chr> "https://www.aamu.edu/", "https://www.aamu.edu/", "htt…
## $ website_program <chr> "https://www.aamu.edu/academics/graduate-studies/maste…
## $ website_catalog <chr> "https://www.aamu.edu/academics/catalogs/_documents/gr…
## $ course_titles <chr> "Design & Analysis of Algorithms", "Object Oriented Pr…
write_csv(msi_by_course, "msi-computing-by-course.csv")