Diagram in Basque language showing different dispersion measures based on distance. R code:
> datuak=rnorm(28,10,1)
> png("ibiltarteak_01.png")
> stripchart(datuak,col=c("green"))
> abline(v=min(datuak))
> abline(v=max(datuak))
>arrows(x0=min(datuak),y0=1.1,x1=max(datuak),y1=1.1,
code=3,length=0.1,lwd=1)
> text(10.15,1.14,"Ibiltartea (%100)",cex=1)
> abline(v=quantile(datuak,prob=0.1),col="red")
> abline(v=quantile(datuak,prob=0.9),col="red")
>arrows(x0=quantile(datuak,prob=0.1),y0=0.9,
x1=quantile(datuak,prob=0.9),y1=0.9,col=c("red"),
code=3,length=0.1,lwd=1)
> text(10.15,0.94,"Dezil arteko ibiltartea (%80)",cex=1,col=c("red"))
> abline(v=quantile(datuak,prob=0.25),col="blue")
> abline(v=quantile(datuak,prob=0.75),col="blue")
>arrows(x0=quantile(datuak,prob=0.25),y0=0.75,
x1=quantile(datuak,prob=0.75),y1=0.75,col=c("blue"),
code=3,length=0.1,lwd=1)
> text(10.20,0.79,"Kuartil arteko ibiltartea (%50)",cex=1,col=c("blue"))
> title(main="Distantzian oinarritutako sakabanatze-neurriak")
> dev.off()