library(ggplot2); data(diamonds);
diamonds <- subset(diamonds, carat < 1)

fit <- lm(data = diamonds, price ~ carat)
plot(fit)

fit2 <- lm(data = diamonds, price ~ carat + cut)
plot(fit2)