p_custom <- ggplot(df, aes(x = wt, y = mpg, color = factor(cyl))) +
geom_point(size = 3, alpha = 0.8) +
labs( title = "Consommation (mpg) vs Poids du véhicule", subtitle = "Jeu de données mtcars — cylindre codé par couleur", x = "Poids (1000 lbs)", y = "Miles per Gallon (mpg)", color = "Nombre de cylindres" ) +
theme_minimal() +
theme( plot.title = element_text(hjust = 0.5, size = 16, face = "bold"), plot.subtitle = element_text(hjust = 0.5, size = 12), axis.title = element_text(size = 14), legend.position = "bottom", legend.title = element_text(size = 12), legend.text = element_text(size = 10) )