พล็อตข้อมูลเฉพาะสหราชอาณาจักรตามช่วงเวลา

# Start with by_year_country dataset
by_year_country <- votes_processed %>%
  group_by(year, country) %>%
  summarize(total = n(),
            percent_yes = mean(vote == 1))

# Print by_year_country


# Create a filtered version: UK_by_year


# Line plot of percent_yes over time for UK only
___(UK_by_year, ___) ___
  ___