การเรียงลำดับตามเปอร์เซ็นต์การโหวต "yes"

# You have the votes summarized by country
by_country <- votes_processed %>%
  group_by(country) %>%
  summarize(total = n(),
            percent_yes = mean(vote == 1))

# Print the by_country dataset


# Sort in ascending order of percent_yes


# Now sort in descending order