sum <- summary(cars$price[cars$type=="midsize"]) abline(h=c(sum[2],sum[5]), col=c("blue","green"), lwd=3)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.