lter(country %in% c("United Kingdom", "United States", "Turkey")) |> inner_join(un_roll_calls, by = "rcid") |> inner_join(un_roll_call_issues, by = "rcid") |> group_by(country, year = year(date), issue) |> summarize( votes = n(), percent_yes = mean(vote == "yes") ) |> f i lter(votes > 5) |> # only use records where there are more than 5 votes ggplot(mapping = aes(x = year, y = percent_yes, color = country)) + geom_smooth(method = "loess", se = FALSE) + facet_wrap(~ issue) + labs( title = "Percentage of Yes votes in the UN General Assembly", subtitle = "1946 to 2015", y = "% Yes", x = "Year", color = "Country" )