11

我的目录中有两种类型的文件。每种类型都有文本“Drug_Rep”，或者如果它不存在，则表示它是一个控制文件。药物数据有重复，其数量可能不同，对照也是如此。我正在读取 for 循环中的文件，如下所示。我想将我的数据帧命名为 X_Drug_Rep1，然后将下一个命名为 X_Drug_Rep2，依此类推……并保存数据帧以供进一步处理。对控件执行相同操作...X_CONTROL_Rep1...X_CONTROL_Rep2...等等。将我的数据保存到数据框中的语法是什么，因为我需要稍后对药物复制数据框和控件分别进行一些合并和计算。粘贴在作业左侧似乎不起作用。有什么建议么？

for (f in 1:length(fileList)){
    fileName <- fileList[f]
    X <-read.xls(fileName)

    if(regexpr("Drug_Rep", fileName)[1]>0){
      print("DRUG")
      print(fileName)
      paste(X_Drug_Rep,i)<-X
      i=i+1
    }
    else{
      print("CONTROL")
      print(fileName)
      paste(X_CONTROL,j)<-X
      j=j+1
    }
  }
4

1 回答 1

22

OP 真的很挣扎，所以我会在这里向他展示，而不是冗长的评论。不在乎这是否被关闭。

技术（不要做那个答案）将是使用assign：

i <- 1
j <- 1
for (f in 1:length(fileList)){
    fileName <- fileList[f]
    X <-read.xls(fileName)

    if(grepl("Drug_Rep", fileName)) {
      print("DRUG")
      print(fileName)
      assign(paste("X_Drug_Rep", i, sep = '_'), X)
      i <- i+1
    } else {
      print("CONTROL")
      print(fileName)
      assign(paste("X_CONTROL", i, sep = '_'), X)
      j <- j+1
    }
  }

但正如我们建议的那样，您应该改用列表。使用for循环，它看起来像这样：

X_Drug_Rep <- list()
X_CONTROL  <- list()
i <- 1
j <- 1
for (f in 1:length(fileList)){
    fileName <- fileList[f]
    X <-read.xls(fileName)

    if(grepl("Drug_Rep", fileName)) {
      print("DRUG")
      print(fileName)
      X_Drug_Rep[[i]] <- X
      i <- i+1
    } else {
      print("CONTROL")
      print(fileName)
      X_CONTROL[[j]] <- X
      j <- j+1
    }
  }

for最后，您的代码在没有循环的情况下看起来如何：

drug.rep.files <- grep("Drug_Rep", fileList, value = TRUE)
control.files  <- grep("Drug_Rep", fileList, value = TRUE, invert = TRUE)

X_Drug_Rep <- lapply(drug.rep.files, read.xls)
X_CONTROL  <- lapply(control.files, read.xls)

短得多，不是吗？！同样，这会创建两个列表。例如X_Drug_Rep_1，您可以通过执行来访问第一个 Drug_Rep 项目，而不是X_Drug_Rep[[1]]。

于 2013-06-23T12:20:36.087 回答