
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