<font face="trebuchet ms,sans-serif">Alexandre,<br><br>Eu não espero que exista uma opção na função para tratar essa situação. Porém, a composição geométrica do gráfico de barras é simples, é uma série de retângulos justapostos e agrupados onde a altura do retângulo representa a grandeza. Dessa forma podemos começar numa janela em branco e adicionar as barras usando rect(). Veja o CMR baseado no que você passou<br>
<br><span style="font-family:courier new,monospace"># dput() nos dados ficou menor que o código para obtê-los, C[Mínimo]R</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">#dput(TAB)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">TAB <- structure(c(25.2, 27.6, 22, 9, NaN, 8.2, 46.8, 46.8, 46.6), .Dim = c(3L, </span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">3L), .Dimnames = list(c("1", "2", "3"), c("a", "b", "cc")))</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">#dput(TAB2)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">TAB2 <- structure(c(1.65529453572468, 2.11187120819429, 2, 1.04880884817015, </span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">NA, 0.66332495807108, 4.36348484585429, 4.38634243989226, 3.2649655434629</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">), .Dim = c(3L, 3L), .Dimnames = list(c("1", "2", "3"), c("a2", </span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">"b2", "c2")))</span><br style="font-family:courier new,monospace"><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">nbars <- 8; ngroups <- 3; barwidth <- 1; between <- 1; margin <- 0.5</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">col <- c("seagreen","forestgreen","limegreen")</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">ylim <- c(0, 1.1*max(TAB+TAB2, na.rm=TRUE))</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">xlim <- c(0, nbars*barwidth+2*margin+ngroups*between)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">plot(x=NULL, ylim=ylim, xlim=xlim, xaxt="n", xlab=NA, ylab="frequência")</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">abline(v=0:15, h=10*(0:6), col="grey50", lty=3)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">xc <- c((1:3),</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">        (4:5)+between,</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">        (6:8)+2*between)</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">yc <- na.omit(c(TAB))</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">rect(xc, 0, xc+1, yc, col=col[c(1,2,3,1,3,1,2,3)])</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">mtext(side=1, at=c(2.5,6,9.5), text=c("April", "May", "June"), line=1)</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">zc <- na.omit(c(TAB2))</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">arrows(xc+0.5, yc-zc, xc+0.5, yc+zc, code=3, angle=90, length=0.05)</span><br style="font-family:courier new,monospace"><br style="font-family:courier new,monospace">Com um pouco de esforço é possível implementar uma mybarplot() que considere dados com NA.<br>
<br>À disposição.<br>Walmes.<br><br clear="all"></font><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: <a href="tel:%28%2B55%29%2041%203361%203573" value="+554133613573" target="_blank">(+55) 41 3361 3573</a></span><br style="font-family:trebuchet ms,sans-serif">

<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family:trebuchet ms,sans-serif">

<span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><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><br>


<br><br><div class="gmail_quote">2012/4/14 ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Boa noite pessoal,<br>
<br>
    Tenho 3 tratamentos hipotéticos avaliados em 3 tempos diferentes, porém no tempo dois não foi avaliado o tratamento 2. Para fazer a representação deles em um barplot múltiplo, vai ficar faltando uma barra, portanto vai ficar um espaço em branco entre o tratamento 1 e o tratamento 3 e gostaria de remover esse espaço (por motivo de uma força maior chamada reviewer do periódico) e deixar lado a lado as barras dos tratamentos 1 e 3 no tempo 2. Meu CMR seria:<br>


<br>
require(gplots)<br>
<br>
#tratmentos no tempo1<br>
trat1<-rep(1:3,5)<br>
resp1<-rpois(15,25)<br>
med1<-tapply(resp1, trat1,mean)##Media dos tratamentos<br>
ep1<-tapply(resp1,trat1,sd)/<u></u>sqrt(tapply(resp1,trat1,<u></u>length))###Erros padrao da media<br>
<br>
#tratmentos no tempo2<br>
trat2<-c(1,1,1,1,1,2,2,2,2,2,<u></u>3,3,3,3,3)<br>
resp2<-c(7,7,11,12,8,NA,NA,NA,<u></u>NA,NA,8,8,10,9,6)##Não foi avaliado o tratamento 2<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,<u></u>length))###Erros padrao da media<br>
<br>
#tratmentos no tempo3<br>
trat3<-rep(1:3,5)<br>
resp3<-rpois(15,45)<br>
med3<-tapply(resp3, trat3,mean)##Media dos tratamentos<br>
ep3<-tapply(resp3,trat3,sd)/<u></u>sqrt(tapply(resp3,trat3,<u></u>length))###Erros padrao da media<br>
###<br>
<br>
# Montando as tabelas para cada mêss:<br>
a<- med1<br>
b<- med2<br>
cc<-med3<br>
a2<-ep1<br>
b2<-ep2<br>
c2<-ep3<br>
# Unindo as tabelas<br>
TAB <- cbind(a,b,cc)<br>
TAB2<-cbind(a2,b2,c2)<br>
# Criando o barplot múltiplo<br>
mp <- barplot2(TAB, beside = TRUE, axisnames = FALSE, <a href="http://plot.ci" target="_blank">plot.ci</a>=T, ci.u=TAB+TAB2,ci.l=TAB-TAB2, ylab="Number of insects", legend.text=T, ylim=c(0, 60),col =c("grey25","grey50","white"))<br>


# Adicionando os meses<br>
mtext(1, at = colMeans(mp), text = rep(c("April", "May", "June"), 7),line = 1, cex = 0.8)<br>
#<br>
<br>
<br>
Então eu pergunto se é possível fazer isso, pois a função barplot2() não me permite alterar isso uma vez que tenho no tempo 2 o tratamento 2 representado por NA, por outro lado se retiro o tratamento 2 na hora de unir as tabelas não posso fazer um cbind(), pois tenho vetores de média e erro padrão com comprimentos diferentes.<br>


<br>
Se algum puder me dar uma luz agradeço,<br>
<br>
<br>
-- <br>
Alexandre dos Santos<br>
Engenheiro Florestal, Dr.<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: <a href="tel:%2B55%20%2835%29%209223-0304" value="+553592230304" target="_blank">+55 (35) 9223-0304</a><br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br>