rm(list=ls(all=TRUE))
require(ggplot2)
# beaver1
ggplot(beaver1, aes(x=time, y=activ)) +
geom_point() +
geom_smooth(method=mgcv::gam)
# geom_smooth(method="mgcv::gam")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.