Pipeline for generating frequency barhplots

pipe9.R

roll_calls_imp <- 
  un_roll_call_issues %>% 
  left_join(un_roll_calls) %>% 
  filter(importantvote == 1)

roll_calls_imp %>%
  count(issue) %>% 
  ggplot(aes(reorder(issue, n) , n)) + 
  geom_col() +
  coord_flip()+
  xlab("issue")+
  ylab("count")