R：重命名或复制数据框并将其命名为向量中的定义

Question

我想从现有的数据框创建一个新的数据框，并将其命名为向量中的定义：

我有一个包含许多不同问题的数据集，为了更快地浏览数据集，我开发了一个可以调用的通用函数列表。对于每个问题，我定义了具体的值，如下所示。在第二部分，我或多或少地为问题创建了一个干净的数据集，它被保存为一个名为“questionid”的数据框。因为每个问题都会覆盖该变量，我想创建此数据框的副本并按照“问题名”下指定的方式调用它（在本例中为“A1”）。我发现很难找到简单的方法来做到这一点。我希望有人可以帮助我。

# Specify vectors and variables
  question <- "Would you recommend edX to a friend of you?" 
  questionname <- "A1" 
  edXid <- "i4x-DelftX-ET3034TUx-problem-b3d30df864ca41ffa0170e790f01a783_2_1" 
  clevels <- c("0 - Not at all likely", "1", "2", "3", "4", "5 - Neutral", "6", "7", "8", "9", "10 - Extremely likely") 
  csvname <- paste(questionname, ".csv", sep="") 
  pngname <- paste(questionname, ".png", sep="") 

# Run code
  questionid <- subset(allDatasolar, allDatasolar[,3]==edXid, select = -c(X,question))
  questionid <- questionid[-grep("dummy", questionid$answer), ] 
  questionid <- droplevels(questionid) 
  # as.name(questionname) <- as.data.frame(questionid) # does not work
  questionid$answer <- factor(questionid$answer, ordered=TRUE, levels=clevels) 
  write.csv(data.frame(summary(questionid$answer)), file = csvname) 
  png(file = pngname, width = 640) 
  barchart(questionid$answer, main = question, xlab = "", col='lightblue')
  dev.off() 

Answer 1

您正在寻找assign

>question = "What do you need?" >questionname = "A1" > >questionid = data.frame(question, x="minimal working example") > >assign(questionname, questionid) > >A1 问题 x 1 你需要什么？最小的工作示例

Assign 将字符串（或字符变量，在这种情况下）作为第一个参数，并使用该名称创建一个对象，该对象是第二个参数中任何内容的副本。在这种情况下，您可以随意覆盖 questionid 数据框，但您将在此过程中根据“questionname”变量值进行复制。