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@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
        alexandre.santos@cas.ifmt.edu.br
======================================================================

_______________________________________________
R-br mailing list
R-br@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@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@yahoo.com.br 
        alexandre.santos@cas.ifmt.edu.br                    
======================================================================