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.