chooseCRANmirror(graphics=FALSE, ind=1)
knitr::opts_chunk$set(echo = TRUE)
install.packages("tidyverse")
## 
## The downloaded binary packages are in
##  /var/folders/16/27j7rnz52rj1kpnj_7rfg8bh0000gn/T//Rtmprc66rj/downloaded_packages
install.packages("ggthemes")
## 
## The downloaded binary packages are in
##  /var/folders/16/27j7rnz52rj1kpnj_7rfg8bh0000gn/T//Rtmprc66rj/downloaded_packages
library(tidyverse)

#read data from github

poll_data = read.csv("https://raw.githubusercontent.com/asadny82/Data607/main/generic_ballot_polls.csv", header = TRUE,sep ="," )
pollPar <- data.frame(poll_data$poll_id,poll_data$pollster_id,poll_data$pollster, poll_data$sponsor_ids,poll_data$sponsors,poll_data$dem,poll_data$rep,poll_data$pollster_rating_id,poll_data$transparency_score)
 colnames(pollPar)<-c("poll_id","pollster_id","pollster","transparency_score","pollster_rating_id","sponsor_ids","sponsors","dem","rep")
 pollPar
pollDem_sub <- subset(pollPar, dem>rep)
pollDem_sub<- pollDem_sub[,c("poll_id","pollster_id","pollster","transparency_score","sponsor_ids","sponsors","pollster_rating_id")]
pollDem_sub
pollPar_sub <- subset(pollPar, sponsor_ids >0)
pollPar_sub <- pollPar_sub[,c("poll_id","pollster_id","pollster","sponsor_ids","sponsors","pollster_rating_id")]
pollPar_sub

#pollsert has high rating for rep

pollRep_sub <- subset(pollPar,dem>rep)
pollRep_sub<- pollRep_sub[,c("poll_id","pollster_id","pollster","sponsor_ids","sponsors","pollster_rating_id")]
pollRep_sub
TopTRansScore <-head(arrange(pollPar,desc(poll_data$'transparency_score')),n=50)
TopTRansScore <-TopTRansScore[,c("dem","rep","transparency_score")]
TopTRansScore
 TomScoregg <- ggplot(NULL, aes(x, y)) + 
  geom_line(data=TopTRansScore , aes(x=transparency_score, y=dem, group=1), col="blue") +
  geom_line(data=TopTRansScore , aes(x=transparency_score, y=rep, group=1), col="red")
   
TomScoregg

Conclusion: Dem has grater transparency_score than rep base on top 50 transparency_score.