knitr::opts_chunk$set(echo = TRUE)

library(ggplot2);library(dplyr)
## Warning: package 'ggplot2' was built under R version 3.4.4
## Warning: package 'dplyr' was built under R version 3.4.4
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(readr)

#Download Data

hd2016=read_csv("C:/Users/jcolu/OneDrive/Documents/Harrisburg/Fall 2018/ANLY 512/hd2016.csv")
## Parsed with column specification:
## cols(
##   .default = col_integer(),
##   INSTNM = col_character(),
##   IALIAS = col_character(),
##   ADDR = col_character(),
##   CITY = col_character(),
##   STABBR = col_character(),
##   ZIP = col_character(),
##   CHFNM = col_character(),
##   CHFTITLE = col_character(),
##   GENTELE = col_double(),
##   DUNS = col_character(),
##   WEBADDR = col_character(),
##   ADMINURL = col_character(),
##   FAIDURL = col_character(),
##   APPLURL = col_character(),
##   NPRICURL = col_character(),
##   VETURL = col_character(),
##   ATHURL = col_character(),
##   DISAURL = col_character(),
##   ACT = col_character(),
##   CLOSEDAT = col_character()
##   # ... with 4 more columns
## )
## See spec(...) for full column specifications.
str(hd2016)
## Classes 'tbl_df', 'tbl' and 'data.frame':    7521 obs. of  70 variables:
##  $ UNITID  : int  100654 100663 100690 100706 100724 100733 100751 100760 100812 100830 ...
##  $ INSTNM  : chr  "Alabama A & M University" "University of Alabama at Birmingham" "Amridge University" "University of Alabama in Huntsville" ...
##  $ IALIAS  : chr  "AAMU" NA "Southern Christian University |Regions University" "UAH |University of Alabama Huntsville" ...
##  $ ADDR    : chr  "4900 Meridian Street" "Administration Bldg Suite 1070" "1200 Taylor Rd" "301 Sparkman Dr" ...
##  $ CITY    : chr  "Normal" "Birmingham" "Montgomery" "Huntsville" ...
##  $ STABBR  : chr  "AL" "AL" "AL" "AL" ...
##  $ ZIP     : chr  "35762" "35294-0110" "36117-3553" "35899" ...
##  $ FIPS    : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ OBEREG  : int  5 5 5 5 5 5 5 5 5 5 ...
##  $ CHFNM   : chr  "Dr. Andrew Hugine, Jr." "Ray L. Watts" "Michael Turner" "Robert A. Altenkirch" ...
##  $ CHFTITLE: chr  "President" "President" "President" "President" ...
##  $ GENTELE : num  2.56e+09 2.06e+09 3.34e+13 2.57e+09 3.34e+09 ...
##  $ EIN     : int  636001109 636005396 237034324 630520830 636001101 636001138 636001138 631022757 630701340 636000724 ...
##  $ DUNS    : chr  "197216455" "63690705" "126307792" "949687123" ...
##  $ OPEID   : int  100200 105200 2503400 105500 100500 800400 105100 100700 100800 831000 ...
##  $ OPEFLAG : int  1 1 1 1 1 2 1 1 1 1 ...
##  $ WEBADDR : chr  "www.aamu.edu/" "www.uab.edu" "www.amridgeuniversity.edu" "www.uah.edu" ...
##  $ ADMINURL: chr  "www.aamu.edu/Admissions/Pages/default.aspx" "www.uab.edu/students/undergraduate-admissions" "www.amridgeuniversity.edu/admissions/" "admissions.uah.edu/" ...
##  $ FAIDURL : chr  "www.aamu.edu/Admissions/fincialaid/Pages/default.aspx" "www.uab.edu/students/paying-for-college" "www.amridgeuniversity.edu/financial-aid/" "finaid.uah.edu/" ...
##  $ APPLURL : chr  "www.aamu.edu/admissions/undergraduateadmissions/pages/undergraduate-application-checklist.aspx" "https://idm.uab.edu/myuab/login?from=ugadmapp" "https://www.amridgeuniversity.edu/myamridge/" "register.uah.edu" ...
##  $ NPRICURL: chr  "www2.aamu.edu/scripts/netpricecalc/npcalc.htm" "uab.studentaidcalculator.com/survey.aspx" "www2.amridgeuniversity.edu:9091/" "finaid.uah.edu/" ...
##  $ VETURL  : chr  NA "www.uab.edu/students/veterans" "www.amridgeuniversity.edu/financial-aid/military/" "www.uah.edu/admissions/graduate/financial-aid/veterans" ...
##  $ ATHURL  : chr  "www.aamu.edu/administrativeoffices/irpsp/institutionalresearchandplanning/pages/default.aspx" "www.uabsports.com/compliance/prospects-new.html" NA "www.uah.edu/heoa" ...
##  $ DISAURL : chr  "www.aamu.edu/administrativeoffices/VADS/Pages/Disability-Services.aspx" "www.uab.edu/students/disability/" "www.amridgeuniversity.edu/pdf/Amridge%20University%20Academic%20Catalog%202016-2017.pdf" "www.uah.edu/health-and-wellness/disability-support" ...
##  $ SECTOR  : int  1 1 2 1 1 0 1 4 1 1 ...
##  $ ICLEVEL : int  1 1 1 1 1 1 1 2 1 1 ...
##  $ CONTROL : int  1 1 2 1 1 1 1 1 1 1 ...
##  $ HLOFFER : int  9 9 9 9 9 9 9 3 7 9 ...
##  $ UGOFFER : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ GROFFER : int  1 1 1 1 1 1 1 2 1 1 ...
##  $ HDEGOFR1: int  12 11 12 11 11 11 11 40 20 12 ...
##  $ DEGGRANT: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ HBCU    : int  1 2 2 2 1 2 2 2 2 2 ...
##  $ HOSPITAL: int  2 1 2 2 2 2 2 2 2 2 ...
##  $ MEDICAL : int  2 1 2 2 2 -2 2 2 2 2 ...
##  $ TRIBAL  : int  2 2 2 2 2 2 2 2 2 2 ...
##  $ LOCALE  : int  12 12 12 12 12 13 13 32 31 12 ...
##  $ OPENPUBL: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ ACT     : chr  "A" "A" "A" "A" ...
##  $ NEWID   : int  -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 ...
##  $ DEATHYR : int  -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 ...
##  $ CLOSEDAT: chr  "-2" "-2" "-2" "-2" ...
##  $ CYACTIVE: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ POSTSEC : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ PSEFLAG : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ PSET4FLG: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ RPTMTH  : int  1 1 1 1 1 -2 1 1 1 1 ...
##  $ INSTCAT : int  2 2 2 2 2 -2 2 4 2 2 ...
##  $ C15BASIC: int  18 15 20 16 19 -2 16 1 22 18 ...
##  $ C15IPUG : int  16 14 19 17 13 -2 17 1 15 16 ...
##  $ C15IPGRD: int  18 17 13 17 13 -2 15 0 0 6 ...
##  $ C15UGPRF: int  10 9 5 9 10 -2 14 2 5 9 ...
##  $ C15ENPRF: int  4 5 5 4 3 -2 4 1 2 3 ...
##  $ C15SZSET: int  13 15 6 12 13 -2 16 2 9 12 ...
##  $ CCBASIC : int  18 15 21 15 18 -3 16 2 22 18 ...
##  $ CARNEGIE: int  16 15 51 16 21 -3 15 40 32 21 ...
##  $ LANDGRNT: int  1 2 2 2 2 2 2 2 2 2 ...
##  $ INSTSIZE: int  3 4 1 3 3 -2 5 2 2 2 ...
##  $ F1SYSTYP: int  2 1 2 1 2 1 1 1 2 1 ...
##  $ F1SYSNAM: chr  NA "The University of Alabama System" NA "The University of Alabama System" ...
##  $ F1SYSCOD: int  -2 101050 -2 101050 -2 101050 101050 101030 -2 101040 ...
##  $ CBSA    : int  26620 13820 33860 26620 33860 46220 46220 10760 26620 33860 ...
##  $ CBSATYPE: int  1 1 1 1 1 1 1 2 1 1 ...
##  $ CSA     : int  290 142 -2 290 -2 -2 -2 142 290 -2 ...
##  $ NECTA   : int  -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 ...
##  $ COUNTYCD: int  1089 1073 1101 1089 1101 1125 1125 1123 1083 1101 ...
##  $ COUNTYNM: chr  "Madison County" "Jefferson County" "Montgomery County" "Madison County" ...
##  $ CNGDSTCD: int  105 107 102 105 107 107 107 103 105 102 ...
##  $ LONGITUD: num  -86.6 -86.8 -86.2 -86.6 -86.3 ...
##  $ LATITUDE: num  34.8 33.5 32.4 34.7 32.4 ...
##  - attr(*, "spec")=List of 2
##   ..$ cols   :List of 70
##   .. ..$ UNITID  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ INSTNM  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ IALIAS  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ADDR    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CITY    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ STABBR  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ZIP     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ FIPS    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ OBEREG  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CHFNM   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CHFTITLE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ GENTELE : list()
##   .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
##   .. ..$ EIN     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DUNS    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ OPEID   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ OPEFLAG : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ WEBADDR : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ADMINURL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ FAIDURL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ APPLURL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ NPRICURL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ VETURL  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ATHURL  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ DISAURL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ SECTOR  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ ICLEVEL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CONTROL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HLOFFER : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ UGOFFER : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ GROFFER : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HDEGOFR1: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DEGGRANT: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HBCU    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HOSPITAL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ MEDICAL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ TRIBAL  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ LOCALE  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ OPENPUBL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ ACT     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ NEWID   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DEATHYR : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CLOSEDAT: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CYACTIVE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ POSTSEC : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ PSEFLAG : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ PSET4FLG: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ RPTMTH  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ INSTCAT : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15BASIC: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15IPUG : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15IPGRD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15UGPRF: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15ENPRF: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15SZSET: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CCBASIC : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CARNEGIE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ LANDGRNT: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ INSTSIZE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ F1SYSTYP: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ F1SYSNAM: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ F1SYSCOD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CBSA    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CBSATYPE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CSA     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ NECTA   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ COUNTYCD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ COUNTYNM: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CNGDSTCD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ LONGITUD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
##   .. ..$ LATITUDE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
##   ..$ default: list()
##   .. ..- attr(*, "class")= chr  "collector_guess" "collector"
##   ..- attr(*, "class")= chr "col_spec"

