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