[R-br] Criação de um Fluxograma

[Abel Brasil Ramos da Silva]

Olá a todos,

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ó.

P.S: A forma de saída pode ser qualquer uma.

                   |Econômica
                      /--S --- classe |Master
                   |Executiva
        M---surv |
                   |Econômica
                      \--N --- classe  |Master
                    |Executiva
sex--|
                    |Econômica
                     /--S ---  classe   |Master
                    |Executiva
         F---surv |
                   |Econômica
                     \--N ---  classe  |Master
                    |Executiva

Exemplo seria um banco similar a esse:

set.seed(1)
sexo=sample(c(0,1),50,replace=T)
sexo=factor(sexo,levels=c(0,1),label=c("Feminino","Masculino"))
surv=sample(c(0,1),50,replace=T)
surv=factor(surv,levels=c(0,1),label=c("Não","Sim"))
classe=sample(c(0,1,2),50,replace=T)
classe=factor(classe,levels=c(0,1,2),label=c("Econômica","
Master","Executiva"))

dados=data.frame(sexo,surv,classe)

s=table(dados$sexo);s
sp=round(prop.table(s)*100,2);sp

Msexo=subset(dados,sexo=="Masculino")
cM=table(Msexo$classe);cM
cpM=round(prop.table(c)*100,2);cpM

Fsexo=subset(dados,sexo=="Feminino")
cF=table(Fsexo$classe);cF
cpF=round(prop.table(c)*100,2);cpF

Agradeço pela ajuda desde já.

Abs.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160914/ee7d6e8b/attachment.html>