Mutate Data

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(readr)
library(knitr)
VoterData<-suppressMessages(read_csv("/Users/juliushunte/Downloads/VOTER_Survey_July17_Release1-csv copy.csv"))


NewData2<-VoterData%>%
          rename("Gender"=gender_baseline,
                "Liberal"=pp_demprim16_2016,
                "Conservative"=pp_repprim16_2016,
                "ObamaElect"=post_presvote12_2012,
                "TrumpElect"=presvote16post_2016)%>%
  select(Gender,Liberal,Conservative,ObamaElect,TrumpElect)%>%
  mutate(Gender=ifelse(Gender==1,"Male","Female"),
  Liberal=ifelse(Liberal==1,"Hillary Clinton",
              ifelse(Liberal==2,"Bernie Sanders",
                ifelse(Liberal==3,"Someone else",
                  ifelse(Liberal==4,"Don't recall",NA)))),
  Conservative=ifelse(Conservative==1,"Donald Trump",
                      ifelse(Conservative==2,"John Kasich",
                        ifelse(Conservative==3,"Ted Cruz",
                          ifelse(Conservative==4,"Marco Rubio",
                            ifelse(Conservative==5,"Someone else",
                              ifelse(Conservative==6,"Don't recall",NA)))))),
  ObamaElect=ifelse(ObamaElect==1,"Barack Obama",
              ifelse(ObamaElect==2,"Mitt Romney",
                ifelse(ObamaElect==3,"Other candidate",
                  ifelse(ObamaElect==4,"I did not vote in this race",
                    ifelse(ObamaElect==5,"I did not vote",
                      ifelse(ObamaElect==6,"Note sure",NA)))))),
 TrumpElect=ifelse(TrumpElect==1,"Hillary Clinton",
              ifelse(TrumpElect==2,"Donald Trump",
                ifelse(TrumpElect==3,"Gary Johnson",
                  ifelse(TrumpElect==4,"Jill Stein",
                    ifelse(TrumpElect==5,"Evan McMullin",
                      ifelse(TrumpElect==6,"Other",
                        ifelse(TrumpElect==7,"Did not vote for president",NA))))))))


#kable(prop.table(table(NewData2$Gender,NewData2$Liberal,NewData2$Conservative,NewData2$ObamaElect,NewData2$TrumpElect))



kable(prop.table(table(NewData2$Liberal,NewData2$Gender),2))

	Female	Male
Bernie Sanders	0.3830042	0.4773599
Don’t recall	0.0125673	0.0084421
Hillary Clinton	0.5840814	0.4911742
Someone else	0.0203471	0.0230238

kable(prop.table(table(NewData2$Conservative,NewData2$Gender),2))

	Female	Male
Don’t recall	0.0189145	0.0088757
Donald Trump	0.4810855	0.4585799
John Kasich	0.1134868	0.1242604
Marco Rubio	0.0912829	0.0964497
Someone else	0.0460526	0.0414201
Ted Cruz	0.2491776	0.2704142

kable(prop.table(table(NewData2$ObamaElect,NewData2$Gender),2))

	Female	Male
Barack Obama	0.5776817	0.4277674
I did not vote	0.0002702	0.0000000
I did not vote in this race	0.0027020	0.0010721
Mitt Romney	0.3904350	0.5196998
Note sure	0.0035126	0.0021442
Other candidate	0.0253985	0.0493165

kable(prop.table(table(NewData2$TrumpElect,NewData2$Gender),2))

	Female	Male
Did not vote for president	0.0047232	0.0039526
Donald Trump	0.3993702	0.5156785
Evan McMullin	0.0023616	0.0039526
Gary Johnson	0.0254526	0.0353096
Hillary Clinton	0.5308318	0.4010540
Jill Stein	0.0160063	0.0134387
Other	0.0212543	0.0266140

#head(NewData2)