source("Main.R")
##
## 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
## Warning in eval(ei, envir): NAs introduced by coercion
## Warning in eval(ei, envir): NAs introduced by coercion
nikki_haley_data<-republican_party_primary_polling|>filter(Candidate=="Nikki Haley")|>mutate(Poll_Boundary=ifelse(State=="NULL","Nationwide",State))
print(nikki_haley_data)
## Candidate Polling Pollster Nationwide State
## 1 Nikki Haley 19.0 Echelon Insights 1 NULL
## 2 Nikki Haley 9.0 Echelon Insights 1 NULL
## 3 Nikki Haley 9.0 Echelon Insights 1 NULL
## 4 Nikki Haley 6.0 Morning Consult 1 NULL
## 5 Nikki Haley 2.0 McLaughlin & Associates 1 NULL
## 6 Nikki Haley 4.0 McLaughlin & Associates 1 NULL
## 7 Nikki Haley 8.0 Echelon Insights 1 NULL
## 8 Nikki Haley 3.0 McLaughlin & Associates 1 NULL
## 9 Nikki Haley 7.0 Echelon Insights 1 NULL
## 10 Nikki Haley 3.0 YouGov/Economist 1 NULL
## 11 Nikki Haley 4.0 Echelon Insights 1 NULL
## 12 Nikki Haley 4.0 Yale Youth Poll 1 NULL
## 13 Nikki Haley 12.0 Club for Growth NULL Iowa
## 14 Nikki Haley 2.0 YouGov/The Times 1 NULL
## 15 Nikki Haley 4.0 J.L. Partners 1 NULL
## 16 Nikki Haley 5.0 McLaughlin & Associates 1 NULL
## 17 Nikki Haley 8.0 Echelon Insights 1 NULL
## 18 Nikki Haley 5.0 J.L. Partners 1 NULL
## 19 Nikki Haley 4.0 McLaughlin & Associates 1 NULL
## 20 Nikki Haley 2.0 Emerson College 1 NULL
## 21 Nikki Haley 2.0 Emerson College 1 NULL
## 22 Nikki Haley 4.0 McLaughlin & Associates 1 NULL
## 23 Nikki Haley 7.0 Overton Insights 1 NULL
## 24 Nikki Haley 6.0 Echelon Insights 1 NULL
## 25 Nikki Haley 4.0 McLaughlin & Associates 1 NULL
## 26 Nikki Haley 2.7 Emerson College NULL North Carolina
## Sample_Size Voter_Type DMY
## 1 832 Registered Voters 2024-01-16
## 2 932 Registered Voters 2024-07-19
## 3 483 Likely Voters 2024-11-14
## 4 994 Registered Voters 2024-12-06
## 5 453 Likely Voters 2025-01-22
## 6 463 Likely Voters 2024-12-11
## 7 466 Likely Voters 2025-02-10
## 8 468 Likely Voters 2025-02-11
## 9 457 Likely Voters 2025-03-10
## 10 594 Registered Voters 2025-03-30
## 11 450 Likely Voters 2025-04-10
## 12 NA NULL 2025-04-01
## 13 564 Likely Voters 2025-04-14
## 14 1296 NULL 2025-04-22
## 15 1006 Registered Voters 2025-04-23
## 16 456 Likely Voters 2025-04-24
## 17 426 Likely Voters 2025-05-08
## 18 975 Registered Voters 2025-05-13
## 19 455 Likely Voters 2025-06-10
## 20 416 Registered Voters 2025-06-24
## 21 420 Registered Voters 2024-11-20
## 22 457 Likely Voters 2025-05-21
## 23 444 Registered Voters 2025-06-23
## 24 463 Likely Voters 2025-07-10
## 25 459 Likely Voters 2025-07-09
## 26 416 Likely Voters 2025-07-28
## Link
## 1 https://x.com/Politics_Polls/status/1749632663122505993?s=20
## 2 https://echeloninsights.com/in-the-news/july2024-verified-voter-omnibus-2-2-2-2/
## 3 https://echeloninsights.com/in-the-news/nov-2024-verified-voter-omnibus/
## 4 https://pro.morningconsult.com/analysis/2028-gop-primary-polling-december-2024
## 5 https://mclaughlinonline.com/pols/wp-content/uploads/2025/01/National-January-Presentation-RELEASE-01-28-25.pdf
## 6 https://mclaughlinonline.com/pols/wp-content/uploads/2024/12/National-December-Presentation-RELEASE-12-17-24.pdf
## 7 http://echelonin.wpenginepowered.com/wp-content/uploads/February-2025-Voter-Omnibus-Topline-External.pdf
## 8 https://mclaughlinonline.com/pols/wp-content/uploads/2025/02/National-February-Presentation-RELEASE-02-18-25.pdf
## 9 https://echeloninsights.com/in-the-news/march-2025-verified-voter-omnibus-2-2-2/
## 10 https://d3nkl3psvxxpe9.cloudfront.net/documents/econtoplines_S1a74K0.pdf
## 11 https://echeloninsights.com/in-the-news/april-2025-verified-voter-omnibus-2-2-2-2/
## 12 https://docs.google.com/spreadsheets/d/1JhSWPVcKK6tdufsa52TeRk3JRwSsgtglVQP1ZAa8fg4/edit?gid=396464130#gid=396464130
## 13 https://x.com/axiosalex/status/1912612448898626028
## 14 https://d3nkl3psvxxpe9.cloudfront.net/documents/times_20250425.pdf
## 15 https://floridapolitics.com/archives/735360-desantis-poll-28/
## 16 hhttps://mclaughlinonline.com/pols/wp-content/uploads/2025/05/National-April-Presentation-RELEASE-04-29-25.pdf
## 17 https://echeloninsights.com/in-the-news/may-2025-verified-voter-omnibus-2-2-2-2-2/
## 18 https://www.telegraph.co.uk/us/politics/2025/05/16/jd-vance-is-runaway-republican-candidate-polling-reveal/
## 19 https://mclaughlinonline.com/pols/wp-content/uploads/2025/06/National-June-Presentation-RELEASE-6-16-25.pdf
## 20 https://emersoncollegepolling.com/june-national-poll/
## 21 https://emersoncollegepolling.com/november-2024-national-poll-trump-favorability-jumps-post-election-2028-election-kicks-off-with-harris-and-vance-leading-primaries/
## 22 https://mclaughlinonline.com/pols/wp-content/uploads/2025/05/National-May-Presentation-RELEASE-05-27-25.pdf
## 23 https://overtoninsights.com/wp-content/uploads/2025/07/July-2025-Poll.pdf
## 24 https://echeloninsights.com/in-the-news/july-2025-verified-voter-omnibus-2-2-2-2-2-2-2/
## 25 https://mclaughlinonline.com/pols/wp-content/uploads/2025/07/National-July-Presentation-RELEASE-07-15-25.pdf
## 26 https://emersoncollegepolling.com/north-carolina-2026-poll-cooper-starts-us-senate-race-with-six-point-lead-and-clear-name-recognition-advantage-over-whatley/
## Poll_Boundary
## 1 Nationwide
## 2 Nationwide
## 3 Nationwide
## 4 Nationwide
## 5 Nationwide
## 6 Nationwide
## 7 Nationwide
## 8 Nationwide
## 9 Nationwide
## 10 Nationwide
## 11 Nationwide
## 12 Nationwide
## 13 Iowa
## 14 Nationwide
## 15 Nationwide
## 16 Nationwide
## 17 Nationwide
## 18 Nationwide
## 19 Nationwide
## 20 Nationwide
## 21 Nationwide
## 22 Nationwide
## 23 Nationwide
## 24 Nationwide
## 25 Nationwide
## 26 North Carolina
nikki_haley_chart<-nikki_haley_data|>ggplot(aes(x=DMY,y=Polling,color=Poll_Boundary))+geom_point(alpha=0.6)+geom_line()+scale_x_date(date_breaks="3 months")+labs(title="Nikki Haley",x="Date",y="Polling (%)")
nikki_haley_chart
nikki_haley_summary<-nikki_haley_data|>summarise(avg_polling=round(mean(Polling),digits=2),weighted_avg_polling=round(sum(Polling * (Sample_Size/(sum(Sample_Size,na.rm=TRUE))),na.rm=TRUE),digits=2),
standard_deviation=round(sd(Polling),digits=2),maximum_polling=max(Polling),minimum_polling=min(Polling),median_polling=round(median(Polling),digits=2))
print(nikki_haley_summary)
## avg_polling weighted_avg_polling standard_deviation maximum_polling
## 1 5.6 5.88 3.75 19
## minimum_polling median_polling
## 1 2 4