Valeu amigos!<div><br></div><div>Deu tudo certinho!</div><div><br></div><div>Abraços<br><br><div class="gmail_quote">Em 12 de dezembro de 2012 15:22, Cesar Rabak <span dir="ltr"><<a href="mailto:cesar.rabak@gmail.com" target="_blank">cesar.rabak@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Eu acho que sim, se entendi a forma como seus dados estão organizados:<br>
<br>
banco$num_max <- max(banco[,'a','b','c','d','e','d','f'] -0.5)<br>
<br>
barplot(table(banco$num_max))<br>
<br>
HTH<br>
<br>
--<br>
Cesar Rabak<br>
<br>
<br>
2012/12/12 Sérgio Henrique almeida da silva ju <<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>>:<br>
<div class="im HOEnZb">> Valeu pela ajuda.<br>
><br>
> Eu gostaria de plotar esses resultados em um único gráfico.<br>
><br>
> Por exemplo:<br>
><br>
> Municípios com 7 doenças.<br>
> Municípios com 6 doenças (Mas só aparecer aqueles municípios que não foram<br>
> plotados antes)<br>
> e assim por diante.<br>
><br>
> pensei assim:<br>
><br>
> banco$munis <- ifelse(banco$todas==1.5, 1.5,<br>
> ifelse(bancos$todas==0.5 & munis5$cinco==1.5, 2.5,<br>
> ifelse(banco$quatro==1.5 & banco$todas==0.5 & banco$cinco==0.5, 3.5,<br>
> ifelse(banco$tres==1.5 & banco$todas==0.5 & banco$cinco==0.5 &<br>
> banco$quatro==0.5, 4.5,<br>
> ifelse(banco$duas==1.5 & banco$todas==0.5 & banco$cinco==0.5 &<br>
> banco$quatro==0.5 & banco$tres==0.5, 5.5,<br>
> ifelse(banco$pelomenosuma==1.5 & banco$cinco==0.5 & banco$quatro==0.5 &<br>
> banco$tres==0.5 & banco$duas==0.5 & munis$todas==0.5, 6.5, 0.5))))))<br>
><br>
> O que acham? Existem outra forma de fazer isso?<br>
</div><div class="HOEnZb"><div class="h5">_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br>
<a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: (21) 68463637 / 94429486<br><br>
</div>