<div dir="ltr">Prezados membros da lista gostaria de pedir o auxílio de vocês.<div><br></div><div>A partir dos seguintes comando:</div><div><br></div><div><div>dados=cbind(c("Mata Nativa", "Citrus 37", "Citrus 37", "Citrus 24", "Citrus 18", "Citrus 31","Pasto 37"),</div>
<div>      tapply(arenosa[1:21, "ECA"], arenosa[1:21, "Trat"], mean), </div><div>      tapply(arenosa[1:21, "ECB"], arenosa[1:21, "Trat"], mean), id=1:nrow(tapply(arenosa[1:21, "ECA"], arenosa[1:21, "Trat"], mean)))</div>
<div><br></div><div>colnames(dados)<-c("Classes", "0-10", "10-20", "id")</div><div>dados= as.data.frame(dados)</div><div>barchart(value~Classes, groups=variable, data=melt(dados, measure.var=2:3),</div>
<div>         auto.key=list(columns=2), horizon=FALSE, ylab="Estoque Carbono", main="Área 3")</div><div><br></div><div>Eu gero a seguinte tabela de dados com o respectivo gráfico de barra.</div><div><div>
       Classes             0-10    10-20    id</div><div>301  Mata Nativa     10.04     7.6        1</div><div>312   Citrus 37        12.36     23.12     2</div><div>322   Citrus 37        15.32     27.58     3</div><div>
332   Citrus 24        4.38       8.85       4</div><div>342   Citrus 18        10.43     21.57     5</div><div>352   Citrus 31         9.19      18.03     6</div><div>364    Pasto 37        6.69      12.53     7</div></div>
<div><br></div><div>Eu gostaria de inserir neste gráfico de barras o desvio padrão de cada barra.</div><div>Como eu poderia fazer isso?</div><div><br></div><div>Segue a tabela com os respectivos desvios padrão.</div><div>
<div>                      0-10         10-20</div><div>Mata Nativa 3.4250012     0.7715569</div><div>Citrus 37     2.0617064     4.1486182</div><div>Citrus 37     2.8501287     4.7112737</div><div>Citrus 24     0.1931321     0.3666515</div>
<div>Citrus 18     1.7760349     4.9343726</div><div>Citrus 31     0.6730775     1.6246333</div><div>Pasto 37      2.4274060    2.8266116</div></div><div><br></div><div>Desde já agradeço.</div><div><br></div>-- <br><b>Rodrigo A. Muniz</b><div>
Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div><div>Cel (19) 8300-4333 (Pessoal)</div><div>Tel (19) 3375-1196 (Residêncial)</div><div>Tel (19) 3447-8537 (Trabalho)</div>

</div></div>