{r ex2} ggplot(nobel, aes(x = category, fill = gender)) + geom_bar(position = “stack”) + labs(title = “Stacked Bar Plot of Nobel Prizes by Category and Gender”, x = “Category”, y = “Count”) + theme_minimal()