Question

我有一个角色名单！我想在特定的驱动器中创建一些带有这些字符名称的文件夹，并将每个结果放在其文件夹中？！

我的角色名单是：

met <- c( 'aaa', 'bbb',  'abcd', 'efg', 'tszck')

我为他们计算了一个函数，然后我想将每个函数的结果放在一个名称与此字符名称相似的文件夹中！

for (i in seq_along(met)) {
     my_formula <-  paste0(met[i],"~+pc1+pc2+pc3")
     prep <- prepscores(Z=metGT,formula=my_formula,  ...)
     save(prep,file=paste0("prep",met[i],".RData"),compress="bzip2")
     }

在保存结果之前，我想在D盘中创建5个带有这些met值的文件夹，然后将每个结果保存到其文件夹中？！

我的输出将是：

D://aaa/prepaaa
D://bbb/prepbbb
D://abcd/prepabcd
D://efg/prepefg
D://tsczk/preptsczk

Answer 1

只需在循环中使用dir.create()：

for (i in seq_along(met)){
  my_formula<- paste0(met[i],"~+pc1+pc2+pc3")

  prep<- prepscores(Z=metGT,formula=my_formula, ...)

  outdir <- paste0("D://", met[i])  # DECLARE NEW FOLDER
  dir.create(outdir, showWarnings = FALSE)    # CREATE NEW FOLDER

  setwd(outdir)  # SET WORKING DIRECTORY TO NEW FOLDER    
  save(prep,file=paste0("prep",met[i],".RData"),
       compress="bzip2")   # OUTPUTTED FILE SAVED TO NEW FOLDER
}

如何在R中创建一些具有特定名称的文件夹？

1 个答案: