library (lattice)
data(ToothGrowth)
head(ToothGrowth)
histogram (~len,data=ToothGrowth,main="Histogram of ToothGrowth")
dev.off()

Embed on website

To embed this program on your website, copy the following code and paste it into your website's HTML: