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)