<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:18pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "><span>Enquanto o Walmes não responde, vai quebrando o galho com essa solução abaixo.</span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "><span><br></span></div><div><div><font class="Apple-style-span" size="5">lines <- 'meses temp umidade rad chuva</font></div><div><font class="Apple-style-span" size="5"> Jan 26.49 86.58 795.88 0.36</font></div><div><font class="Apple-style-span" size="5"> Fev 26.65 88.49 710.24 0.34</font></div><div><font class="Apple-style-span" size="5"> Mar 27.19 86.16 772.99 0.21</font></div><div><font
class="Apple-style-span" size="5"> Abr 26.28 89.75 574.88 0.67</font></div><div><font class="Apple-style-span" size="5"> Mai 26.62 89.22 614.02 0.31</font></div><div><font class="Apple-style-span" size="5"> Jun 26.13 87.83 680.08 0.26</font></div><div><font class="Apple-style-span" size="5"> Jul 25.83 86.57 675.97 0.15</font></div><div><font class="Apple-style-span" size="5"> Ago 27.05 83.14 756.44 0.07</font></div><div><font class="Apple-style-span" size="5"> Set 27.60 83.02 925.57 0.14</font></div><div><font class="Apple-style-span" size="5"> Out 27.44 85.16 927.71
0.17</font></div><div><font class="Apple-style-span" size="5"> Nov 26.56 88.18 788.87 0.19</font></div><div><font class="Apple-style-span" size="5"> Dez 25.87 90.63 703.94 0.33'</font></div><div><font class="Apple-style-span" size="5"><br></font></div><div><font class="Apple-style-span" size="5">da <- read.table(textConnection(lines), header=TRUE)</font></div><div><font class="Apple-style-span" size="5"><br></font></div><div><font class="Apple-style-span" size="5">par(mar=c(5,4,4,5)) </font></div><div><font class="Apple-style-span" size="5">plot(da$temp, type="b", pch=15, lwd=1.5,</font></div><div><font class="Apple-style-span" size="5"> xlab="Meses (Anos 2010)",</font></div><div><font class="Apple-style-span" size="5"> ylab="Temperatura (ºC)",</font></div><div><font class="Apple-style-span" size="5">
ylim=c(24,30), xlim=c(1,12),</font></div><div><font class="Apple-style-span" size="5"> axes=F,</font></div><div><font class="Apple-style-span" size="5"> main= "A", font.main=2, font.lab=2)</font></div><div><font class="Apple-style-span" size="5">axis(1, at=1:12,labels=c("Jan.","Fev.","Mar.","Abr.","Maio","Jun.", "Jul.", "Ago.", "Set.", "Out.", "Nov.", "Dez."))</font></div><div><font class="Apple-style-span" size="5">axis(2)</font></div><div><font class="Apple-style-span" size="5"> par(new=T)</font></div><div><font class="Apple-style-span" size="5"> plot(da$umidade, type="b", pch=14,axes=F, frame=T, ann=F)</font></div><div><font class="Apple-style-span" size="5"> axis(4)</font></div><div><font class="Apple-style-span" size="5"> mtext(text="Umidade (%)", 4, line = 3) </font></div><div><font
class="Apple-style-span" size="5"><br></font></div><div><font class="Apple-style-span" size="5">Allaman</font></div><div><font class="Apple-style-span" size="5">(S,f,P)</font></div></div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "> </div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; background-color: transparent; color: rgb(115, 115, 115); " align="center"><b>M.Sc Ivan Bezerra Allaman</b> <br>Zootecnista<br><font style="background-color:transparent;" face="comic sans ms" size="2"><font style="background-color:transparent;">Doutorando em Produção Animal/Aquicultura - UFLA</font> <br></font><font size="2"><i><strong></strong></i></font><font style="background-color:transparent;" face="comic sans ms" size="2">email e msn - ivanalaman@yahoo.com.br <br><font size="1">Tel: (35)3826-6608/9900-2924</font></font></div></div></body></html>