# Come è stato realizzato la rappresentazione grafica della precedente tabella:
#
t <- c(8+32/60,8+36/60,8+43/60,8+47/60,8+51/60,8+55/60,8+59/60,9+4/60,9+10/60)
s <- c(126,   130,    137,    140,    142,    145,    146,    148,    151) - 126
# Traccio i punti - plot(t,s) - senza box, coordinate - fg="white", xaxt="n" ... -,
# senza etichette sugli assi - xlab ="" ... - e scegliendo gli intervalli per i due
# assi - xlim ... -
plot(t,s,xaxt="n",yaxt="n",ylim=c(0,25),xlim=c(8+30/60,9+10/60),fg="white",xlab="",ylab="" )
# Traccio, con abline, due griglie e gli assi:
abline(h=seq(0,25,1),v=seq(8,10,1/60),lty=3,col="grey60")
abline(h=seq(0,25,5),v=seq(8,10,1/6),lty=2,col="blue")
abline(h=0,v=8+30/60)
# Ritraccio i punti, pieni, e li congiungo con segmenti alti 2 pixel
points(t,s, pch=19); lines(t,s,lwd=2)
# Metto con mtext delle scritte sotto - side=1 - in certe posizioni - at -
mtext(c("8:30","8:40","8:50","9","9:10"),side=1,at=8+c(30,40,50,60,70)/60 )
# Aggiungo "t" un po' più in su
mtext("t",side=1,at=9+12.5/60,line=-1)
# Metto delle scritte a sinistra - side=2 - e aggiungo "s"
mtext(c("0","5","10","15","20","25"),side=2,at=c(0,5,10,15,20,25) )
mtext("s",side=2,at=27,line=-1)
# Metto una scritta al centro, sopra - side=3 -
mtext("strada percorsa dal treno in funzione dell'ora",side=3)