Using Ggplot 2 & Dplyr to analyze data

Step 1: Subset data into 5 states

States = filter(hd2016, STABBR=="TX" | STABBR=="AL" | 
                  STABBR=="NE" | STABBR=="MS" | STABBR=="UT")
str(States)
## Classes 'tbl_df', 'tbl' and 'data.frame':    761 obs. of  70 variables:
##  $ UNITID  : int  100654 100663 100690 100706 100724 100733 100751 100760 100812 100830 ...
##  $ INSTNM  : chr  "Alabama A & M University" "University of Alabama at Birmingham" "Amridge University" "University of Alabama in Huntsville" ...
##  $ IALIAS  : chr  "AAMU" NA "Southern Christian University |Regions University" "UAH |University of Alabama Huntsville" ...
##  $ ADDR    : chr  "4900 Meridian Street" "Administration Bldg Suite 1070" "1200 Taylor Rd" "301 Sparkman Dr" ...
##  $ CITY    : chr  "Normal" "Birmingham" "Montgomery" "Huntsville" ...
##  $ STABBR  : chr  "AL" "AL" "AL" "AL" ...
##  $ ZIP     : chr  "35762" "35294-0110" "36117-3553" "35899" ...
##  $ FIPS    : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ OBEREG  : int  5 5 5 5 5 5 5 5 5 5 ...
##  $ CHFNM   : chr  "Dr. Andrew Hugine, Jr." "Ray L. Watts" "Michael Turner" "Robert A. Altenkirch" ...
##  $ CHFTITLE: chr  "President" "President" "President" "President" ...
##  $ GENTELE : num  2.56e+09 2.06e+09 3.34e+13 2.57e+09 3.34e+09 ...
##  $ EIN     : int  636001109 636005396 237034324 630520830 636001101 636001138 636001138 631022757 630701340 636000724 ...
##  $ DUNS    : chr  "197216455" "63690705" "126307792" "949687123" ...
##  $ OPEID   : int  100200 105200 2503400 105500 100500 800400 105100 100700 100800 831000 ...
##  $ OPEFLAG : int  1 1 1 1 1 2 1 1 1 1 ...
##  $ WEBADDR : chr  "www.aamu.edu/" "www.uab.edu" "www.amridgeuniversity.edu" "www.uah.edu" ...
##  $ ADMINURL: chr  "www.aamu.edu/Admissions/Pages/default.aspx" "www.uab.edu/students/undergraduate-admissions" "www.amridgeuniversity.edu/admissions/" "admissions.uah.edu/" ...
##  $ FAIDURL : chr  "www.aamu.edu/Admissions/fincialaid/Pages/default.aspx" "www.uab.edu/students/paying-for-college" "www.amridgeuniversity.edu/financial-aid/" "finaid.uah.edu/" ...
##  $ APPLURL : chr  "www.aamu.edu/admissions/undergraduateadmissions/pages/undergraduate-application-checklist.aspx" "https://idm.uab.edu/myuab/login?from=ugadmapp" "https://www.amridgeuniversity.edu/myamridge/" "register.uah.edu" ...
##  $ NPRICURL: chr  "www2.aamu.edu/scripts/netpricecalc/npcalc.htm" "uab.studentaidcalculator.com/survey.aspx" "www2.amridgeuniversity.edu:9091/" "finaid.uah.edu/" ...
##  $ VETURL  : chr  NA "www.uab.edu/students/veterans" "www.amridgeuniversity.edu/financial-aid/military/" "www.uah.edu/admissions/graduate/financial-aid/veterans" ...
##  $ ATHURL  : chr  "www.aamu.edu/administrativeoffices/irpsp/institutionalresearchandplanning/pages/default.aspx" "www.uabsports.com/compliance/prospects-new.html" NA "www.uah.edu/heoa" ...
##  $ DISAURL : chr  "www.aamu.edu/administrativeoffices/VADS/Pages/Disability-Services.aspx" "www.uab.edu/students/disability/" "www.amridgeuniversity.edu/pdf/Amridge%20University%20Academic%20Catalog%202016-2017.pdf" "www.uah.edu/health-and-wellness/disability-support" ...
##  $ SECTOR  : int  1 1 2 1 1 0 1 4 1 1 ...
##  $ ICLEVEL : int  1 1 1 1 1 1 1 2 1 1 ...
##  $ CONTROL : int  1 1 2 1 1 1 1 1 1 1 ...
##  $ HLOFFER : int  9 9 9 9 9 9 9 3 7 9 ...
##  $ UGOFFER : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ GROFFER : int  1 1 1 1 1 1 1 2 1 1 ...
##  $ HDEGOFR1: int  12 11 12 11 11 11 11 40 20 12 ...
##  $ DEGGRANT: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ HBCU    : int  1 2 2 2 1 2 2 2 2 2 ...
##  $ HOSPITAL: int  2 1 2 2 2 2 2 2 2 2 ...
##  $ MEDICAL : int  2 1 2 2 2 -2 2 2 2 2 ...
##  $ TRIBAL  : int  2 2 2 2 2 2 2 2 2 2 ...
##  $ LOCALE  : int  12 12 12 12 12 13 13 32 31 12 ...
##  $ OPENPUBL: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ ACT     : chr  "A" "A" "A" "A" ...
##  $ NEWID   : int  -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 ...
##  $ DEATHYR : int  -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 ...
##  $ CLOSEDAT: chr  "-2" "-2" "-2" "-2" ...
##  $ CYACTIVE: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ POSTSEC : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ PSEFLAG : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ PSET4FLG: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ RPTMTH  : int  1 1 1 1 1 -2 1 1 1 1 ...
##  $ INSTCAT : int  2 2 2 2 2 -2 2 4 2 2 ...
##  $ C15BASIC: int  18 15 20 16 19 -2 16 1 22 18 ...
##  $ C15IPUG : int  16 14 19 17 13 -2 17 1 15 16 ...
##  $ C15IPGRD: int  18 17 13 17 13 -2 15 0 0 6 ...
##  $ C15UGPRF: int  10 9 5 9 10 -2 14 2 5 9 ...
##  $ C15ENPRF: int  4 5 5 4 3 -2 4 1 2 3 ...
##  $ C15SZSET: int  13 15 6 12 13 -2 16 2 9 12 ...
##  $ CCBASIC : int  18 15 21 15 18 -3 16 2 22 18 ...
##  $ CARNEGIE: int  16 15 51 16 21 -3 15 40 32 21 ...
##  $ LANDGRNT: int  1 2 2 2 2 2 2 2 2 2 ...
##  $ INSTSIZE: int  3 4 1 3 3 -2 5 2 2 2 ...
##  $ F1SYSTYP: int  2 1 2 1 2 1 1 1 2 1 ...
##  $ F1SYSNAM: chr  NA "The University of Alabama System" NA "The University of Alabama System" ...
##  $ F1SYSCOD: int  -2 101050 -2 101050 -2 101050 101050 101030 -2 101040 ...
##  $ CBSA    : int  26620 13820 33860 26620 33860 46220 46220 10760 26620 33860 ...
##  $ CBSATYPE: int  1 1 1 1 1 1 1 2 1 1 ...
##  $ CSA     : int  290 142 -2 290 -2 -2 -2 142 290 -2 ...
##  $ NECTA   : int  -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 ...
##  $ COUNTYCD: int  1089 1073 1101 1089 1101 1125 1125 1123 1083 1101 ...
##  $ COUNTYNM: chr  "Madison County" "Jefferson County" "Montgomery County" "Madison County" ...
##  $ CNGDSTCD: int  105 107 102 105 107 107 107 103 105 102 ...
##  $ LONGITUD: num  -86.6 -86.8 -86.2 -86.6 -86.3 ...
##  $ LATITUDE: num  34.8 33.5 32.4 34.7 32.4 ...
##  - attr(*, "spec")=List of 2
##   ..$ cols   :List of 70
##   .. ..$ UNITID  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ INSTNM  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ IALIAS  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ADDR    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CITY    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ STABBR  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ZIP     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ FIPS    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ OBEREG  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CHFNM   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CHFTITLE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ GENTELE : list()
##   .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
##   .. ..$ EIN     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DUNS    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ OPEID   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ OPEFLAG : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ WEBADDR : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ADMINURL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ FAIDURL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ APPLURL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ NPRICURL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ VETURL  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ ATHURL  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ DISAURL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ SECTOR  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ ICLEVEL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CONTROL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HLOFFER : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ UGOFFER : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ GROFFER : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HDEGOFR1: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DEGGRANT: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HBCU    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ HOSPITAL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ MEDICAL : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ TRIBAL  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ LOCALE  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ OPENPUBL: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ ACT     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ NEWID   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DEATHYR : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CLOSEDAT: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CYACTIVE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ POSTSEC : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ PSEFLAG : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ PSET4FLG: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ RPTMTH  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ INSTCAT : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15BASIC: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15IPUG : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15IPGRD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15UGPRF: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15ENPRF: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ C15SZSET: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CCBASIC : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CARNEGIE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ LANDGRNT: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ INSTSIZE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ F1SYSTYP: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ F1SYSNAM: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ F1SYSCOD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CBSA    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CBSATYPE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CSA     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ NECTA   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ COUNTYCD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ COUNTYNM: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CNGDSTCD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ LONGITUD: list()
##   .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
##   .. ..$ LATITUDE: list()
##   .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
##   ..$ default: list()
##   .. ..- attr(*, "class")= chr  "collector_guess" "collector"
##   ..- attr(*, "class")= chr "col_spec"

