バッチ複数のプロット

Question

こんばんは、私は以前、機器によってバッチで生成されたすべての.txtファイルから一つの異なるプロットを生成Rスクリプトを作成しようとしています

、と同じでありスクリプトのフォルダ。

私は非常にRとプログラミング全般（現在まで1〜2ヶ月）で非常に劣っています。

.txtファイルには、それぞれV1とV2の2つの列があり、ヘッダーはありません。

• 私はフォルダ内のすべてのtxtファイルのリストを取得：コードを生成する前に

  ``` 
  library(tidyverse) 
  library(ggsci) 
  
  fileNames <- list.files(getwd(), full.names = T, pattern="txt") 
  #print(fileNames) 
  
  Speed_selection <- grep('speed', fileNames, value=TRUE) 
  
  length <- length(Speed_selection) 
  
  i <- 1 
  
  if(i<=length){ 
      #print(Speed_selection[i]) 
      Speed <- read.table((Speed_selection[i]), header=F, sep="") 
  
      p <- ggplot(Speed)+geom_line(aes(V1,V2)) 
      ggsave("plot.pdf", p) 
  
      i=i+1 
      i 
  } else { 
      print("Finished") 
  } 
  ``` 
  

  私の考えは以下の通りであった：ここ

  は、私は、生成したコードです。私はリストをチェックし、txtファイルだけを出力します。
• "speed"という名前の.txtファイルのみを選択します。
• I 1ザ・ループなら
• Iの値を代入する：iが選択されたファイル
  • の番号i = 1のファイル選択のI ^番目のファイルを（読み取りより< =である場合、最初のファイル）
  • 私はそれを私が私がNEX 1.

により増加したディレクトリ

を保存するプロットを作りますt roundはi = 2で始まります。

問題は、ループが "Speed_selection"のすべての長さを通過していないので、私は1つのプロット（最初のファイルに対応する）を取得するだけです。

私は間違っていますか？

ありがとう、

お待ちしております。

Answer 1

は、ここでは、すでにtidyverseを使用しているので、ヘルパー関数とpurrrを使用してのアプローチです。

library(tidyverse) 
library(ggsci) 

print_plots <- function(x) { 

    data <- read.table(x, header=F, sep="") 

    file_name <- sprintf("%s plot.pdf", basename(x)) 

    p <- ggplot(data) + 
     geom_line(aes(V1,V2)) 

    ggsave(file_name, p) 

} 

fileNames <- list.files(getwd(), full.names = T, pattern="txt") 

Speed_selection <- grep('speed', fileNames, value = TRUE) 

walk(Speed_selection, ~print_plots(.x)) 

またはパイプで：

list.files(getwd(), full.names = T, pattern="txt") %>% 
     grep('speed', ., value = TRUE) %>% 
     walk(Speed_selection, ~print_plots(.x)) 

Answer 2

あなたはこれを複雑にしているようです。次のことが同じことを達成しないだろうか？

for(x in list.files(getwd(), full.names = T, pattern="\\.txt")) 
{ 
    Speed <- read.table(x, header=F, sep="") 

    p <- ggplot(Speed) + 
    geom_line(aes(V1,V2)) 

    ggsave(p,filename=paste0(gsub("\\..*","",x),"_plot.pdf")) 
}