<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado David,<br>
Funcionou perfeitamente<br>
<br>
<div class="moz-cite-prefix">Em 16/04/2013 17:13, David Valentim
Dias escreveu:<br>
</div>
<blockquote
cite="mid:CAAy4ZDQ1Oh30BRp+31+tfxxijGb-rifobT=2K1i+hfnXc+X3hA@mail.gmail.com"
type="cite">
<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
moz-do-not-send="true"
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>
======================================================================<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 moz-do-not-send="true"
href="tel:%28%2B55%29%2065%208132-8112"
value="+556581328112" target="_blank">(+55) 65 8132-8112</a>
(TIM) <a moz-do-not-send="true"
href="tel:%28%2B55%29%2065%209686-6970"
value="+556596866970" target="_blank">(+55) 65 9686-6970</a>
(VIVO)<br>
<a moz-do-not-send="true"
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br"
target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
<a moz-do-not-send="true"
href="mailto:alexandre.santos@cas.ifmt.edu.br"
target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
======================================================================<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
</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 moz-do-not-send="true"
href="http://www.facebook.com/CogitoConsultoriaEstatistica"
target="_blank">http://www.facebook.com/CogitoConsultoriaEstatistica</a></span><br>
<span>Curriculum</span><span>:</span> <span><a
moz-do-not-send="true"
href="http://lattes.cnpq.br/7541377569511492"
target="_blank">http://lattes.cnpq.br/7541377569511492</a></span></span></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>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
Coordenador do curso Técnico em Florestas
Vice Coordenador do curso de Engenharia Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
======================================================================
</pre>
</body>
</html>