-
Notifications
You must be signed in to change notification settings - Fork 2
/
college_states.R
166 lines (161 loc) · 7.31 KB
/
college_states.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
#' Adds college state information
#'
#' @param recruits_df Recruiting dataframe (*DF*, required)
#'
#' @keywords internal
#' @import stringr
#' @import dplyr
#' @import tidyr
#' @export
#'
#'
college_states <- function(recruits_df){
AL_teams = c("Alabama","Auburn","South Alabama","Troy","UAB",
"Alabama A&M", "Alabama State","Jacksonville","North Alabama",
"Samford","Jacksonville State")
AR_teams = c("Arkansas","Arkansas State","Arkansas-Pine Bluff",
"Central Arkansas")
AZ_teams = c("Arizona","Arizona State","Northern Arizona")
CA_teams = c("California","Fresno State","San Diego State","San Jose State",
"USC","Stanford","UCLA","Cal Poly","Sacramento State",
"San Diego","UC Davis")
CO_teams = c("Air Force","Colorado","Colorado State",
"Northern Colorado")
CT_teams = c("UConn","Central Connecticut",
"Sacred Heart","Yale")
DC_VA_teams = c("Georgetown","Howard","Liberty","Old Dominion",
"Virginia","Virginia Tech","Hampton","James Madison",
"Norfolk State","Richmond","VMI","William & Mary")
DE_teams = c("Delaware","Delaware State")
FL_teams = c("FIU","Florida","Florida Atlantic","Florida State",
"Miami","UCF","USF","Bethune-Cookman","Florida A&M",
"Stetson")
GA_teams = c("Georgia","Georgia Southern","Georgia State",
"Georgia Tech","Kennesaw State",
"Mercer","Savannah State")
HI_teams = c("Hawai'i")
IA_teams = c("Iowa","Iowa State","Drake","Northern Iowa")
ID_teams = c("Boise State","Idaho State","Idaho")
IL_teams = c("Illinois","Northern Illinois","Northwestern",
"Eastern Illinois","Illinois State","Southern Illinois",
"Western Illinois")
IN_teams = c("Ball State","Indiana","Notre Dame","Purdue",
"Butler","Indiana State","Valparaiso")
KS_teams = c("Kansas","Kansas State")
KY_teams = c("Kentucky","Louisville","Western Kentucky","Eastern Kentucky",
"Morehead State","Murray State")
LA_teams = c("Louisiana","Louisiana Tech","Louisiana-Monroe",
"LSU","Tulane","Grambling","McNeese","Nicholls",
"Northwestern State","Southeastern Louisiana",
"Southern")
MA_teams = c("Boston College","UMass","Harvard",
"Holy Cross","Merrimack")
MD_teams = c("Maryland","Navy","Morgan State","Towson")
ME_teams = c("Maine")
MI_teams = c("Central Michigan","Eastern Michigan","Michigan",
"Michigan State","Western Michigan")
MN_teams = c("Minnesota")
MO_teams = c("Missouri","Missouri State",
"Southeast Missouri State")
MS_teams = c("Ole Miss","Mississippi State","Southern Mississippi",
"Alcorn State","Jackson State",
"Mississippi Valley State")
MT_teams = c("Montana","Montana State")
NC_teams = c("Appalachian State","Charlotte","Duke","East Carolina",
"NC State","North Carolina","Wake Forest","Campbell",
"Davidson","Elon","Gardner-Webb","North Carolina A&T",
"North Carolina Central","Western Carolina")
ND_teams = c("North Dakota","North Dakota State")
NE_teams = c("Nebraska")
NH_teams = c("Dartmouth","New Hampshire")
NJ_teams = c("Rutgers","Monmouth","Princeton")
NM_teams = c("New Mexico","New Mexico State")
NV_teams = c("Nevada","UNLV")
NY_teams = c("Army","Buffalo","Syracuse","Albany","Colgate",
"Columbia","Cornell","Fordham","LIU",
"Marist","Stony Brook","Wagner")
OH_teams = c("Akron","Bowling Green","Cincinnati","Kent State",
"Miami (OH)","Ohio","Ohio State","Toledo",
"Dayton","Youngstown State")
OK_teams = c("Oklahoma","Oklahoma State","Tulsa")
OR_teams = c("Oregon","Oregon State","Portland State")
PA_teams = c("Penn State","Pittsburgh","Temple","Bucknell",
"Duquesne","Lafayette","Lehigh","Pennsylvania",
"Robert Morris","St Francis (PA)","Villanova")
RI_teams = c("Brown","Bryant","Rhode Island")
SC_teams = c("Clemson","Coastal Carolina","South Carolina",
"Charleston Southern","Furman","Presbyterian",
"South Carolina State","The Citadel","Wofford",
"Presbyterian College")
SD_teams = c("South Dakota","South Dakota State")
TN_teams = c("Memphis","Middle Tennessee","Tennessee","Vanderbilt",
"Austin Peay","Chattanooga","East Tennessee State",
"Tennessee State","Tennessee Tech","UT Martin")
TX_teams = c("Baylor","Houston","North Texas","Rice","SMU",
"TCU","Texas","Texas A&M","Texas State","Texas Tech",
"UTEP","UT San Antonio","UTSA","Abilene Christian",
"Houston Baptist","Incarnate Word","Lamar",
"Prairie View","Sam Houston State","Stephen F. Austin",
"Tarleton State","Texas Southern")
UT_teams = c("BYU","Utah","Utah State","Dixie State",
"Southern Utah","Weber State")
WA_teams = c("Washington","Washington State",
"Eastern Washington")
WI_teams = c("Wisconsin")
WV_teams = c("Marshall","West Virginia")
WY_teams = c("Wyoming")
recruits_df <- recruits_df %>%
mutate(
college_state = case_when(
Committed.to %in% AL_teams ~ 'AL',
Committed.to %in% AR_teams ~ 'AR',
Committed.to %in% AZ_teams ~ 'AZ',
Committed.to %in% CA_teams ~ 'CA',
Committed.to %in% CO_teams ~ 'CO',
Committed.to %in% CT_teams ~ 'CT',
Committed.to %in% DC_VA_teams ~ 'DC_VA',
Committed.to %in% DE_teams ~ 'DE',
Committed.to %in% FL_teams ~'FL',
Committed.to %in% GA_teams ~ 'GA',
Committed.to %in% HI_teams ~ 'HI',
Committed.to %in% IA_teams ~ 'IA',
Committed.to %in% ID_teams ~ 'ID',
Committed.to %in% IL_teams ~ 'IL',
Committed.to %in% IN_teams ~'IN',
Committed.to %in% KS_teams ~ 'KS',
Committed.to %in% KY_teams ~ 'KY',
Committed.to %in% LA_teams ~ 'LA',
Committed.to %in% MA_teams ~ 'MA',
Committed.to %in% MD_teams ~ 'MD',
Committed.to %in% ME_teams ~ 'ME',
Committed.to %in% MI_teams ~ 'MI',
Committed.to %in% MN_teams ~ 'MN',
Committed.to %in% MO_teams ~ 'MO',
Committed.to %in% MS_teams ~ 'MS',
Committed.to %in% MT_teams ~ 'MT',
Committed.to %in% NC_teams ~ 'NC',
Committed.to %in% ND_teams ~ 'ND',
Committed.to %in% NE_teams ~ 'NE',
Committed.to %in% NH_teams ~ 'NH',
Committed.to %in% NJ_teams ~ 'NJ',
Committed.to %in% NM_teams ~ 'NM',
Committed.to %in% NV_teams ~ 'NV',
Committed.to %in% NY_teams ~ 'NY',
Committed.to %in% OH_teams ~ 'OH',
Committed.to %in% OK_teams ~ 'OK',
Committed.to %in% OR_teams ~ 'OR',
Committed.to %in% PA_teams ~ 'PA',
Committed.to %in% RI_teams ~ 'RI',
Committed.to %in% SC_teams ~ 'SC',
Committed.to %in% SD_teams ~ 'SD',
Committed.to %in% TN_teams ~ 'TN',
Committed.to %in% TX_teams ~ 'TX',
Committed.to %in% UT_teams ~ 'UT',
Committed.to %in% WA_teams ~ 'WA',
Committed.to %in% WI_teams ~ 'WI',
Committed.to %in% WV_teams ~ 'WV',
Committed.to %in% WY_teams ~ 'WY',
TRUE ~ 'OUT-OF-COUNTRY'
))
return(recruits_df)
}