배치 여러 플롯

Question

안녕하세요, 내가 이전에 악기에 의해 일괄 적으로 생성 된 모든 .txt 파일에서 하나의 다른 플롯을 생성하는 R 스크립트를 만들려고 노력하고

, 같은 위치 스크립트의 폴더.

저는 R과 프로그래밍에서 일반적으로 (프로그래밍까지 1-2 개월) 매우 열악합니다.

.txt 파일에는 헤더가없는 두 개의 열 V1 및 V2가 있습니다.

• 나는 폴더에있는 모든 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 파일 만 선택합니다.
• 이 난에 1의 값을 할당
• 는 IF 루프 : 나 (I과
  • 파일 선택의 I^번째 파일을 읽어 상기 선택된 파일의 개수보다 = < 경우 = 1 , 첫 번째 파일) 나는 플롯을
  • 나는 1

그래서 NEX으로 난을 증가

그것을 디렉토리를 저장 t 라운드는 i = 2로 시작합니다.

루프는 "Speed_selection"의 모든 길이를 통과하지 않기 때문에 문제가 있습니다. 첫 번째 파일에 해당하는 하나의 플롯 만 얻습니다.

내가 뭘 잘못하고 있니?

감사합니다.

감사합니다.

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")) 
}