data %>% group_by(player_id) %>%
ggplot(mapping = aes (x = player_id y = birth_country)) + geom_point(aes(size = TEAMID), alpha = 0.3)
data %>%
# Group by winpercent group_by(player_id) %>% # Sort it arrange(birth_countries)