批量多条曲线

Question

晚上好，

我努力使产生从每一个txt文件，已在一批由仪器之前生成一个不同情节的R脚本，并在同一脚本的文件夹。

我很不熟悉R和编程（一般1-2个月的练习）。

.txt文件有两列，V1和V2，没有标题。

这里是我已经生成的代码：

``` 
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文件的列表。我检查列表，它只打印txt文件。
• 我只选择名称中包含“速度”的.txt文件。
• 我的1的值分配给我
• 的如果循环：如果i < =除了所选择的文件
  • 读取在文件选择第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")) 
}