# Scatter plot with trend line
ggplot(clinical_data, aes(x = Age, y = Cholesterol, color = Smoking_Status)) +
geom_point() +
geom_smooth(method = "lm", se = FALSE) +
labs(title = "Age vs Cholesterol with Trend Line",
x = "Age (years)",
y = "Cholesterol (mg/dL)")
