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 <[email protected]
<mailto:[email protected]>> 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:[email protected]
<mailto:e-mails%[email protected]>
[email protected]
<mailto:[email protected]>
======================================================================
_______________________________________________
R-br mailing list
[email protected] <mailto:[email protected]>
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
[email protected]
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:[email protected]
[email protected]
======================================================================
_______________________________________________
R-br mailing list
[email protected]
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.
