Wie verarbeitet man mehrere Dateien aus zwei Ordnern in einer Schleife mit R

Question

Ich arbeite an Lidar (Light Detection and Ranging) Daten, um eine Ausgabe namens CHM (Baldachin Höhe Modell) zu erzeugen. Ich brauche zwei Arten von Dateien mit der gleichen Erweiterung, die in zwei verschiedenen Ordnern gespeichert ist. Im Grunde haben diese beiden Dateien nicht die gleichen Eigenschaften, also versuche ich, unterschiedliche Funktionen für die in zwei Ordnern gespeicherten Dateien anzuwenden. Zum Beispiel, hier ist der Code, den ich

Einstellen des Verzeichnisses für eine Art von Dateien

setwd("D:\\Raw_RS_Data\\LiDAR_Ground")

getwd()

fileList <- list.files(path "D:\\Raw_RS_Data\\LiDAR_Ground", pattern = ".las") filelist

for (i in 1:length(fileList)) # apply loop function for all the files in this folder 

{

ausführen möchten

MyLas <- readLAS(fileList[i]) # Lesen Sie alle las Dateien im Verzeichnis MyDTM <- grid_terrain(MyLas, res = 0.5, method = "knnidw", k = 6) # DTM von den las Dateien # Benötigen Sie das Verzeichnis für andere Dateien zu ändern, in dem Ordner gespeichert erstellen „D: \ Raw_RS_Data \ LiDAR_Non_Ground“ und führen Sie die Funktion lasnormalize in der

gleiche Schleife

MyNorm <- lasnormalize(MyLas, MyDTM) # Normalisieren der lasfiles

der endgültige Ausgang ich brauche CHM ist und hier ist die Funktion für CHM

MyCHM = grid_canopy(MyNorm, res = 0.5, start = c(0, 0))

}

Alternativ, wenn ich diese Dateien in dem anderen Ordner kombinieren kann, könnte ich die Funktion mit nur einer Schleife anwenden. Also, weiß auch nicht, wie man die Dateien aus verschiedenen Ordnern zu einem zusammenfügt.

Danke und Grüße, Yogendra

Answer 1

Würde die folgende Arbeit? Die Frage ist ein bisschen zweideutig, aber hier ist mein Schuss auf der Interpretation:

#note that in general using "/" is better than "\" 
file_path.1 = "D:/folder/non_ground" 
file_path.2 = "D:/folder/ground" 

#get the files of interest with full path name 
files_non_ground = paste(file_path.1,dir(file_path.1, ".las"), sep='/') 
files_ground = paste(file_path.1,dir(file_path.2, ".las"), sep='/') 

#concatenate them into a single vector 
files = c(files_non_ground, files_ground) 

#initiate some storage container 
out.list = list() 

#iterate over files: 
for(f in files){ 
    MyLas <- readLAS(f) 
    MyDTM <- grid_terrain(MyLas, res = 0.5, method = "knnidw", k = 6) 
    MyNorm <- lasnormalize(MyLas, MyDTM) 
    writeLAS(MyNorm,sub(".las", "norm.las", f)) 
    #out.list[f] = MyNorm 
} 

Nur bitte beachten Sie, dass ich nicht sicher bin, was im Innern der for Schleife passiert, das oben ist nur meine Vermutung. Außerdem denke ich, dass es im Allgemeinen vorzuziehen ist, vollständige Dateipfadnamen anstelle von Verzeichnissen zu verwenden, insbesondere wenn es sich um mehrere Ordner handelt.