debatePoll.R

Presidential Debate: Polling of students

Population: Students in FW4001, Biometry at University of Minnesota

Load libraries

  library(mosaic)
  library(dplyr)
  library(googlesheets)

Survey Questions and Variables

• Watch = Did you watch the first presidential debate between Trump and Clinton?
• Prevote = Who would you have voted for if the election were held last week?
• Postvote = Who would you vot for if the election were held today?
• Won.debate = If you watched the debate, who did you think “won”?
• Gender = What is your gender?

Read in data

  polldatnm<-gs_title("Debate (Responses)" )
  polldat<-gs_read(polldatnm) 
  names(polldat)<-c("Timestamp","Watch", "Prevote", "Postvote", "Won.debate", "Gender")

Proportion that watched

  tally(~Watch, data=polldat, format="proportion")  

## Watch
##        No       Yes 
## 0.4193548 0.5806452

Vote by gender

  tally(~Postvote|Gender, data=polldat)

##           Gender
## Postvote   Female Male
##   Clinton      14    6
##   Not sure      7    2
##   Trump         0    2

  tally(~Postvote|Gender, data=polldat, format="proportion")  

##           Gender
## Postvote      Female      Male
##   Clinton  0.6666667 0.6000000
##   Not sure 0.3333333 0.2000000
##   Trump    0.0000000 0.2000000

Who won, broken down by whether you watched or not

  tally(~Won.debate|Gender, data=polldat, format="proportion")  

##                                 Gender
## Won.debate                           Female       Male
##   Clinton                        0.33333333 0.50000000
##   I did not watch                0.47619048 0.30000000
##   Not sure even though I watched 0.14285714 0.10000000
##   Trump                          0.04761905 0.10000000

Did the debate change votes?

  tally(~Postvote|Prevote, data=polldat, format="proportion")  

##           Prevote
## Postvote   Clinton Not Sure Trump
##   Clinton     1.00     0.25  0.00
##   Not sure    0.00     0.75  0.00
##   Trump       0.00     0.00  1.00