Gráfico do tipo stacked bar plot modificado

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 ======================================================================

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<e-mails%3Aalexandresantosbr@yahoo.com.br> alexandre.santos@cas.ifmt.edu.**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<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

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@yahoo.com.br <mailto: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 <tel:%28%2B55%29%2065%208132-8112> (TIM) (+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO) e-mails:alexandresantosbr@yahoo.com.br <mailto:e-mails%3Aalexandresantosbr@yahoo.com.br> alexandre.santos@cas.ifmt.edu.br <mailto:alexandre.santos@cas.ifmt.edu.br> ======================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <mailto: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 ======================================================================
participantes (2)
-
ASANTOS
-
David Valentim Dias