x<-sample(1:100,30,replace=T) boxplot(x) # #abline(h=median(x)) #abline(h=min(x)) #abline(h=max(x)) #abline(h=quantile(x,type=2)[[2]][1]) #abline(h=quantile(x,type=2)[[4]][1])