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@gmail.com>
Enviada: 2016/05/11 15:22:47

Para: r-br@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@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@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.