denisty_plot<-function(v){
stopifnot(is.numeric(v))
data.frame(values=v) %>%
ggplot(aes(x=values)) +
geom_denisty()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.