<div dir="ltr">Olá a todos, <div><br></div><div>Gostaria de saber como faço para produzir um fluxograma/diagrama de um data.frame, a ideia é produzir algo desse tipo, porém inserindo os totais de cada subamostra e a porcentagem em cada nó.</div><div><br></div><div>P.S: A forma de saída pode ser qualquer uma.</div><div><br></div><div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                      </span>                   |Econômica</div><div>                      /--S --- classe |Master    </div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                  </span>                   |Executiva</div><div>        M---surv |</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                   </span>                   |Econômica</div><div>                      \--N --- classe  |Master</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                      </span>                    |Executiva</div><div>sex--|                       </div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                       </span>                    |Econômica </div><div>                     /--S ---  classe   |Master</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                 </span>                    |Executiva</div><div>         F---surv |               </div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                 </span>                   |Econômica</div><div>                     \--N ---  classe  |Master</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                     </span>                    |Executiva</div></div><div><br></div><div>Exemplo seria um banco similar a esse:<br></div><div><br></div><div><div>set.seed(1)</div><div>sexo=sample(c(0,1),50,replace=<wbr>T)</div><div>sexo=factor(sexo,levels=c(0,1)<wbr>,label=c("Feminino","<wbr>Masculino"))</div><div>surv=sample(c(0,1),50,replace=<wbr>T)</div><div>surv=factor(surv,levels=c(0,1)<wbr>,label=c("Não","Sim"))</div><div>classe=sample(c(0,1,2),50,<wbr>replace=T)</div><div>classe=factor(classe,levels=c(<wbr>0,1,2),label=c("Econômica","<wbr>Master","Executiva"))</div><div><br></div><div>dados=data.frame(sexo,surv,<wbr>classe)</div><div><br></div><div>s=table(dados$sexo);s</div><div>sp=round(prop.table(s)*100,2);<wbr>sp</div><div><br></div><div>Msexo=subset(dados,sexo=="<wbr>Masculino")</div><div>cM=table(Msexo$classe);cM</div><div>cpM=round(prop.table(c)*100,2)<wbr>;cpM</div><div><br></div><div>Fsexo=subset(dados,sexo=="<wbr>Feminino")</div><div>cF=table(Fsexo$classe);cF</div><div>cpF=round(prop.table(c)*100,2)<wbr>;cpF</div><div><br></div></div><div>Agradeço pela ajuda desde já.</div><div><br></div><div>Abs.</div><div><br></div></div>