<div dir="ltr"><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif">Usando a lattice</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif"><br></div><div class="gmail_default">
<div class="gmail_default"><font face="courier new, monospace" size="1">dados <- read.table(text='Classe 0-10 10-20</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">Mata_Nativa 10.046667 7.600000</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1">Citrus_37 12.363333 23.126667</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">Citrus_37 15.326667 27.580000</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1">Citrus_24 4.380000 8.856667</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">Citrus_18 10.430000 21.576667</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1">Citrus_31 9.196667 18.036667</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">Pasto_37 6.690000 12.533333', header=TRUE)</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1"><br></font></div><div class="gmail_default"><font face="courier new, monospace" size="1">dados <- cbind(dados, id=1:nrow(dados))</font></div><div class="gmail_default">
<font face="courier new, monospace" size="1">## dados <- reshape(dados,</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">## varying=list(c('X0.10', 'X10.20')),</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1">## direction='long',</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">## idvar='id',</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1">## timevar='Camada',</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">## times=c('0 - 10', '10 - 20'))</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1"><br></font></div><div class="gmail_default"><font face="courier new, monospace" size="1">names(dados)[2:3] <- c("0-10","10-20")</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1"><br></font></div><div class="gmail_default"><font face="courier new, monospace" size="1">require(reshape)</font></div><div class="gmail_default"><font face="courier new, monospace" size="1"><br>
</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">da <- melt(dados, measure.vars=2:3)</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">str(da)</font></div>
<div class="gmail_default"><font face="courier new, monospace" size="1"><br></font></div><div class="gmail_default"><font face="courier new, monospace" size="1">require(lattice)</font></div><div class="gmail_default"><font face="courier new, monospace" size="1"><br>
</font></div><div class="gmail_default"><font face="courier new, monospace" size="1">barchart(value~Classe, groups=variable, data=da,</font></div><div class="gmail_default"><font face="courier new, monospace" size="1"> auto.key=list(columns=2))</font></div>
<div class="gmail_default"><font face="trebuchet ms, sans-serif"><br></font></div><div class="gmail_default"><font face="trebuchet ms, sans-serif">À disposição.</font></div><div class="gmail_default"><font face="trebuchet ms, sans-serif">Walmes.</font></div>
</div><div class="gmail_extra"><br clear="all"><div><div dir="ltr"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">skype: walmeszeviani<br style="font-family:trebuchet ms,sans-serif"></span><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span></div>
</div></div></div>