Sequence plot

plot(x, type = "l", col = "blue", xlab = '', ylab = '', las=1)
abline(v=c(0,20,40,60,80,100), lty=3, h = c(5,10,15,20,25))

Histogramme

hist(x, col = "blue", xlab='',ylab='', las=2)
abline(v=c(5,10,15),lty=3,h=c(5,10,15,20))