[R-br] Dados em uma tabela

[Elias T. Krainski]

Oi Mauro,

O problema e' que o codigo contempla apenas um digito... corrigindo 
contemplar tres digitos. Saliento que o co'digo e' rustico, talvez nao 
funcione para outras situacoes...

a <- readLines("dados.txt")
id.a <- which(substr(a,1,2)=='A.')
nch <- nchar(a)
tab <- sapply(0:6, function(j)
   as.integer(gsub('.', '', substring(a[id.a+j], nch[id.a+j]-2), fix=T)))
dimnames(tab) <- list(a[id.a-1], LETTERS[1:7])
tab

aT+,
Elias.

On 27/08/14 14:24, Mauro Sznelwar wrote:
> 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 em 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 em 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 em 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.

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