Juntando vários objetos dentro de list em loop
Bom dia pessoal, Tento um objeto chamado inter que representa um data frame com as coordenada dos vértices de varias parcelas, sendo que a cada 4 linhas tenho as coordenadas de cada parcela, as quais eu gostaria de armazenar separadamente dentro de um list, mais não tenho conseguido não, alguém poderia me dar um help, suspeito que o rbind() no loop não seja a função adequada, substituí por list e não deu certo também, segue CMR: ### Coordenada X dos vértices das parcelas xV<-c(672016,672056,672056,672016,672312,672352,672352,672312,672654,672694,672694,672654,672059,672099,672099,672059) ### Coordenada Y dos vértices das parcelas yV<-c(6783670,6783670,6783630,6783630,6784125,6784125,6784085,6784085,6783490,6783490,6783450,6783450,6782374,6782374,6782334,6782334) ### cada parcela é formada pelo intervalo de a cada 4 valores e desejo criar um objeto [[]] in list para cada parcela, então: x<-seq(1,length(p.central),4)### Valor inicial do intervalo y<-seq(4,length(p.central),4)### Valor final do intervalo inter<-cbind(x,y) ##Juntado o intervalo a cada quatro linhas ### Criar um objeto list a cada 4 coordenadas coordV_gr <-NULL for(j in 1:(length(inter))){ coordV_gr <- rbind(coordV_gr, list(coordV[inter[,1]:inter[,2],])) } coordV_gr##Resultado Obrigado, -- Alexandre dos Santos Engenheiro Florestal, Dr. Universidade Federal de Lavras Departamento de Entomologia Laboratório de Entomologia Florestal Caixa Postal 3037 37200-000 - Lavras/MG Fone: +55 (35) 9223-0304
Desculpe cometi alguns erro em meu CMR, segue corrigido Tento um objeto chamado coordV que representa um data frame com as coordenada dos vértices de varias parcelas, sendo que a cada 4 linhas tenho as coordenadas de cada parcela, as quais eu gostaria de armazenar separadamente dentro de um list, mais não tenho conseguido não, alguém poderia me dar um help, suspeito que o rbind() no loop não seja a função adequada, substituí por list e não deu certo também, segue CMR: ### Coordenada X dos vértices xV<-c(672016,672056,672056,672016,672312,672352,672352,672312,672654,672694,672694,672654,672059,672099,672099,672059) ### Coordenada Y dos vértices yV<-c(6783670,6783670,6783630,6783630,6784125,6784125,6784085,6784085,6783490,6783490,6783450,6783450,6782374,6782374,6782334,6782334) coordV<-cbind(xV,yV)### Juntado as coordenadas ### cada parcela é formada pelo intervalo de a cada 4 valores e desejo criar um objeto [[]] in list para cada parcela, então: x<-seq(1,length(p.central),4)### Valor inicial do intervalo y<-seq(4,length(p.central),4)### Valor final do intervalo inter<-cbind(x,y) ##Juntado o intervalo a cada quatro linhas ### Criar um objeto list a cada 4 coordenadas coordV_gr <-NULL for(j in 1:(length(inter))){ coordV_gr <- rbind(coordV_gr, list(coordV[inter[,1]:inter[,2],])) } coordV_gr##Resultado -- Alexandre dos Santos Engenheiro Florestal, Dr. Universidade Federal de Lavras Departamento de Entomologia Laboratório de Entomologia Florestal Caixa Postal 3037 37200-000 - Lavras/MG Fone: +55 (35) 9223-0304 _______________________________________________ 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.
split(as.data.frame(coordV), rep(1:nrow(coordV), each=4, length.out=nrow(coordV))) b 2012/7/2 ASANTOS <alexandresantosbr@yahoo.com.br>:
Desculpe cometi alguns erro em meu CMR, segue corrigido
Tento um objeto chamado coordV que representa um data frame com as coordenada dos vértices de varias parcelas, sendo que a cada 4 linhas tenho as coordenadas de cada parcela, as quais eu gostaria de armazenar separadamente dentro de um list, mais não tenho conseguido não, alguém poderia me dar um help, suspeito que o rbind() no loop não seja a função adequada, substituí por list e não deu certo também, segue CMR:
### Coordenada X dos vértices xV<-c(672016,672056,672056,672016,672312,672352,672352,672312,672654,672694,672694,672654,672059,672099,672099,672059)
### Coordenada Y dos vértices yV<-c(6783670,6783670,6783630,6783630,6784125,6784125,6784085,6784085,6783490,6783490,6783450,6783450,6782374,6782374,6782334,6782334)
coordV<-cbind(xV,yV)### Juntado as coordenadas
### cada parcela é formada pelo intervalo de a cada 4 valores e desejo criar um objeto [[]] in list para cada parcela, então:
x<-seq(1,length(p.central),4)### Valor inicial do intervalo y<-seq(4,length(p.central),4)### Valor final do intervalo
inter<-cbind(x,y) ##Juntado o intervalo a cada quatro linhas
### Criar um objeto list a cada 4 coordenadas
coordV_gr <-NULL for(j in 1:(length(inter))){
coordV_gr <- rbind(coordV_gr, list(coordV[inter[,1]:inter[,2],])) } coordV_gr##Resultado
-- Alexandre dos Santos Engenheiro Florestal, Dr. Universidade Federal de Lavras Departamento de Entomologia Laboratório de Entomologia Florestal Caixa Postal 3037 37200-000 - Lavras/MG Fone: +55 (35) 9223-0304
_______________________________________________ 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.
Obrigado Benilton, problema resolvido. Em 02/07/2012 10:43, Benilton Carvalho escreveu:
split(as.data.frame(coordV), rep(1:nrow(coordV), each=4, length.out=nrow(coordV)))
b
2012/7/2 ASANTOS <alexandresantosbr@yahoo.com.br>:
Desculpe cometi alguns erro em meu CMR, segue corrigido
Tento um objeto chamado coordV que representa um data frame com as coordenada dos vértices de varias parcelas, sendo que a cada 4 linhas tenho as coordenadas de cada parcela, as quais eu gostaria de armazenar separadamente dentro de um list, mais não tenho conseguido não, alguém poderia me dar um help, suspeito que o rbind() no loop não seja a função adequada, substituí por list e não deu certo também, segue CMR:
### Coordenada X dos vértices xV<-c(672016,672056,672056,672016,672312,672352,672352,672312,672654,672694,672694,672654,672059,672099,672099,672059)
### Coordenada Y dos vértices yV<-c(6783670,6783670,6783630,6783630,6784125,6784125,6784085,6784085,6783490,6783490,6783450,6783450,6782374,6782374,6782334,6782334)
coordV<-cbind(xV,yV)### Juntado as coordenadas
### cada parcela é formada pelo intervalo de a cada 4 valores e desejo criar um objeto [[]] in list para cada parcela, então:
x<-seq(1,length(p.central),4)### Valor inicial do intervalo y<-seq(4,length(p.central),4)### Valor final do intervalo
inter<-cbind(x,y) ##Juntado o intervalo a cada quatro linhas
### Criar um objeto list a cada 4 coordenadas
coordV_gr <-NULL for(j in 1:(length(inter))){
coordV_gr <- rbind(coordV_gr, list(coordV[inter[,1]:inter[,2],])) } coordV_gr##Resultado
-- Alexandre dos Santos Engenheiro Florestal, Dr. Universidade Federal de Lavras Departamento de Entomologia Laboratório de Entomologia Florestal Caixa Postal 3037 37200-000 - Lavras/MG Fone: +55 (35) 9223-0304
_______________________________________________ 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.
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.
-- Alexandre dos Santos Engenheiro Florestal, Dr. Universidade Federal de Lavras Departamento de Entomologia Laboratório de Entomologia Florestal Caixa Postal 3037 37200-000 - Lavras/MG Fone: +55 (35) 9223-0304
participantes (2)
-
ASANTOS -
Benilton Carvalho