<div dir="ltr"><div>invente_um_nome = function(x, n = 7) {</div><div>  novo_x = x</div><div>  somas = colSums(x)</div><div>  for(i in 1:ncol(x)) {</div><div>    if (somas[i] > n) {</div><div>      novo_x[1, i] = n</div>
<div>      novo_x[2, i] = somas[i] - n</div><div>    } else {</div><div>      novo_x[1, i] = somas[i]</div><div>      novo_x[2, i] = 0</div><div>    }</div><div>  }</div><div>  novo_x</div><div>}</div><div><br></div><div>
counts <- table(mtcars$vs, mtcars$gear)</div><div>barplot(colSums(counts), main="Car Distribution by Gears and VS",</div><div>        horiz=TRUE,xlab="Number of Gears", col = 'white')</div><div>
abline(v=7,col="red")</div><div>barplot(invente_um_nome(counts), horiz=TRUE, col = c('white', 'black'), add = T)</div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
Em 16 de abril de 2013 16:24, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Boa tarde pessoal,<br>
<br>
     Gostaria de fazer um gráfico do tipo stacked bar plot horizontal, mas gostaria que as cores das barras ficassem alinhadas pelo níveis, como por exemplo:<br>
<br>
counts <- table(mtcars$vs, mtcars$gear)<br>
barplot(counts, main="Car Distribution by Gears and VS",<br>
horiz=TRUE,xlab="Number of Gears", col=c("white","black"),<br>
legend = rownames(counts))<br>
abline(v=7,col="red")<br>
#<br>
Que agora eu gostaria que as cores branca e preto ficassem alinhados por um valor arbitrário, que no meu caso seria 7 por exemplo, alguém sabe se existe um nome para este tipo de barra e se alguém do grupo já fez algo semelhante? Uma vez que help(barplot) não ajudou muito,<br>

<br>
Obrigado,<br>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
Coordenador do curso Técnico em Florestas<br>
Vice Coordenador do curso de Engenharia Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT                      CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM)   <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>

<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<u></u>yahoo.com.br</a><br>
        <a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
==============================<u></u>==============================<u></u>==========<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><br clear="all"><div><br></div>-- <br><div dir="ltr"><span lang="en"><span>Biostatistician</span> <span>Consultant</span> <span>and Cogito Programmer</span><span>'s</span> <span></span> <span><a href="http://www.facebook.com/CogitoConsultoriaEstatistica" target="_blank">http://www.facebook.com/CogitoConsultoriaEstatistica</a></span><br>
<span>Curriculum</span><span>:</span> <span><a href="http://lattes.cnpq.br/7541377569511492" target="_blank">http://lattes.cnpq.br/7541377569511492</a></span></span></div>
</div>