Eu rodei este código, deu certo quanto ao formato pedido, mas não colocou o número 13, apareceu 3 no seu lugar. Qual o motivo? solucao "rustica"...suponha que seu arquivo e' "dados.txt" a <- readLines("dados.txt") id.a <- which(substr(a,1,2)=='A.') nch <- nchar(a) tab <- sapply(0:6, function(j) as.integer(substring(a[id.a+j], nch[id.a+j]))) dimnames(tab) <- list(a[id.a-1], LETTERS[1:7]) tab aT+, Elias. On 27/08/14 05:26, jose gomes de souza filho Gomes wrote: Boa Noite, Tenho o seguinte banco de dados em txt( em anexo): JOSÉ A................................. 2 B.....................................0 C...................................0 D.................................... 6 E.......................0 F............................. 1 G................................ 13 MARIA A................................. 3 B.....................................0 C...................................0 D.................................... 1 E.......................0 F............................. 1 G................................ 6 PEDRO A.................................0 B..................................... C...................................0 D...................................0 E.......................0 F.............................0 G................................ 3 Gostaria que ficasse assim: Nome A B C D E G F JOSÉ 2 0 0 6 0 1 13 MARIA 3 0 0 1 0 1 6 PEDRO 0 0 0 0 0 0 3 Como fazer isso? Att, Gomes _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível. -------------------------------------------------------------------------------- _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.