如何根据用户的回答对文件进行分类

Posted 2023-01-28

我尝试使其变得简单。我进入了工作目录``Laurent / R''csv文件（从未超过5个），其名称从一个实验更改为另一个实验。是否可以使用for和if循环一个接一个地显示每个文件并要求每个文件：“这是一个“控制”文件吗？”，还是要求每个文件都类似“ Is”“ file.name” [i]“控制文件？”并为下一步整理答案？谢谢

答案

我认为您正在寻找这样的东西：

label_controls <- function(my_dir)

  filenames <- list.files(my_dir)
  is_control <- logical(length(filenames))
  for(i in seq_along(filenames))
  
    cat(filenames[i], "\n")
    answer <- readline("Is this a control file (Y/N)? : ")
    is_control[i] <- grepl("Y|y", answer)
    cat("\n")
  
  data.frame(filenames, is_control)

如果在特定目录下运行此功能，则将提示您为每个文件（无论它是不是控制文件），并在其中回答Y或N。它将返回目录中所有文件的数据帧。一栏，第二栏指示该文件是否为控制文件：

df <- label_controls("Me/Subdir/files")

my_csv1.csv
Is this a control file (Y/N)? : N

my_csv2.csv
Is this a control file (Y/N)? : Y

my_csv3.csv
Is this a control file (Y/N)? : N

您可以查看结果：

df
#>         filenames is_control
#> 1     my_csv1.csv      FALSE
#> 2     my_csv2.csv       TRUE
#> 3     my_csv3.csv      FALSE