Count number of universities

hd2016$INSTNM= as.character(hd2016$INSTNM)

summarise(hd2016, INSTNM = n())
## # A tibble: 1 x 1
##   INSTNM
##    <int>
## 1   7521

GG Plotts

Ggplot 1: Universities per state

by_state = group_by(States, STABBR)
univ_state = summarise(by_state, count=n())
ggplot(univ_state, aes(STABBR, count)) + geom_point(aes(size = count)) + ggtitle("Figure 1: Count of Universities per State") + xlab("States") + ylab("Number of Universities")

This graph represents the location of universities within the subset data of States. We can see that the highest concentration of universities is in the state of Texas; followed by Alamabara, Utah, Missouri, and New England. We used the geo point to proportionately represne the numbers of schools.

Ggplot 2: Top 10 cities per university count

Determine top 10 cities.

Cities = select(hd2016, CITY) %>%
  group_by(CITY) %>%
  summarise(count = n()) %>%
  top_n(10)  
(Cities) 
## # A tibble: 10 x 2
##    CITY         count
##    <chr>        <int>
##  1 Brooklyn        47
##  2 Chicago         81
##  3 Dallas          42
##  4 Houston         71
##  5 Los Angeles     58
##  6 Miami           45
##  7 New York        92
##  8 Philadelphia    44
##  9 San Antonio     50
## 10 Springfield     41

