-
Notifications
You must be signed in to change notification settings - Fork 1
/
01_define-names-labels.R
241 lines (225 loc) · 27.1 KB
/
01_define-names-labels.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
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
library(tidyverse)
library(tibble)
# each row is a variable for the standardized data, each column is for the cces year0
master_11 <- tribble(
~name, ~`2006`, ~`2006m`, ~`2007`, ~`2008`, ~`2009`, ~`2010`, ~`2011`,
"rep_inc", "v5013", "rep", "repname", "V527", "v627", "V501", "V501",
"rep_ipt", "v5014", "reppid", NA, "V535", NA, "V502", NA,
"sen1_inc", "v5015", "sen1", "sen1name", "V551", "v651", "V513", "V513",
"sen1_ipt", "v5016", "sen1pid", NA, "V544", NA, "V514", NA,
"sen2_inc", "v5017", "sen2", "sen2name", "V552", "v652", "V521", "V521",
"sen2_ipt", "v5018", "sen2pid", NA, "V548", NA, "V522", NA,
"gov_inc", "v5019", "gov", "govname", "V508", "v608", "V529", "V529",
"gov_ipt", "v5020", "govpid", NA, "V513", NA, "V530", NA,
"rep_can1", "v5001", "repcand1", NA, "V518", NA, "V533", NA,
"rep_pty1", "v5002", "repcand1pid", NA, NA, NA, NA, NA,
"rep_can2", "v5003", "repcand2", NA, "V519", NA, "V536", NA,
"rep_pty2", "v5004", "repcand2pid", NA, NA, NA, NA, NA,
"rep_can3", NA, NA, NA, "V520", NA, "V539", NA,
"rep_pty3", NA, NA, NA, "V533", NA, "V542", NA,
"sen_can1", "v5005", "sencand1", NA, "V553", NA, "V548", NA,
"sen_pty1", "v5006", "sencand1pid", NA, NA, NA, NA, NA,
"sen_can2", "v5007", "sencand2", NA, "V555", NA, "V551", NA,
"sen_pty2", "v5008", "sencand2pid", NA, NA, NA, NA, NA,
"sen_can3", NA, NA, NA, "V556", NA, "V554", NA,
"sen_pty3", NA, NA, NA, "V572", NA, "V556", NA,
"gov_can1", "v5009", "govcand1", NA, "V501", NA, "V564", NA,
"gov_pty1", "v5010", "govcand1pid", NA, NA, NA, NA, NA,
"gov_can2", "v5011", "govcand2", NA, "V502", NA, "V567", NA,
"gov_pty2", "v5012", "govcand2pid", NA, NA, NA, NA, NA,
"gov_can3", NA, NA, NA, "V503", NA, "V570", NA,
"gov_pty3", NA, NA, NA, "V512", NA, "V572", NA,
)
master_17 <- tribble(
~name, ~`2012`, ~`2013`, ~`2014`, ~`2015`, ~`2016`, ~`2017`,
"rep_inc", "CurrentHouseName", "CurrentHouseName", "CurrentHouseName", "CurrentHouseName", "CurrentHouseName", "CurrentHouseName",
"rep_ipt", "CurrentHouseParty","CurrentHouseParty","CurrentHouseParty","CurrentHouseParty","CurrentHouseParty", "CurrentHouseParty",
"sen1_inc", "CurrentSen1Name", "CurrentSen1Name", "CurrentSen1Name", "CurrentSen1Name", "CurrentSen1Name", "CurrentSen1Name",
"sen1_ipt", "CurrentSen1Party", "CurrentSen1Party", "CurrentSen1Party", "CurrentSen1Party", "CurrentSen1Party", "CurrentSen1Party",
"sen2_inc", "CurrentSen2Name", "CurrentSen2Name", "CurrentSen2Name", "CurrentSen2Name", "CurrentSen2Name", "CurrentSen2Name",
"sen2_ipt", "CurrentSen2Party", "CurrentSen2Party", "CurrentSen2Party", "CurrentSen2Party", "CurrentSen2Party", "CurrentSen2Party",
"gov_inc", "CurrentGovName", "CurrentGovName", "CurrentGovName", "CurrentGovName", "CurrentGovName", "CurrentGovName",
"gov_ipt", "CurrentGovParty", "CurrentGovParty", "CurrentGovParty", "CurrentGovParty", "CurrentGovParty", "CurrentGovParty",
"rep_can1", "HouseCand1Name", NA, "HouseCand1Name", NA, "HouseCand1Name", NA,
"rep_pty1", "HouseCand1Party", NA, "HouseCand1Party", NA, "HouseCand1Party", NA,
"rep_can2", "HouseCand2Name", NA, "HouseCand2Name", NA, "HouseCand2Name", NA,
"rep_pty2", "HouseCand2Party", NA, "HouseCand2Party", NA, "HouseCand2Party", NA,
"rep_can3", "HouseCand3Name", NA, "HouseCand3Name", NA, "HouseCand3Name", NA,
"rep_pty3", "HouseCand3Party", NA, "HouseCand3Party", NA, "HouseCand3Party", NA,
"sen_can1", "SenCand1Name", NA, "SenCand1Name", NA, "SenCand1Name", NA,
"sen_pty1", "SenCand1Party", NA, "SenCand1Party", NA, "SenCand1Party", NA,
"sen_can2", "SenCand2Name", NA, "SenCand2Name", NA, "SenCand2Name", NA,
"sen_pty2", "SenCand2Party", NA, "SenCand2Party", NA, "SenCand2Party", NA,
"sen_can3", "SenCand3Name", NA, "SenCand3Name", NA, "SenCand3Name", NA,
"sen_pty3", "SenCand3Party", NA, "SenCand3Party", NA, "SenCand3Party", NA,
"gov_can1", "GovCand1Name", NA, "GovCand1Name", NA, "GovCand1Name", NA,
"gov_pty1", "GovCand1Party", NA, "GovCand1Party", NA, "GovCand1Party", NA,
"gov_can2", "GovCand2Name", NA, "GovCand2Name", NA, "GovCand2Name", NA,
"gov_pty2", "GovCand2Party", NA, "GovCand2Party", NA, "GovCand2Party", NA,
"gov_can3", NA, NA, NA, NA, "GovCand3Name", NA,
"gov_pty3", NA, NA, NA, NA, "GovCand3Party", NA
)
master <- left_join(master_11, master_17, by = "name")
# same as previous years
master$`2018` <- master$`2016`
master$`2021` <- master$`2019` <- master$`2017`
master$`2020` <- master$`2018`
# don't exist in 2020
master$`2020`[master$`2020` %in% c("SenCand3Name", "SenCand3Party", "GovCand3Name", "GovCand3Party"
)] <- NA
master$`2022` <- master$`2018`
check_no_dupes <- function(c) if (n_distinct(master[[c]], na.rm = TRUE) != sum(!is.na(master[[c]]))) stop(glue("check column {c}"))
for (c in 2:ncol(master)) check_no_dupes(c)
saveRDS(master, "data/output/02_questions/variable_std_key.Rds")
ccc_meta <- tribble(
~alias, ~type, ~name, ~description,
"year", "categorical", "CCES year", "[Year of CCES Common Content]",
"cong", "categorical", "Congressional session", "[Current Congressional session. Use to join incumbents]",
"cong_up", "categorical", "Congressional session for upcoming Congress", "[Upcoming Congressional session. Use to join candidates.]",
"starttime", "datetime", "Start time", "[Pre-election wave start time (up to second)]",
"case_id", "text", "Case identifier", "[Case (Respondent) Identifier. Unique within year]",
"tookpost", "categorical", "Took post-election wave", "[Whether or not the respondent took the post-election wave of the survey (in even years)]",
"weight", "numeric", "Survey weight (Year-Specific)", "[weights for pre-election survey of each year]",
"weight_cumulative", "numeric", "Survey weight (Cumulative)", "[weight variable with simple adjustment: multiplied a constant within year to make years comparable]",
"weight_post", "numeric", "Survey weight for post-election wave", "[weight for post-election wave respondents. Only available for some of the even years.]",
"rvweight", "numeric", "Survey weights to validated registered voters", "[weights to validated registered voter population]",
"rvweight_post", "numeric", "Survey weights to validated registered voters, post-election wave", "[weights to validated registered voter population, post-election wave]",
"state", "categorical", "State (FIPS)", "[State]",
"st", "categorical", "State abbreviation (FIPS)", "[State Abbreviation]",
"dist", "categorical", "Congressional district number in current Congress", "[Current Congressional District Number]",
"dist_up", "categorical", "Congressional district number for upcoming Congress", "[Upcoming Congressional District Number]",
"cd", "categorical", "Congressional district in current Congress", "[Current Congressional District]",
"cd_up", "categorical", "Congressional district in upcoming Congress", "[Upcoming Congressional District]",
"state_post", "categorical", "State (FIPS), post-election", "[State, post-election]",
"st_post", "categorical", "State abbreviation (FIPS), post-election", "[State, post-election]",
"dist_post", "categorical", "Congressional district number in current Congress, post-election", "[Current Congressional District Number, post-election]",
"dist_up_post", "categorical", "Congressional district number for upcoming Congress, post-election", "[Upcoming Congressional District Number, post-election]",
"cd_post", "categorical", "Congressional district in current Congress, post-election", "[Current Congressional District, post-election]",
"cd_up_post", "categorical", "Congressional district in upcoming Congress, post-election", "[Upcoming Congressional District, post-election]",
"zipcode", "text", "Zipcode (lookupzip)", "[lookupzip in most years.] So that we can ask you about the news and events in your area, in what zip code do you currently reside?",
"county_fips", "text", "County of residence", "[County (Imputed from input zipcode)]",
"gender", "categorical", "Sex (standardized)", "Are you...? <1> Male <2> Female [2018-2020] Are you male or female? [2006-2016]",
"gender4", "categorical", "Gender", "What is your gender?",
"sex", "categorical", "Sex", "Are you male or female? [2006-2016]",
"birthyr", "numeric", "Year of birth", "In what year were you born?",
"age", "numeric", "Age", "[Approximate age computed from the year of survey minus Year of Birth]",
"educ", "categorical", "Education", "What is the highest level of education you have completed?",
"race", "categorical", "Race", "What racial or ethnic group best describes you?",
"hispanic", "categorical", "Hispanic", "Are you of Spanish, Latino, or Hispanic origin or descent? [Asked if response to race is not Hispanic]",
"race_h", "categorical", "Race (any-part Hispanic)", "[race (What racial or ethnic group best describes you?) combined with hispanic ethnicity]",
"hisp_origin", "categorical", "Hispanic origin", "From which country or region do you trace your heritage or ancestry? (Check all that apply) [asked if any-part Hispanic]",
"faminc", "categorical", "Family Income", "Thinking back over the last year, what was your family's annual income? [Brackets coarsened]",
"union", "categorical", "Union membership", "Are you a member of a union?",
"union_hh", "categorical", "Union membership in household", "Other than yourself, is any member of your household a union member?",
"religion", "categorical", "Religion", "What is your present religion, if any?",
"relig_bornagain", "categorical", "Evangelical Christian", "Would you describe yourself as a born-again or evangelical Christian, or not?",
"relig_protestant", "categorical", "Branch of Protestantism", "To which Protestant church or group do you belong?",
"relig_imp", "categorical", "Importance of religion", "How important is religion in your life?",
"relig_church", "categorical", "Church Attendance", "Aside from weddings and funerals, how often do you attend religious services?",
"economy_retro", "categorical", "Retrospective economy", "OVER THE PAST YEAR the nation's economy has ...?",
"newsint", "categorical", "News Interest", "Some people seem to follow what's going on in government and public affairs most of the time, whether there's an election going on or not. Others aren't that interested. Would you say you follow what's going on in government and public affairs ..",
"marstat", "categorical", "Marital Status", "What is your marital status?",
"citizen", "categorical", "Citizenship", "[Based on self-report for immigration status]",
"no_healthins", "categorical", "Uninsured", "[Based on health insurance question; respondent has none of the insurance options given]",
"no_milstat", "categorical", "Military Status (None)", "[Based on military household question; neither respondent nor immediate family has served]",
"employ", "categorical", "Employment Status", "Which of the following best describes your current employment status?",
"ownhome", "categorical", "Home Ownership", "Do you own your home or pay rent?",
"has_child", "categorical", "Parent of Young Children", "Are you the parent or guardian of any children under the age of 18?",
"pid3", "categorical", "Partisan identity (3 point)", "Generally speaking, do you think of yourself as a ...?",
"pid3_leaner", "categorical", "Partisan identity (including leaners)", "[Codes self-identified Independents in pid3 who expressed leaning towards a party in pid7 (Lean Democrats / Republicans) as partisans.]",
"pid7", "categorical", "Partisan identity (7 point)", "[Based on branching from Partisan Identity question]",
"ideo5", "categorical", "Ideology (5 point)", "In general, how would you describe your own political viewpoint?",
"approval_pres", "categorical", "President approval", "Do you approve of the way each is doing their job... [Pipe Incumbent President]",
"approval_rep", "categorical", "House Representative approval", "Do you approve of the way each is doing their job... [Pipe Incumbent Representative's Name]",
"approval_sen1", "categorical", "Senator 1 approval", "Do you approve of the way each is doing their job... [Pipe Incumbent Senator 1's Name]",
"approval_sen2", "categorical", "Senator 2 approval", "Do you approve of the way each is doing their job... [Pipe Incumbent Senator 2's Name]",
"approval_gov", "categorical", "Governor approval", "Do you approve of the way each is doing their job... Governor of [Pipe State]",
"vv_regstatus", "categorical", "Validated registration status", "[Validation results. Missing if validation was not conducted in the year. Categories are aggregated. Both Matched-not registered and unmatched are labeled as a no record.]",
"turnout_self", "categorical", "Self-reported turnout General Election", "2020: Do you intend to vote in the 2020 general election on November 3rd?",
"vv_party_gen", "categorical", "Validated registered party", "[Validation results. Only available for some states and years]",
"vv_party_prm", "categorical", "Validated registered Primary party", "[Validation results. Only available for some states and years]",
"vv_turnout_gvm", "categorical", "Validated turnout General Election", "[Validation results. All vote methods (polling, mail, early, unknown, etc..) are aggregated as a vote.]",
"vv_turnout_pvm", "categorical", "Validated turnout Primary Election (Congressional)", "[Validation results. Congressional primaries.]",
"intent_turnout_self", "categorical", "Self-reported turnout (pre-election wave)", "2020: Do you intend to vote in the 2020 general election on November 3rd?",
"voted_turnout_self", "categorical", "Self-reported turnout (post-election wave)", "2020: Which of the following statements best describes you?",
"voted_pres_20", "categorical", "2020 President vote choice (after voting)", "[If reported voting] 2020: For whom did you vote for President of the United States? [Post-election]",
"intent_pres_20", "categorical", "2020 President preference (before voting)", "Which candidate for President of the United States do you prefer?",
"voted_pres_16", "categorical", "2016 President vote choice (after voting)", "2017: In the election for U.S. President, who did you vote for? [If reported voting] 2016: For whom did you vote for President of the United States? [Post-election]",
"intent_pres_16", "categorical", "2016 President preference (before voting)", "Which candidate did you prefer for President of the United States?",
"voted_pres_12", "categorical", "2012 President vote choice (after voting)", "2012: For whom did you vote for President of the United States? 2016: In 2012, who did you vote for in the election for President? [see guide for wording in all years]",
"intent_pres_12", "categorical", "2012 President preference (before voting)", "In the race for President of the United States, who do you prefer?",
"voted_pres_08", "categorical", "2008 President vote choice (after voting)", "2008: For which candidate for President of the United States did you vote? [see guide for wording in all years]",
"intent_pres_08", "categorical", "2008 President preference (before voting)", "For which candidate for President of the United States would you vote?",
"intent_rep", "categorical", "House preference (before voting)", "In the general election for U.S. House of Representatives in your area, who do you prefer?",
"intent_sen", "categorical", "Senate preference (before voting)", "In the race for U.S. Senator in your state, who do you prefer?",
"intent_gov", "categorical", "Governor preference (before voting)", "In the race for Governor in your state, who do you prefer?",
"voted_rep", "categorical", "House vote choice (after voting)", "For whom did you vote for U.S. House?",
"voted_sen", "categorical", "Senate vote choice (after voting)", "For whom did you vote for U.S. Senator?",
"voted_gov", "categorical", "Governor vote choice (after voting)", "For whom did you vote for Governor?",
"intent_rep_chosen", "text", "House preference name", "[Text chosen by respondent in intent_rep]",
"intent_sen_chosen", "text", "Senate preference name", "[Text chosen by respondent in intent_sen]",
"intent_gov_chosen", "text", "Governor preference name", "[Text chosen by respondent in intent_gov]",
"voted_rep_chosen", "text", "House vote choice name", "[Text chosen by respondent in voted_rep]",
"voted_sen_chosen", "text", "Senate vote choice name", "[Text chosen by respondent in voted_sen]",
"voted_gov_chosen", "text", "Governor vote choice name", "[Text chosen by respondent in voted_gov]",
"intent_pres_party", "text", "President preference party", "[Party of presidential candidate chosen in intent_pres]",
"intent_rep_party", "text", "House preference party", "[Party of candidate chosen by respondent in intent_rep]",
"intent_sen_party", "text", "Senate preference party", "[Party of candidate chosen by respondent in intent_sen]",
"intent_gov_party", "text", "Governor preference party", "[Party of candidate chosen by respondent in intent_gov]",
"voted_pres_party", "text", "President vote in last election", "[Party of presidential candidate chosen in last election]",
"voted_rep_party", "text", "House vote choice party", "[Party of candidate chosen by respondent in voted_rep]",
"voted_sen_party", "text", "Senate vote choice party", "[Party of candidate chosen by respondent in voted_sen]",
"voted_gov_party", "text", "Governor vote choice party", "[Party of candidate chosen by respondent in voted_gov]",
"intent_rep_fec", "text", "House preference candidate ID", "[FEC ID for candidate chosen in intent_rep (via linkage)]",
"intent_sen_fec", "text", "Senate preference candidate ID", "[FEC ID for candidate chosen in intent_sen (via linkage)]",
"intent_gov_fec", "text", "Governor preference candidate ID", "[FEC ID for candidate chosen in intent_gov (via linkage)]",
"voted_rep_fec", "text", "House vote choice candidate ID", "[FEC ID for candidate chosen in voted_rep (via linkage)]",
"voted_sen_fec", "text", "Senate vote choice candidate ID", "[FEC ID for candidate chosen in voted_sen (via linkage)]",
"voted_gov_fec", "text", "Governor vote choice candidate ID", "[FEC ID for candidate chosen in voted_gov (via linkage)]",
"rep_current", "text", "Current House Representative name", "[Name and party used in CCES]",
"sen1_current", "text", "Current Senator 1 name", "[Name and party used in CCES]",
"sen2_current", "text", "Current Senator 2 name", "[Name and party used in CCES]",
"gov_current", "text", "Current Governor name", "[Name and party used in CCES]",
"rep_icpsr", "text", "Current House Representative ID", "[ICPSR / NOMINATE]",
"sen1_icpsr", "text", "Current Senator 1 ID", "[ICPSR / NOMINATE]",
"sen2_icpsr", "text", "Current Senator 2 ID", "[ICPSR / NOMINATE]",
"gov_fec", "text", "Current Governor ID", "[FEC ID]"
)
# need to be unique
stopifnot(n_distinct(ccc_meta$alias) == nrow(ccc_meta))
stopifnot(n_distinct(ccc_meta$name) == nrow(ccc_meta))
iss_meta <- tribble(
~alias, ~name, ~description,
"year_date", "Year", "Year of CCES (date)",
"banassault", "Ban assault rifles", "On the issue of gun regulation, are you for or against each of the following proposals? ... Ban assault rifles",
"repealACA", "Repeal the ACA", "Thinking now about health care policy, would you support or oppose each of the following proposals? ... Repeal the entire Affordable Care Act",
"ideoself", "Ideology (7-point)", "How would you rate each of the following individuals and groups? ... Yourself",
"demparty", "Perceived ideology of the Democractic Party", "How would you rate each of the following individuals and groups? The Democratic Party",
"repparty", "Perceived ideology of the Republican Party", "How would you rate each of the following individuals and groups? ... The Republican Party",
"bornagain", "Born-again Christian", "Would you describe yourself as a 'born-again'; or evangelical Christian, or not?",
"religimpt", "Importance of religion", "How important is religion in your life?",
"churchatt", "Church attendance", "Aside from weddings and funerals, how often do you attend religious services?",
"prayer", "Frequency of prayer", "People practice their religion in different ways. Outside of attending religious services, how often do you pray?",
"religion", "Religion", "What is your present religion, if any?",
"renewable", "Renewable fuels requirements", "Do you support or oppose each of the following proposals? Require a minimum amount of renewable fuels (wind, solar, and hydroelectric) in the generation of electricity even if electricity prices increase somewhat",
"cleanair", "Clean Air Act enforcement", "Do you support or oppose each of the following proposals? Strengthen enforcement of the Clean Air Act and Clean Water Act even if it costs US jobs",
"meeting", "Attend political meetings", "During the past year did you ... Attend local political meetings (such as school board or city council)",
"sign", "Put up a political sign", "During the past year did you ... Put up a political sign (such as a lawn sign or bumper sticker)",
"candidate", "Camapign participation", "During the past year did you ... Work for a candidate or campaign",
"donor", "Donate money", "During the past year did you ... Donate money to a candidate, campaign, or political organization",
"resent1", "Racial resentment 1", "Irish, Italians, Jewish and many other minorities overcame prejudice and worked their way up. Blacks should do the same without any special favors.",
"resent2", "Racial resentment 2", "Generations of slavery and discrimination have created conditions that make it difficult for blacks to work their way out of the lower class.",
"spendwelfare", "Welfare spending", "State legislatures must make choices when making spending decisions on important state programs. How would you like your legislature to spend money on each of the five areas below? ... Welfare",
"spendhealth", "Health care spending", "State legislatures must make choices when making spending decisions on important state programs. How would you like your legislature to spend money on each of the five areas below? ... Health Care",
"spendeduc", "Education spending", "State legislatures must make choices when making spending decisions on important state programs. How would you like your legislature to spend money on each of the five areas below? ... Education",
"spendpolice", "Law enforcement spending", "State legislatures must make choices when making spending decisions on important state programs. How would you like your legislature to spend money on each of the five areas below? ... Law Enforcement",
"spendtransp", "Transportation and infrastructure spending", "State legislatures must make choices when making spending decisions on important state programs. How would you like your legislature to spend money on each of the five areas below? ... Transportation / Infrastructure",
"legalstatus", "Immigration legal status", "What do you think the U.S. government should do about immigration? Select all that apply. Grant legal status to all illegal immigrants who have held jobs and paid taxes for at least 3 years, and not been convicted of any felony crimes",
"security", "Immigration border patrols", "What do you think the U.S. government should do about immigration? Select all that apply. Increase the number of border patrols on the U.S.-Mexican border",
"gaymarriage", "Gay marriage", "Do you favor or oppose allowing gays and lesbians to marry legally?"
)
stopifnot(n_distinct(iss_meta$alias) == nrow(iss_meta) &&
n_distinct(iss_meta$name) == nrow(iss_meta))
saveRDS(ccc_meta, "data/output/02_questions/cumulative_vartable.Rds")
saveRDS(iss_meta, "data/output/02_questions/issuevars_vartable.Rds")
cli::cli_alert_success("Finished naming and describing variables")