R

plot(0,0 , xlim=c(0, 1), ylim=c(0, 1))

a<-c(1,0)

b<-c(0,0)

#linea abajo

lines(a,b)

c<-c(1,1)

#linea arriba

lines(a,c)

#sujetos

sa<-c(0.075,0.03)

sb<-c(0.317,0.313)

sc<-c(0.446,0.5)

sd<-c(0.161,0.157)

#origen de y

lin<-c(1,0)

#lineas de los sujetos

lines(sa,lin,lty=4)

lines(sb,lin,lty=5)

lines(sc,lin,lty=6)

lines(sd,lin,lty=1)

Puede ejecutarse aquí:
http://pbil.univ-lyon1.fr/Rweb/

Apunte (autonota)
 http://www.gardenersown.co.uk/Education/Lectures/R/graphs3.htm