Data : https://www.kaggle.com/rohanrao/formula-1-world-championship-1950-2020 Code: library(tidyverse)
dat <- read_csv('drivers.csv') color_scheme <- c("#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7", "#fdbb84", "#bcbddc", "#a6bddb") dat %>%
group_by(nationality) %>%
count() %>%
filter(n > 20) %>%
ggplot(aes(x = reorder(nationality, n), y = n)) +…