Interactive Visualization with Tableau

dat <- na.omit(read.csv(file="https://github.com/chinwex/STA553/raw/main/w09/PresidentialElection2000To2020.csv"))
dat$county_fips <- sprintf("%05d", dat$county_fips)

votes = dat$candidatevotes
totalcountyvotes = dat$totalvotes
statedata <- dplyr::summarise(group_by(dat, year, state, state_po), sum.state = sum(candidatevotes))
totalstatevotes = statedata$sum.state

dat1 = dat
dat1$county_percent = (votes/totalcountyvotes)*100
dat1 = dat1[,-c(6,11,12)]

dat2 = dat %>%
  group_by(year, state, state_po, candidate, party) %>%
  dplyr::summarise(state_sum = sum(candidatevotes))

dat2 = dplyr::mutate(group_by(dat2, year, state, state_po), statetotal = sum(state_sum))
dat2$state_percent = ((dat2$state_sum)/dat2$statetotal)*100

dat1final <- dat1 %>%
  group_by(year,state, county_name)%>%
  filter(county_percent == max(county_percent))

dat2final <- dat2 %>%
  group_by(year,state)%>%
  filter(state_percent == max(state_percent))

write.csv(dat1final, file="C:\\Users\\echef\\Documents\\STA553\\week 9\\countysubset.csv")
write.csv(dat2final, file="C:\\Users\\echef\\Documents\\STA553\\week 9\\statesubset.csv")