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

[David Valentim Dias]

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>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 (TIM)   (+55) 65 9686-6970 (VIVO)
> e-mails:alexandresantosbr@**yahoo.com.br<e-mails%3Aalexandresantosbr em yahoo.com.br>
>         alexandre.santos em cas.ifmt.edu.**br<alexandre.santos em cas.ifmt.edu.br>
> ==============================**==============================**==========
>
> ______________________________**_________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/**cgi-bin/mailman/listinfo/r-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<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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130416/d808fc42/attachment.html>