Hi Ivy, try this:
k <- 0 i <- 1 while((k*12+13) <= ncol(Sent2Field2@data) { i <- k+1 n <- paste("Sent2Field2",i, sep="_") assign(n, Sent2Field2@data[,c(1,k*12+c(2:13))]) k <- k+1 } Best, Albrecht -- Albrecht Kauffmann alkau...@fastmail.fm Am Fr, 5. Okt 2018, um 16:30, schrieb Ivy Pieters: > 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. ______________________________________________ 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.