data <-c(10,12,15,16,18,21,24,25,28,29,30,35,40)
histogram <-hist(data,plot=FALSE,breaks=5)
hist(data,breaks=5,col="lightblue",main="histogram",xlab="values",ylab="frequency")

Embed on website

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