A lato sono rappresentati i millimetri di pioggia caduti mediamente, tra il 1971 e il 2000, nei vari mesi dell'anno, nelle città di Bolzano, Genova, Milano e Palermo. Associa ad ogni città il relativo grafico.    

Ecco l'associazione dei grafici alle città, ed anche i grafici relativi a Cagliari, Roma e Verona.  I mesi estivi sono quelli in cui nelle città vicine al mare piove meno e nelle città di montagna piove di più. Nelle città di pianura l'andamento è intermedio. Nelle città di mare più meridionali piove meno. Genova, per altro, come dovrebbe essere noto, ha un alto picco di piovosità in autunno.

Se sei interessato, ecco come sono stati ottenuti i grafici precedenti con R (vedi), e come puoi produrne di simili.

source("http://macosa.dima.unige.it/r.R")
# i mm di pioggia mese per mese nelle varie cittą:
Pmi = c(58.7, 49.2,65.0,75.5,95.5,66.7,66.8,88.8,93.1,122.4, 76.7, 61.7)
Pvr = c(50.9, 43.3,48.7,70.4,74.2,87.2,62.6,81.7,76.2, 91.0, 64.8, 52.5)
Pro = c(69.5, 75.8,59.0,76.2,49.1,40.7,21.0,34.1,71.8,107.0,109.9, 84.4)
Pge = c(101.8,74.0,81.7,88.0,72.4,58.2,24.2,69.3,136.4,171.3,108.8,93.1)
Pca = c(49.7, 53.3,40.4,39.7,26.1,11.9, 4.1, 7.5,34.9, 52.6, 58.4, 48.9)
Ppa = c(97.5,109.9,78.2,65.1,36.2,17.9, 6.7,31.8,65.3,105.6,117.5,123.7)
Pbz = c(23.5, 22.8,36.9,50.2,75.2,84.6,92.3,86.2,70.9, 84.4, 49.9, 34.6)
BF=3.7; HF=2.7              # scelgo base e altezza della finestra grafica
Plane(1,12, 0,170)                                             # o: Piano…
# se voglio, infittisco la griglia
gridHC(seq(10,200,10),"blue"); GridHC(c(50,100,150),"brown")
mesi=1:12
# traccio le poligonali delle varie cittą                    (o: spezzata…)
polyline(mesi,Pbz,"blue"); polyline(mesi,Pge,"red")     
polyline(mesi,Pmi,"brown"); polyline(mesi,Ppa,"green3")
# Scrivo delle etichette (sopra, ossia) a destra dell'asse y  (o: SuAssey…)
AboveY("BZ",Pbz[12]); AboveY("GE",Pge[12]); AboveY("MI",Pmi[12])
AboveY("PA",Ppa[12])
# il secondo grafico, nella stessa scala:
Plane(1,12, 0,170)
gridHC(seq(10,200,10),"blue"); GridHC(c(50,100,150),"brown")
polyline(mesi,Pro,"black"); polyline(mesi,Pca,"orange")
polyline(mesi,Pvr,"magenta")
AboveY("RM",Pro[12]); AboveY("CA",Pca[12]-5)
AboveY("VR",Pvr[12]+5)

Possiamo utilizzare anche questo semplice script:o questo:

o lo script disegnare(4): vedi  (leggi l'help); i comandi (copiabili e incollabili, seguiti da uno spazio bianco o un ";"):


V: PA,  W: GE,  X: MI, Y: BZ

,/b&A&A, : /b/b/b(baaaa"aa[ )bcccc'aa[aa[ )bccc'aa"aa[,
/a/b /bbb @ v(adw @ v(a(bbbw @ v(a(bbbw @ v(a/bbbbw @ v(abbbbw @ v(abbbbw @ v(adddw @ v(a(ddddw @ v(a(bbbw @ v(a/d/dbbbw @ v(a/dbbw @,
/a/b /b/b/bd @ v(addddw @ v(a/bddw @ v(a(bw @ v(a/bw @ v(a/d(dw @ v(aw @ v(a/bbw @ v(abbbw @ v(a/bbbbbw @ v(a)dbbw @ v(a(dddw @,
/a/b &bd @ v(a(bbw @ v(a/d(ddw @ v(a(ddw @ v(a/d(dw @ v(a/dbw @ v(a(ddw @ v(a/bbbbw @ v(a/b/bdddw @ v(a/b/bw @ v(a(bbw @ v(abbbw @,
/a/b &bb @ vaaaa/dddddw @ v(abbbbw @ v(abbbw @ v(a/dbbw @ v(a/dbbbw @ v(a/d/dbbbw @ v(a)bddw @ v(a/b/b/bbbbw @ v(a/b/bddw @ v(a/d/d/dddw @ v(a/dbbbw @,
(bbb /a ' /a/a " /a/(a 'aa[ /acc 'aa{, &a/a/a &b/b/bbbV /d(dW /d(dX /d(dY,
/a(a/b(bbbY /bbbbbX /bbbcW )bbaV

Altrimenti si può usare online www.wolframalpha.com. Vedi qui.

plot {(1,0), (1,200),(1,58.7),(2,49.2),(3,65),(4,75.5),(5,95.5),(6,66.7),(7,66.8),(8,88.8),(9,93.1),(10,122.4),(11,76.7),(12,61.7)}
plot {(1,0), (1,200),(1,23.5),(2, 22.8),(3,36.9),(4,50.2),(5,75.2),(6,84.6),(7,92.3),(8,86.2),(9,70.9),(10,84.4),(11,49.9),(12,34.6)}
plot {(1,0), (1,200),(1,101.8),(2, 74.0),(3,81.7),(4,88.0),(5,72.4),(6, 58.2),(7,24.2),(8,69.3),(9,136.4),(10,171.3),(11,108.8),(12,93.1)}
plot {(1,0), (1,200),(1,97.5),(2, 109.9),(3,78.2),(4,65.1),(5,36.2),(6, 17.9),(7,6.7),(8,31.8),(9,65.3),(10,105.6),(11,117.5),(12,123.7)}