{r}
ggplot(nobel, aes(x = year, y = age_at_award)) +
  geom_point(alpha = 0.5, color = "darkgreen") +
  geom_smooth(method = "lm", color = "red", se = FALSE) +
  labs(title = "Scatter Plot of Laureates' Age by Year with Trend Line", 
       x = "Year", y = "Age at Award") +
  theme_minimal()