[R-br] graficos com dois eixos y

[Ivan Bezerra Allaman]

Enquanto o Walmes não responde, vai quebrando o galho com essa solução abaixo.

lines <- 'meses  temp umidade    rad   chuva
     Jan     26.49   86.58    795.88  0.36
     Fev     26.65   88.49    710.24  0.34
     Mar    27.19   86.16     772.99  0.21
     Abr    26.28   89.75     574.88  0.67
     Mai    26.62   89.22    614.02  0.31
     Jun   26.13   87.83    680.08  0.26
     Jul    25.83   86.57     675.97  0.15
     Ago   27.05   83.14    756.44  0.07
     Set    27.60   83.02    925.57  0.14
    Out   27.44   85.16    927.71  0.17
    Nov   26.56   88.18   788.87  0.19
   Dez  25.87   90.63    703.94  0.33'

da <- read.table(textConnection(lines), header=TRUE)

par(mar=c(5,4,4,5)) 
plot(da$temp, type="b", pch=15, lwd=1.5,
     xlab="Meses (Anos 2010)",
     ylab="Temperatura (ºC)",
     ylim=c(24,30), xlim=c(1,12),
     axes=F,
     main= "A", font.main=2, font.lab=2)
axis(1, at=1:12,labels=c("Jan.","Fev.","Mar.","Abr.","Maio","Jun.", "Jul.", "Ago.", "Set.", "Out.", "Nov.", "Dez."))
axis(2)
     par(new=T)
     plot(da$umidade, type="b", pch=14,axes=F, frame=T, ann=F)
     axis(4)
     mtext(text="Umidade (%)", 4, line = 3)         

Allaman
(S,f,P)
 
M.Sc Ivan Bezerra Allaman 
Zootecnista
Doutorando em Produção Animal/Aquicultura - UFLA 
email e msn - ivanalaman em yahoo.com.br 
Tel: (35)3826-6608/9900-2924
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110601/5c108a30/attachment.html>