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 - [email protected]
Tel: (35)3826-6608/9900-2924_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
