{r ex3} ggplot(nobel, aes(x = age_at_award)) + geom_density(fill = “blue”, alpha = 0.5) + labs(title = “Density Plot of Age at Time of Nobel Prize Award”, x = “Age at Award”, y = “Density”) + theme_minimal()