Recoding Variables

Topic

I am interested in finding out how democrats and republicans differ in their feelings toward immigration. I will be comparing them based on:if they think immigrants contribute to or drain society,if they favor or oppose a path to naturalization for immigrants who are here illegally,and their feelings toward immigrants.

Recoding Variables

library(readr)
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(ggplot2)
Data<-read.csv('/Users/apple/Downloads/Abbreviated Voter Dataset Labeled.csv')
Data<-Data%>%
  mutate(Party= ifelse(PartyIdentification == 1 , "Democrat",
                  ifelse(PartyIdentification == 2, "Republican", NA)),
 ImmigrantContributions = ifelse(ImmigrantContributions== 1, "Mostly Contribute",
 ifelse(ImmigrantContributions==2, "Mostly a Drain",
ifelse(ImmigrantContributions==3, "Neither",
ifelse(ImmigrantContributions==4, "Not Sure", NA)))),
  ImmigrantNaturalization = ifelse(ImmigrantNaturalization==1, "Favor", ifelse(ImmigrantNaturalization==2 , "Oppose",
ifelse(ImmigrantNaturalization==3, "Not Sure", NA))),
       ImmigrantFeelings = ifelse(ft_immig_2017>100, NA,ft_immig_2017))%>%
 select(Party, ImmigrantContributions, ImmigrantNaturalization, ImmigrantFeelings)%>%
  filter(!is.na(Party), !is.na(ImmigrantContributions), !is.na(ImmigrantNaturalization), !is.na(ImmigrantFeelings))