Representação de dados espaço temporais Exemplo 1 coords <- expand.grid(1:3, 1:2) ID <- paste("pos", coords[,1], ".", coords[,2], sep="") time <- paste("ano", 1:2, sep="") dados <- c(1:6, 11:16) Formatos em data.frames 1. Long dadosL <- cbind(coords, time = rep(time, each=6), ID=ID, var = dados) names(dadosL)[1:2] <- c("X", "Y") dadosL 2. Wide Time wide dadosT <- cbind(coords, ID, matrix(dados, nc=2)) names(dadosT) <- c("X", "Y", "ID", "Ano1", "Ano2") dadosT Space wide dadosS <- cbind(time, as.data.frame(matrix(dados, nrow=2, byrow=T))) names(dadosS)[-1] <- ID dadosS Convertendo entre formatos names(dadosL) unstack(dadosL, var ~ time) stack(dadosT) stack(dadosS) # names(dadosL) ## Long -> time wide reshape(dadosL, v.names="var", direction="wide", timevar="time", idvar="ID" ) ## Long -> space wide reshape(dadosL, v.names="var", direction="wide", timevar="ID", idvar="time", drop=c("X", "Y") ) ## time wide -> long dadosT reshape(dadosT, varying=list(4:5), direction="long") ## Convertendo para sp (SpatialPointDataFrame) 1. Cada ano como uma variável 1.1 Forma direta : data.frame -> SPDF require(sp) coordinates(dadosT) <- ~X+Y dadosT 1.2 Passo a passo SP <- SpatialPoints(coords) SPDF <- SpatialPointsDataFrame(SP, as.data.frame(matrix(dados, nc=2))) SPDF class(SPDF) plot(SPDF) gridded(SPDF) gridded(SPDF) <- TRUE gridded(SPDF) plot(SPDF) class(SPDF) SPDF.1 <- as(SPDF, "SpatialGridDataFrame") class(SPDF.1) (SPDF.1) gridparameters(SPDF.1) image(SPDF.1) 2. Dados replicados nas posições coordinates(dadosL) <- ~X+Y dadosL ## Espaco temporais 3 estruturas Full grid (STFDF) Sparse grid (STSDF) Irregular Space-time (STIDF) ##