[R-br] Criar uma coluna de lancamentos de pesca

[Éder Comunello]

Mauro, bom dia!

O trecho que você executa é pra fazer isso mesmo. Faltou executar o trecho
final do script.

​
================================================
Éder Comunello
Agronomist (UEM), MSc in Environ. Sciences (UEM)
DSc in Agricultural Systems Engineering (USP/Esalq)
Brazilian Agricultural Research Corporation (Embrapa)
Dourados, MS, Brazil |<O>|
================================================
GEO, -22.2752, -54.8182, 408m
UTC-04:00 / DST: UTC-03:00




Em 11 de maio de 2016 22:06, sznelwar em uol.com.br <sznelwar em uol.com.br>
escreveu:

>  Por que não estou conseguindo rodar isto? Vejam como fica quando eu tento
> rodar!
>
> df <- read.table(text=
> + "diamesanoboat
> + 912005AGIOS.NIKOLAUS
> + 1012005AGIOS.NIKOLAUS
> + 1112005AGIOS.NIKOLAUS
> + 1212005AGIOS.NIKOLAUS
> + 1312005AGIOS.NIKOLAUS
> + 912005X
> + 1012005X
> + 1112005X
> + 1212005Y
> + 1312005Y", head=T, as.is=T)
> >
> > df$lance <- NA
> > df
>            diamesanoboat lance
> 1   912005AGIOS.NIKOLAUS    NA
> 2  1012005AGIOS.NIKOLAUS    NA
> 3  1112005AGIOS.NIKOLAUS    NA
> 4  1212005AGIOS.NIKOLAUS    NA
> 5  1312005AGIOS.NIKOLAUS    NA
> 6                912005X    NA
> 7               1012005X    NA
> 8               1112005X    NA
> 9               1212005Y    NA
> 10              1312005Y    NA
> >
>
>
>
> ------------------------------
>
> *De: *"Éder Comunello" <comunello.eder em gmail.com>
> *Enviada: *2016/05/11 15:22:47
>
> *Para: *r-br em listas.c3sl.ufpr.br
> *Assunto: * Re: [R-br] Criar uma coluna de lancamentos de pesca
>
> Humberto, bom dia!
>
> Segue uma uma sugestão, sem considerar que possa haver duplicidade...
>
> ### <code r>
> df <- read.table(text=
> "dia mes ano boat
> 9 1 2005 AGIOS.NIKOLAUS
> 10 1 2005 AGIOS.NIKOLAUS
> 11 1 2005 AGIOS.NIKOLAUS
> 12 1 2005 AGIOS.NIKOLAUS
> 13 1 2005 AGIOS.NIKOLAUS
> 9 1 2005 X
> 10 1 2005 X
> 11 1 2005 X
> 12 1 2005 Y
> 13 1 2005 Y", head=T, as.is=T)
>
> df$lance <- NA
> df
>
> for (boat in unique(df$boat)) {
>      sel <- which(df$boat==boat)
>      df[sel, "lance"] <- 1:length(sel)
> }
>
> df
> #    dia mes  ano           boat lance
> # 1    9   1 2005 AGIOS.NIKOLAUS     1
> # 2   10   1 2005 AGIOS.NIKOLAUS     2
> # 3   11   1 2005 AGIOS.NIKOLAUS     3
> # 4   12   1 2005 AGIOS.NIKOLAUS     4
> # 5   13   1 2005 AGIOS.NIKOLAUS     5
> # 6    9   1 2005              X     1
> # 7   10   1 2005              X     2
> # 8   11   1 2005              X     3
> # 9   12   1 2005              Y     1
> # 10  13   1 2005              Y     2
> ### </code>
>
> ​
> ================================================
> Éder Comunello
> Agronomist (UEM), MSc in Environ. Sciences (UEM)
> DSc in Agricultural Systems Engineering (USP/Esalq)
> Brazilian Agricultural Research Corporation (Embrapa)
> Dourados, MS, Brazil |<O>|
> ================================================
> GEO, -22.2752, -54.8182, 408m
> UTC-04:00 / DST: UTC-03:00
>
>
>
>
> Em 11 de maio de 2016 09:37, Humberto Hazin <hhazin em gmail.com
> <http:///compose?to=hhazin@gmail.com>> escreveu:
>>
>> Olá pessoal,
>>
>>
>>
>> Estou precisando criar uma coluna chamada lances. Onde cada lance
>> corresponde a um dia, mês, ano e barco conforme o exemplo abaixo:
>>
>>
>>
>>            dia
>>
>> mes
>>
>> ano
>>
>> boat
>>
>> 9
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 10
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 11
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 12
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 13
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>>
>>
>>
>>
>> Eu gostaria que a tabela ficasse dessa forma aqui
>>
>>
>>
>> dia
>>
>> mes
>>
>> ano
>>
>> boat
>>
>> Lance
>>
>> 9
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 1
>>
>> 10
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 2
>>
>> 11
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 3
>>
>> 12
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 4
>>
>> 13
>>
>> 1
>>
>> 2005
>>
>> AGIOS.NIKOLAUS
>>
>> 5
>>
>>
>>
>>
>>
>> Agradeço desde já
>>
>>
>>
>> Humberto
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br <http:///compose?to=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 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/20160512/c7db0b97/attachment.html>