[R-br] Gráfico do tipo stacked bar plot modificado [RESOLVIDO]

[ASANTOS]

Obrigado David,
      Funcionou perfeitamente

Em 16/04/2013 17:13, David Valentim Dias escreveu:
> invente_um_nome = function(x, n = 7) {
>   novo_x = x
>   somas = colSums(x)
>   for(i in 1:ncol(x)) {
>     if (somas[i] > n) {
>       novo_x[1, i] = n
>       novo_x[2, i] = somas[i] - n
>     } else {
>       novo_x[1, i] = somas[i]
>       novo_x[2, i] = 0
>     }
>   }
>   novo_x
> }
>
> counts <- table(mtcars$vs, mtcars$gear)
> barplot(colSums(counts), main="Car Distribution by Gears and VS",
>         horiz=TRUE,xlab="Number of Gears", col = 'white')
> abline(v=7,col="red")
> barplot(invente_um_nome(counts), horiz=TRUE, col = c('white', 
> 'black'), add = T)
>
>
>
> Em 16 de abril de 2013 16:24, ASANTOS <alexandresantosbr em yahoo.com.br 
> <mailto:alexandresantosbr em yahoo.com.br>> escreveu:
>
>     Boa tarde pessoal,
>
>          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:
>
>     counts <- table(mtcars$vs, mtcars$gear)
>     barplot(counts, main="Car Distribution by Gears and VS",
>     horiz=TRUE,xlab="Number of Gears", col=c("white","black"),
>     legend = rownames(counts))
>     abline(v=7,col="red")
>     #
>     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,
>
>     Obrigado,
>
>     -- 
>     ======================================================================
>     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 <tel:%28%2B55%29%2065%208132-8112> (TIM)
>     (+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO)
>     e-mails:alexandresantosbr em yahoo.com.br
>     <mailto:e-mails%3Aalexandresantosbr em yahoo.com.br>
>     alexandre.santos em cas.ifmt.edu.br
>     <mailto:alexandre.santos em cas.ifmt.edu.br>
>     ======================================================================
>
>     _______________________________________________
>     R-br mailing list
>     R-br em listas.c3sl.ufpr.br <mailto:R-br em listas.c3sl.ufpr.br>
>     https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>     Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e
>     forneça código mínimo reproduzível.
>
>
>
>
> -- 
> Biostatistician Consultant and Cogito Programmer's 
> http://www.facebook.com/CogitoConsultoriaEstatistica
> Curriculum: http://lattes.cnpq.br/7541377569511492
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

-- 
======================================================================
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)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
======================================================================

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130416/cfacae2d/attachment.html>