library(ggplot2)
data(mtcars)
ggplot(mtcars, aes(x = wt, y = mpg, color = factor(cyl))) +
geom_point(size = 3) +
geom_smooth(method = "lm", se = FALSE) +
labs(
title = "Relação entre Peso e Consumo de Combustível",
x = "Peso do carro (wt)",
y = "Milhas por galão (mpg)",
color = "Número de cilindros"
) +
theme_minimal()
## `geom_smooth()` using formula = 'y ~ x'