私は初心者です。どのようにすべてのファイルにコードを適用し、新しいtxtを保存する？

Question

私はスペクトルを滑らかにするためにこのコードを持っています！

list_tot <- list.files(path = ".", pattern="*.txt") 
num <- as.integer(length(list_tot)) 


library(data.table) 
DT_final_tot <- fread(file = list_tot[1]) 
setnames(DT_final_tot, c("Raman shift (cm-1)", list_tot[1])) 

x <-DT_final_tot[[1]] 
y <-DT_final_tot[[2]] 

smooth_spectra <- smooth.spline(x,y, spar = NULL) 
plot(x,y, type = "l", main="raw spectra", col="green") 
lines(smooth_spectra,type = "l") 
plot(smooth_spectra,type = "l", main="smooth spectra ") 

私はこのフォルダの最初のファイルにコードを適用しました！どのようにすべてのファイルに適用することができ、どのようにsmoothedスペクトルをtxtとして保存することができますか？ファイル？

Answer 1

library(data.table) 
list_tot <- list.files(path = ".", pattern="*.txt") 
num <- as.integer(length(list_tot)) 

for(fname in list_tot) { 
    DT_final_tot <- fread(file = fname) 
    setnames(DT_final_tot, c("Raman shift (cm-1)", fname)) 

    x <-DT_final_tot[[1]] 
    y <-DT_final_tot[[2]] 

    smooth_spectra <- smooth.spline(x,y, spar = NULL) 
    plot(x,y, type = "l", main="raw spectra", col="green") 
    lines(smooth_spectra,type = "l") 
    plot(smooth_spectra,type = "l", main="smooth spectra ") 

    dump(c("smooth_spectra"), file=paste0(tools::file_path_sans_ext(fname), "_smoothed", ".csv")) 
} 

あなたはlist_totを反復するforループを導入すべきです。ファイル内のsmooth_spectraを入力ファイルと同じ名前で保存します。接頭辞は_smoothed、.csvです。