Plot data:

ggplot(Cities, aes(count, CITY)) +
  geom_point(aes(size = count)) + 
  ggtitle("Figure 2: Top 10 Cities") + xlab("Count of Universities") +
  ylab("Cities")

The plot shows the number of universities represented in the top cities. Please note that we also used the geompoint to represent the size of the city proportionatelly.

Ggplot 3: Top 10 Counties per university count (with annotation)

Substed coutnties to determine top 10 by size:

counties = select(hd2016, COUNTYNM) %>%
  group_by(COUNTYNM) %>%
  summarise(count = n()) %>%
  top_n(10)  
(counties)
## # A tibble: 10 x 2
##    COUNTYNM           count
##    <chr>              <int>
##  1 Cook County          133
##  2 Dallas County         78
##  3 Harris County         80
##  4 Jefferson County      89
##  5 Los Angeles County   221
##  6 Maricopa County       91
##  7 Miami-Dade County     84
##  8 Montgomery County     96
##  9 New York County       94
## 10 Orange County        118

Plot relationship between counties and universities.

ggplot(counties, aes(count, COUNTYNM)) +
  geom_point(aes(size = count)) + 
  ggtitle("Figure 3: Top 10 Counties") + xlab("Count of Universities") +
  ylab("Counties") + annotate("Text", x = 79, y = "Dallas",
                              colour = "red", size = 2.5, label = "Bottom") + 
  annotate("Text", x = 250, y = "Los Angeles County",
           colour = "blue", size = 3, label = "Top")