A ideia é automatizar só o 2o for() né? Se for: t(sapply(temp,function(x) table(x$Tipo,useNA='always'))) Depois é só acrescentar a 1a coluna com os ids (ou usar rownames pra isso) e arrumar os nomes das colunas. Só acho que vai dar erro se em algum tipo não aparecer em todos cenários On Thu, Jan 17, 2013 at 3:35 PM, Leandro Marino < leandromarino@leandromarino.com.br> wrote:
temp <- list() for(i in 1:20){ temp[[i]] <- data.frame(matrix(ncol=3,nrow=100)) colnames(temp[[i]]) <- c('ID','Tipo','Valor') temp[[i]]$ID <- paste(i,sprintf("%03d",1:100),sep='') temp[[i]]$Tipo <- factor(sample(0:10,100,replace=T),levels=c(0:10)) temp[[i]]$Valor <- rnorm(100,100,20) } dado <- data.frame(matrix(ncol=13,nrow=20)) colnames(dado) <- c('ID',paste('Tipo',sprintf('%02d',0:10),sep=''),'TipoNA') for(i in 1:20){ dado[i,] <- c(i,table(temp[[i]]$Tipo,exclude=NULL)) }