Thanks all!
These 2 options worked great.
### OPTION 1
u<-with(occ.data,ftable(Rep~Año+Site+Especie+Pres))
u[1:5,]
library(reshape2)
flat.occ<-dcast(as.data.frame(u), Año + Site + Especie + Pres ~ Rep, fill =
0)
flat.occ[1:10,]
### OPTION 2
occ.data1<-occ.data[,-c(2:3)]
library(reshape2)
flat.occ<-dcast(occ.data1,Año+Site+Especie+Pres~Rep,value.var="Rep")
flat.occ[,-c(1:4)]<-sapply(flat.occ[,-c(1:4)],function(x) as.integer(is.na
(x)))
flat.occ[1:10,]
On Sat, Jan 5, 2013 at 12:26 AM, Jim Lemon <j...@bitwrit.com.au> wrote:
> On 01/05/2013 10:15 AM, Andrea Goijman wrote:
> ...
> Hi Andrea,
> This may be what you want:
>
> occ.data<-data.frame(year=rep(**2003,20),Ruta=rep(202,20),
> + Point=c(3,4,1,1,2,3,4,1,4,5,1,**3,4,5,1,4,5,10,7,8),
> + Site=c(rep(2021,17),rep(2022,**3)),
> + specie=c("MICH","MICH","MISA",**"MOBO","MOBO","MOBO","MOBO",
> + "SILU","SILU","TYSA","ZEAU","**ZEAU","ZEAU","ZEAU","ZOCA","**ZOCA",
> + "ZOCA","MICH","MISA","MISA"),**Pres=rep(1,20),
> + Rep=c(3,4,1,1,2,3,4,1,4,5,1,3,**4,5,1,4,5,5,2,3))
> > library(prettyR)
> > stretch_df(occ.data,idvar="**specie",to.stretch="Rep",
> > ordervar="Pres",include.**ordervar=FALSE)
> specie year Ruta Point Site Rep_1 Rep_2 Rep_3 Rep_4
> 1 MICH 2003 202 3 2021 3 4 5 NA
> 2 MISA 2003 202 1 2021 1 2 3 NA
> 3 MOBO 2003 202 1 2021 1 2 3 4
> 4 SILU 2003 202 1 2021 1 4 NA NA
> 5 TYSA 2003 202 5 2021 5 NA NA NA
> 6 ZEAU 2003 202 1 2021 1 3 4 5
> 7 ZOCA 2003 202 1 2021 1 4 5 NA
>
> Jim
>
--
---
Lic. Andrea Paula Goijman
Grupo Ecología y Gestión Ambiental de la Biodiversidad
IRB - INTA Castelar, Argentina
agoij...@cnia.inta.gov.ar
<http://inta.gob.ar/personas/goijman.andrea/>
http://inta.gob.ar/personas/goijman.andrea/
PhD Candidate
Georgia Cooperative Fish and Wildlife Research Unit
D.B. Warnell School of Forestry and Natural Resources
University of Georgia
Athens, GA 30602 USA
Tel. +706.206.4805
andre...@uga.edu
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
