<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Bom dia pessoal,<br>
<br>
Conforme rotina do Walmes eu consegui solucionar o problema,
obrigado pela ajuda de todos, segue exemplo com solução:<br>
<br>
require(gplots)<br>
<br>
#tratmentos no tempo1<br>
trat1<-rep(1:3,100)<br>
resp1<-rpois(300,25)<br>
med1<-tapply(resp1, trat1,mean)##Media dos tratamentos<br>
ep1<-tapply(resp1,trat1,sd)/sqrt(tapply(resp1,trat1,length))###Erros
padrao da media<br>
<br>
#tratmentos no tempo2<br>
trat2<-rep(1:3,100)<br>
resp2<-rpois(300,10)<br>
med2<-tapply(resp2, trat2,mean, na.rm = TRUE)##Media dos
tratamentos<br>
ep2<-tapply(resp2,trat2,sd, na.rm =
TRUE)/sqrt(tapply(resp2,trat2,length))###Erros padrao da media<br>
<br>
#tratmentos no tempo3<br>
trat3<-rep(1:3,100)<br>
resp3<-rpois(300,5)<br>
med3<-tapply(resp3, trat3,mean)##Media dos tratamentos<br>
ep3<-tapply(resp3,trat3,sd)/sqrt(tapply(resp3,trat3,length))###Erros
padrao da media<br>
<br>
<br>
###<br>
# Montando as tabelas para cada tempo:<br>
a<- med1<br>
b<- med2<br>
c<-med3<br>
a2<-ep1<br>
b2<-ep2<br>
c2<-ep3<br>
<br>
# Unindo as tabelas<br>
TAB <- cbind(a,b,c)<br>
TAB2<-cbind(a2,b2,c2)<br>
<br>
<br>
# Criando o barplot múltiplo<br>
mp <- barplot2(TAB, beside = TRUE, axisnames = FALSE, plot.ci=T,
ci.u=TAB+TAB2,ci.l=TAB-TAB2, legend.text=T, ylim=c(0,30),col
=c("black","grey","white"))<br>
<br>
# Adicionando os tempos<br>
mtext(1, at = colMeans(mp), text = rep(c("Tempo1", "Tempo2",
"Tempo3"), 3),line = 1, cex = 0.75)<br>
<br>
##Adicionado os indices do teste de médias<br>
text(mp, TAB, label=paste(format(TAB, dig=4),
c("a","a","a","a","a","a","a","a")), pos=3,cex=0.85)<br>
<br>
<pre class="moz-signature" cols="72">--
Alexandre DOS SANTOS
Engenheiro Florestal, Msc.
Laboratório de Entomologia Florestal
Departamento de Entomologia
Universidade Federal de Lavras
Caixa Postal 3037
37200-000 - Lavras - Minas Gerais - Brasil
Tel: +55 35 92230304</pre>
<br>
<br>
<br>
Em 03-01-2012 21:39, Alexandre Santos escreveu:
<blockquote
cite="mid:1325633975.18887.YahooMailNeo@web38403.mail.mud.yahoo.com"
type="cite">
<div style="color:#000; background-color:#fff; font-family:arial,
helvetica, sans-serif;font-size:10pt">
<div><span>Obrigado Walmes,</span></div>
<div><span> Vou tentar fazer pelo seu link, após resolver
coloco um código reproduzível com a solução. E desculpa
Mauro o pacote é o gplots.</span></div>
<div> </div>
<div align="center"><b>Alexandre dos Santos<br>
</b>Engenheiro Florestal, MSc.<br>
Universidade Federal de Lavras <br>
Departamento de Entomologia <br>
Laboratório de Entomologia Florestal <br>
Caixa Postal 3037 <br>
37200-000 - Lavras/MG<br>
Fone: +55 (35) 3829-5122<br>
</div>
<div><br>
</div>
<div style="font-size: 10pt; font-family: arial, helvetica,
sans-serif; ">
<div style="font-size: 12pt; font-family: 'times new roman',
'new york', times, serif; "> <font face="Arial" size="2">
<hr size="1"> <b><span style="font-weight:bold;">De:</span></b>
Zé Augusto <a class="moz-txt-link-rfc2396E" href="mailto:jabnaz@gmail.com"><jabnaz@gmail.com></a><br>
<b><span style="font-weight: bold;">Para:</span></b>
<a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a> <br>
<b><span style="font-weight: bold;">Enviadas:</span></b>
Terça-feira, 3 de Janeiro de 2012 21:15<br>
<b><span style="font-weight: bold;">Assunto:</span></b>
Re: [R-br] Adicionado índices do teste de médias no
barplot<br>
</font> <br>
<div id="yiv2144320771"><br>
Mauro<br>
<br>
O que existe é o pacote "gplots". Veja em <br>
<a moz-do-not-send="true" rel="nofollow"
target="_blank"
href="http://crantastic.org/packages/gplots">http://crantastic.org/packages/gplots</a><br>
<br>
José Augusto<br>
<br>
<br>
<div class="yiv2144320771gmail_quote">
Em 3 de janeiro de 2012 21:01, Mauro Sznelwar <span
dir="ltr"><<a moz-do-not-send="true" rel="nofollow"
ymailto="mailto:sznelwar@uol.com.br" target="_blank"
href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>></span>
escreveu:<br>
<blockquote class="yiv2144320771gmail_quote"
style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid
rgb(204,204,204);padding-left:1ex;">
<div><font face="Arial"><font color="#0000ff" size="3">Estava
tentando reproduzir este código, mas não
consegui achar esta bibliotéca gplot, diz que
não existe no R14.0!</font><br>
<br>
###<br>
require(gplot)<br>
# Criando o barplot múltiplo<br>
mp <- barplot2(TAB, beside = TRUE, axisnames =
FALSE, <a moz-do-not-send="true" rel="nofollow"
target="_blank" href="http://plot.ci">plot.ci</a>=T,
<br>
ci.u=TAB+TAB2,ci.l=TAB-TAB2, ylab="Number of
Bradysia difformis", <br>
legend.text=T)<br>
# Adicionando os meses<br>
mtext(1, at = colMeans(mp), text = rep(c("April",
"May", "June", <br>
"July","August", "September","October"), 7),line =
1, cex = 0.75)<br>
<br>
Porém gostaria de saber se existe algum comando
que consigo especificar <br>
um vetor contendo os índices e faze-los aparecer
sobre as barras do erro <br>
padrão, ao invés de especificar índice por índice
como text().<br>
<br>
Obrigado,<br>
<font color="#888888"><br>
-- <br>
Alexandre DOS SANTOS<br>
Engenheiro Florestal, Msc.<br>
Laboratório de Entomologia Florestal<br>
Departamento de Entomologia<br>
Universidade Federal de Lavras<br>
Caixa Postal 3037<br>
37200-000 - Lavras - Minas Gerais - Brasil<br>
Tel: +55 35 92230304<br>
<br>
</font></font></div>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true" rel="nofollow"
ymailto="mailto:R-br@listas.c3sl.ufpr.br"
target="_blank"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true" rel="nofollow"
target="_blank"
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a moz-do-not-send="true"
rel="nofollow" target="_blank"
href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
</blockquote>
</div>
<br>
</div>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
ymailto="mailto:R-br@listas.c3sl.ufpr.br"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a moz-do-not-send="true"
href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
<br>
</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<br>
<pre class="moz-signature" cols="72">
</pre>
</body>
</html>