André, esta rotina gera todas as tabelas de um banco de dados, se você tem por exemplo, sexo, idade, bairro, etc... A rotina gera tabelas com a quantidade e percentual para todas elas. Por exemplo para este banco abaixo gera-se uma tabela para cada variável. quest nome sexo idade est_civ dt_nasc tempo cons_pub cons_part satisf nota_cm doe_antes 1 1 JW M 24 CAS 1988-06-21 310 5 0 NÃO 5 NÃO 2 2 HH M 33 SOL 1979-03-27 45 1 0 NÃO 2 NÃO 3 3 A M 29 SOL 1983-06-15 30 0 0 NÃO NA SIM 4 4 ABC M 32 SOL 1980-05-17 60 0 1 NÃO 1 NÃO [ ]'s. Edson Lira Estatístico Manaus-Amazonas ________________________________ De: "andrebvs@bol.com.br" <andrebvs@bol.com.br> Para: r-br@listas.c3sl.ufpr.br; Edson Lira <edinhoestat@yahoo.com.br> Enviadas: Terça-feira, 18 de Junho de 2013 20:48 Assunto: Re: [R-br] soma na tabela Por gentileza Edson, nos passe um exemplo reproduzível. Att. André BVS ________________________________ Em 18/06/2013 21:17, Edson Lira < edinhoestat@yahoo.com.br > escreveu: Boa noite caros amigos, A rotina abaixo tabelas<-function(x){ Qtde<-table(x) Perc<-100*prop.table(table(x)) cbind(Qtde,Perc) } Gera tabelas do tipo: $ida Qtde Perc 20 |-- 30 anos 39 34 30 |-- 40 anos 57 50 40 anos ou mais 19 17 A idade tem valores de 21 a 47 anos. Montei a rotina m1$ida<-rep(NA,length(m1$idade)) summary(m1$idade) sd(m1$idade,na.rm=T) m1$ida[20<=m1$idade&m1$idade<30]<-"20 |-- 30 anos" m1$ida[30<=m1$idade&m1$idade<40]<-"30 |-- 40 anos" m1$ida[m1$idade>=40]<-"40 anos ou mais" Como faço para acrescentar a soma de Qtde e Perc? [ ]'s. Edson Lira Estatístico Manaus-Amazonas