Hey there,
I am very much a newbie in the R world. I have to work with R for my 
internship. I really hope that someone can help me out here, since it costs me 
ages to run and adjust the same script over and over again. 

I have a SpatialPointsDataFrame table (sent2field2@data) that I would like to 
split into different SpatialPointsDataFrame tables. The first table needs to 
consist out of [1:13] columns, the second table needs to consist of 
[,c(1,14:25)] the third needs to consist of [,c(1,26:37)]. The name of the 
tables need to be Sent2Field2_1, Sent2Field2_2, Sent2Field2_3, etc etc… So only 
1,2,3,4 etc need to change within the name. This loop needs to go on until 
there are no columns left anymore in the dataset. Then the next step needs to 
add coordinates to the table (see script below). The name of the tables need to 
be Sent2F2_1, Sent2F2_2, Sent2F2_3, etc etc… So only 1,2,3,4 etc need to change 
within the name. The last step projects the table with the added coordinates 
into a SpatialPointsDataFrame. See the script below: (up to now I am adjusting 
the names manually and running it time after time, i am getting crazy, but I 
really don’t know how to make a loop) For now the separate steps are working 
fine. I really hope someone can help me out. Looking forward to anyones reply. 
Thank you already in advance. 

#field2
Sent2Field2_1<-Sent2Field2@data[,1:13]
Sent2F2_1<-cbind(CoordsSent2_F2,Sent2Field2_1)
coordinates(Sent2F2_1) <- ~long+lat

Sent2Field2_2<-Sent2Field2@data[,c(1,14:25)]
Sent2F2_2<-cbind(CoordsSent2_F2,Sent2Field2_2)
coordinates(Sent2F2_2) <- ~long+lat

Sent2Field2_3<-Sent2Field2@data[,c(1,26:37)]
Sent2F2_3<-cbind(CoordsSent2_F2,Sent2Field2_3)
coordinates(Sent2F2_3) <- ~long+lat

Sent2Field2_4<-Sent2Field2@data[,c(1,38:49)]
Sent2F2_4<-cbind(CoordsSent2_F2,Sent2Field2_4)
coordinates(Sent2F2_4) <- ~long+lat

Sent2Field2_5<-Sent2Field2@data[,c(1,50:61)]
Sent2F2_5<-cbind(CoordsSent2_F2,Sent2Field2_5)
coordinates(Sent2F2_5) <- ~long+lat

etc 
etc




        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.

Reply via email to