library(ggplot2) ggplot(ToyotaSiennaGasMileage::ToyotaSiennaGasMileage, aes(x = date, y = miles/gallons)) + geom_point() + geom_smooth(method = "lm", color = "blue", se = FALSE) + geom_smooth( color = "red", se = FALSE) + theme_bw()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.