Responses to Covid-19: Studying the Impact of Partisanship in the U.S.

Data Source: DFP Covid-19 Response Weekly Tracking Poll

aa <- covid %>% filter(political_party == 1 | political_party == 2 | political_party == 3 | political_party == 6)
bb <- covid %>% filter(political_party == 5 | political_party == 8 | political_party == 9 | political_party == 10)
cc <- covid %>% filter(political_party == 4)

aa<- aa %>% mutate(paff1 = "Democrats")
bb<- bb %>% mutate(paff1 = "Republicans")
cc<- cc %>% mutate(paff1 = "Independents")

all<- rbind(aa,bb,cc)
all<- all %>% select(paff1, dfp_nav_worry_countr)

all <- all %>% group_by(paff1) %>% ct(dfp_nav_worry_countr)

all %>% ggplot(., aes(x=dfp_nav_worry_countr, y=pct, group = paff1, fill = paff1)) + 
  geom_col(position = position_dodge(width = 0.8), width = 0.6, colour="black") +
  dark_theme_gray() +
  theme(text=element_text(size=18, family="saira")) +
  scale_x_continuous(breaks=c(1,2), labels=c("The Economy", "People's Health")) +
  scale_y_continuous(limits = c(0, .955), labels = percent) +
  scale_fill_manual(values=c("dodgerblue3", "forestgreen","firebrick1")) +
  labs(x ="", y = "", subtitle = "", title = "Thinking about the impact of covid-19, which are you more worried about?", caption = "@JihedNcib | Data: DFP Covid-19 Response Weekly Tracking Poll") +
  theme(legend.position = 'bottom') +
  theme(legend.title=element_blank())

all<- rbind(aa,bb,cc)
all<- all %>% select(paff1, whichtrust)

all <- all %>% group_by(paff1) %>% ct(whichtrust)

all %>% ggplot(., aes(x=whichtrust, y=pct, group = paff1, fill = paff1)) + 
  geom_col(position = position_dodge(width = 0.8), width = 0.6, colour="black") +
  dark_theme_gray() +
  theme(text=element_text(size=18, family="saira")) +
  scale_x_continuous(breaks=c(1,2), labels=c("Local Government", "Federal Government")) +
  scale_y_continuous(limits = c(0, .955), labels = percent) +
  scale_fill_manual(values=c("dodgerblue3", "forestgreen","firebrick1")) +
  labs(x ="", y = "Trust (%)", subtitle = "", title = "Which level of government do you trust more to handle the Coronavirus pandemic?", caption = "@JihedNcib | Data: DFP Covid-19 Response Weekly Tracking Poll") +
  theme(legend.position = 'bottom') +
  theme(legend.title=element_blank())

all<- rbind(aa,bb,cc)
all<- all %>% filter(socialism != 3) %>% select(paff1, socialism)

all <- all %>% group_by(paff1) %>% ct(socialism)

all %>% ggplot(., aes(x=socialism, y=pct, group = paff1, fill = paff1)) + 
  geom_col(position = position_dodge(width = 0.8), width = 0.6, colour="black") +
  dark_theme_gray() +
  theme(text=element_text(size=18, family="saira")) +
  scale_x_continuous(breaks=c(1,2), labels=c("Good Thing", "Bad Thing")) +
  scale_y_continuous(limits = c(0, .955), labels = percent) +
  scale_fill_manual(values=c("dodgerblue3", "forestgreen","firebrick1")) +
  labs(x ="", y = "", subtitle = "", title = "Would some form of socialism be a good thing or a bad thing for the country?", caption = "@JihedNcib | Data: DFP Covid-19 Response Weekly Tracking Poll") +
  theme(legend.position = 'bottom') +
  theme(legend.title=element_blank())