# NOT RUN {
library(ggplot2)
ggplot(mammals, aes(x = log(body_wt), y = log(brain_wt))) +
geom_point() +
geom_smooth(method = "lm") +
labs(x = "Log of body weight", x = "Log of brain weight")
# }
Run the code above in your browser using DataLab