# 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)