```r library(ggplot2) ddt <-Intro2R::ddt
g <- ggplot(ddt, aes(x=DDT, y=LENGTH)) + geom_point() g <- g + stat_smooth(method = "loess", formula = 'y~x') g
Column ------------------------------------- ### Chart 2 ```r plot(LENGTH ~ WEIGHT,data = ddt)
plot(DDT ~ WEIGHT, data =ddt)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.