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@yahoo.com.br Tel: (35)3826-6608/9900-2924