alan navarro

library (plotrix)
 
# vector con los datos de precipitación en milímetros
lowtide <- c(7,3,0,3,0,9,41,53,28,17,2,3)
# vector con los meses abreviados
month.abbr<-c("Ene.","Feb.","Mar.","Abr.","Mayo","Jun.",
              "Jul.","Ago.","Sep.","Oct.","Nov.","Dic.")
 
##### genero la primer gráfica
radial.plot(lowtide,
            labels=month.abbr,
            rp.type="p",
            poly.col="blue",
            grid.col="black", show.grid=T,
            line.col="blue", grid.bg ="beige", 
            main="Precipitaci\u{F3}n (mil\u{ED}metros) en GME", 
            start=1.3)
##### genero una segunda gráfica sobre la primera
par(new=T)
radial.plot(lowtide,labels=month.abbr,
            line.col="red",
            lwd=2, 
            grid.col="black", 
            show.grid=T,
            start=1.3)
 
###################