R-如何动态命名数据框? [英] R- how to dynamically name data frames?

问题描述

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

I have two types of files in my directory. Each type has either the text "Drug_Rep" in it or if its not there it means its a control file. Drug data has replicates which can vary in number and so does the control. I am reading the files in a for loop as follows. I want to name my dataframes as X_Drug_Rep1 and then the next as X_Drug_Rep2 and so on...and save the dataframe for further processing. Do the same for controls...X_CONTROL_Rep1...X_CONTROL_Rep2...and so on. What is the syntax to save my data into dataframes because i need to do some merges and calculations later on the drug replicate dataframes and controls separately. paste on the left side of assignment does not seem to work. Any suggestions?

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

推荐答案

OP 真的很挣扎，所以我会在这里给他看，而不是长评论.不在乎这是否关闭.

OP is really struggling so instead of a long comment, I'll show him here. Don't care if this gets closed.

技术(不要做那个答案)将使用assign:

The technical (don't do that answer) would be to use 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 循环，它看起来像这样:

But as we recommended, you should use lists instead. Using a for loop, it would look like this:

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 循环，您的代码会是什么样子:

Finally, how your code would look like without a for loop:

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.

Much shorter, no?! Again, this creates two lists. For example, instead of X_Drug_Rep_1, you would access the first Drug_Rep item by doing X_Drug_Rep[[1]].

这篇关于R-如何动态命名数据框?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！