Recoding Variables

Identify Variables

• partyreg_baseline ->Party Registration, Democrat & Republican

• wealth6_2019->Describe wealthy people - Help others by giving to charities - 2019

• wealth4_2019->Describe wealthy people - Create jobs - 2019

• rwm_2019->Feeling Thermometer – Rich white men - 2019

Import Data

VD2019<-read.csv("/Volumes/FLASHDRIVE/Data 333/Voter Data 2019.csv")
library(dplyr)

## 
## 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(tidyr)

Recode Data

VD2019_recoded<-VD2019%>%
  
mutate(WealthHelp = ifelse(wealth6_2019==1,"Very well",
ifelse(wealth6_2019==2,"Somewhat well",
ifelse(wealth6_2019==3,"Not very well",
ifelse(wealth6_2019==4,"Not at all well",NA)))), 

Wealthjobs = ifelse(wealth4_2019==1,"Very well",
ifelse(wealth4_2019==2,"Somewhat well", 
ifelse(wealth4_2019==3,"Not very well", 
ifelse(wealth4_2019==4,"Not at all well",NA)))),

WealthyWhiteMen = ifelse(rwm_2019>100,NA,rwm_2019),

Party=ifelse(partyreg_baseline==1,"Democrat",
      ifelse(partyreg_baseline==2,"Republican",NA)))%>% 
  
select(WealthHelp, Wealthjobs,
WealthyWhiteMen, Party) %>%
  
filter (Party  %in% c("Democrat", "Republican"))

head(VD2019_recoded,25)

##         WealthHelp    Wealthjobs WealthyWhiteMen      Party
## 1             <NA>          <NA>              NA Republican
## 2    Not very well Not very well              NA   Democrat
## 3    Not very well Not very well              NA   Democrat
## 4             <NA>          <NA>              NA   Democrat
## 5             <NA>          <NA>              NA   Democrat
## 6    Not very well Not very well              NA   Democrat
## 7        Very well     Very well              NA Republican
## 8    Somewhat well Somewhat well              NA   Democrat
## 9  Not at all well Not very well              50 Republican
## 10   Somewhat well Somewhat well              NA Republican
## 11            <NA>          <NA>              NA   Democrat
## 12   Somewhat well     Very well              NA Republican
## 13            <NA>          <NA>              NA   Democrat
## 14       Very well Somewhat well              NA Republican
## 15   Not very well Somewhat well              NA Republican
## 16       Very well     Very well              NA Republican
## 17   Somewhat well Somewhat well              NA Republican
## 18   Somewhat well Somewhat well              NA   Democrat
## 19       Very well     Very well              NA Republican
## 20   Somewhat well     Very well              NA Republican
## 21       Very well     Very well              NA Republican
## 22   Somewhat well Not very well              NA   Democrat
## 23 Not at all well Not very well              NA   Democrat
## 24   Somewhat well Somewhat well              NA Republican
## 25            <NA>          <NA>              NA Republican