# Find players with most appearances top_appearances <- appearances %>% group_by(player_name) %>% summarise(appearances = n()) %>% arrange(desc(appearances)) %>% head(10)
best_teams <- matches %>%
print(best_teams)
print(winners)
print(cards_per_tournament)