source("../2028 United States Presidential Election Poll Tracking/Republican_App/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 dbSendQuery(conn, statement, ...): Decimal MySQL column 1 imported
## as numeric
## Warning in dbSendQuery(conn, statement, ...): Decimal MySQL column 1 imported
## as numeric
jd_vance_data <- republican_party_primary_polling|> filter(Candidate=="J.D. Vance") |> mutate(Poll_Boundary=ifelse(is.na(State), "Nationwide",State))
print(jd_vance_data)
## Candidate Polling Pollster Nationwide State Sample_Size
## 1 J.D. Vance 1.0 Echelon Insights 1 <NA> 832
## 2 J.D. Vance 25.0 Echelon Insights 1 <NA> 932
## 3 J.D. Vance 37.0 Echelon Insights 1 <NA> 483
## 4 J.D. Vance 30.0 Morning Consult 1 <NA> 994
## 5 J.D. Vance 27.0 McLaughlin & Associates 1 <NA> 453
## 6 J.D. Vance 25.0 McLaughlin & Associates 1 <NA> 463
## 7 J.D. Vance 39.0 Echelon Insights 1 <NA> 466
## 8 J.D. Vance 37.0 McLaughlin & Associates 1 <NA> 468
## 9 J.D. Vance 46.0 Echelon Insights 1 <NA> 457
## 10 J.D. Vance 47.0 Fabrizio NA Florida 600
## 11 J.D. Vance 43.0 YouGov/Economist 1 <NA> 594
## 12 J.D. Vance 36.0 Overton Insights 1 <NA> 536
## 13 J.D. Vance 47.0 Echelon Insights 1 <NA> 450
## 14 J.D. Vance 53.0 Yale Youth Poll 1 <NA> NA
## 15 J.D. Vance 47.0 Club for Growth NA Iowa 564
## 16 J.D. Vance 43.0 YouGov/The Times 1 <NA> 1296
## 17 J.D. Vance 40.0 J.L. Partners 1 <NA> 1006
## 18 J.D. Vance 43.0 McLaughlin & Associates 1 <NA> 456
## 19 J.D. Vance 44.0 Echelon Insights 1 <NA> 426
## 20 J.D. Vance 46.0 J.L. Partners 1 <NA> 975
## 21 J.D. Vance 60.0 Atlas Intel 1 <NA> 2347
## 22 J.D. Vance 37.3 Atlas Intel 1 <NA> 1044
## 23 J.D. Vance 30.0 Emerson College 1 <NA> 420
## Voter_Type DMY
## 1 Registered Voters 2024-01-16
## 2 Registered Voters 2024-07-19
## 3 Likely Voters 2024-11-14
## 4 Registered Voters 2024-12-06
## 5 Likely Voters 2025-01-22
## 6 Likely Voters 2024-12-11
## 7 Likely Voters 2025-02-10
## 8 Likely Voters 2025-02-11
## 9 Likely Voters 2025-03-10
## 10 Likely Voters 2025-02-26
## 11 Registered Voters 2025-03-30
## 12 Registered Voters 2025-03-24
## 13 Likely Voters 2025-04-10
## 14 <NA> 2025-04-01
## 15 Likely Voters 2025-04-14
## 16 <NA> 2025-04-22
## 17 Registered Voters 2025-04-23
## 18 Likely Voters 2025-04-24
## 19 Likely Voters 2025-05-08
## 20 Registered Voters 2025-05-13
## 21 <NA> 2025-04-11
## 22 <NA> 2025-05-22
## 23 Registered Voters 2024-11-20
## 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://floridapolitics.com/archives/724265-desantis-vance-florida-poll/
## 11 https://d3nkl3psvxxpe9.cloudfront.net/documents/econtoplines_S1a74K0.pdf
## 12 https://overtoninsights.com/wp-content/uploads/2025/04/Overton-Insights-Poll-April-2025-Crosstabs-Party-Ideology-2024-Vote-1.pdf
## 13 https://echeloninsights.com/in-the-news/april-2025-verified-voter-omnibus-2-2-2-2/
## 14 https://docs.google.com/spreadsheets/d/1JhSWPVcKK6tdufsa52TeRk3JRwSsgtglVQP1ZAa8fg4/edit?gid=396464130#gid=396464130
## 15 https://x.com/axiosalex/status/1912612448898626028
## 16 https://d3nkl3psvxxpe9.cloudfront.net/documents/times_20250425.pdf
## 17 https://floridapolitics.com/archives/735360-desantis-poll-28/
## 18 https://mclaughlinonline.com/pols/wp-content/uploads/2025/05/National-April-Presentation-RELEASE-04-29-25.pdf
## 19 https://echeloninsights.com/in-the-news/may-2025-verified-voter-omnibus-2-2-2-2-2/
## 20 https://www.telegraph.co.uk/us/politics/2025/05/16/jd-vance-is-runaway-republican-candidate-polling-reveal/
## 21 https://cdn.atlasintel.org/e3edc86b-aac7-4ebe-9ef7-6a8346f658f6.pdf?_gl=1*1po007n*_ga*NjMxOTI2NjYxLjE3NDQ5Mjc1MzM.*_ga_W78QD5CNP1*MTc0NDkyNzUzMy4xLjAuMTc0NDkyNzUzMy4wLjAuMA
## 22 https://cdn.atlasintel.org/20c89f8f-d65e-4991-a491-388ae96986c9.pdf
## 23 https://emersoncollegepolling.com/november-2024-national-poll-trump-favorability-jumps-post-election-2028-election-kicks-off-with-harris-and-vance-leading-primaries/
## Poll_Boundary
## 1 Nationwide
## 2 Nationwide
## 3 Nationwide
## 4 Nationwide
## 5 Nationwide
## 6 Nationwide
## 7 Nationwide
## 8 Nationwide
## 9 Nationwide
## 10 Florida
## 11 Nationwide
## 12 Nationwide
## 13 Nationwide
## 14 Nationwide
## 15 Iowa
## 16 Nationwide
## 17 Nationwide
## 18 Nationwide
## 19 Nationwide
## 20 Nationwide
## 21 Nationwide
## 22 Nationwide
## 23 Nationwide
jd_vance_chart <- jd_vance_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= "J.D. Vance",x="Date",y="Polling (%)")
jd_vance_chart
saveRDS(jd_vance_data, "jd_vance_data.rds")