{r ex1} gender_distribution <- nobel %>% filter(gender != “org”) %>% group_by(gender) %>% summarise(count = n())

ggplot(gender_distribution, aes(x = ““, y = count, fill = gender)) + geom_bar(width = 1, stat =”identity”) + coord_polar(“y”, start = 0) + labs(title = “Proportion of Male and Female Nobel Laureates”) + theme_void()