r - 使用 R 列表进行查找

Question

我正在处理大量调查回复，并尝试使用存储在列表中的值进行查找(将问题标题放入我的数据框中)。我担心我的索引忽略了一些简单的事情，但我就是做不到。这是一个可重现的例子:

survey.data <- data.frame(
  question.number = c("q2","q3","q4","q5")
)

titles <- list(q1="question1", 
           q2="question2", 
           q3="question3", 
           q4="question4", 
           q5="question5")

在涉及删除一些问题的一些数据操作之后，我尝试使用以下列表索引在我的数据框中创建一个新的 question.title 变量以获取正确的标题:

survey.data$question.title <- titles[survey.data$question.number]

给出输出:

    question.number question.title
1   q2  question1
2   q3  question2
3   q4  question3
4   q5  question4

您可以看到新变量没有应用查找，只是“导入”列表中从第一个开始的所有值。

我找不到任何关于使用列表进行这种查找的适用帮助，所以也许它只是不可取的？如果能提供修复或替代方案，我将不胜感激。

Answer 1

这是一个解决方案，但在分享之前，我通过添加一个重复的问题(“q2”)对您的数据进行了一些修改:

survey.data <- data.frame(
  question.number = c("q2","q3","q4","q5", "q2")
)

titles <- list(q1="question1", 
               q2="question2", 
               q3="question3", 
               q4="question4", 
               q5="question5")

该解决方案使用match 和unlist。

survey.data$question.title <- unlist(titles[match(survey.data$question.number, 
                                                  names(titles))])
survey.data
#   question.number question.title
# 1              q2      question2
# 2              q3      question3
# 3              q4      question4
# 4              q5      question5
# 5              q2      question2

这与撰写本文时已经存在的两种解决方案有何不同？

两种主要方式:

1. 这些解决方案都无法解决重复的“q2”问题。

   > survey.data$question.title <- titles[names(titles) %in% survey.data$question.number]
   Error in `$<-.data.frame`(`*tmp*`, "question.title", value = list(q2 = "question2",  : 
     replacement has 4 rows, data has 5
   > survey.data$question.title <- titles[levels(survey.data$question.number)]
   Error in `$<-.data.frame`(`*tmp*`, "question.title", value = list(q2 = "question2",  : 
     replacement has 4 rows, data has 5
   

2. 其他两个解决方案都为“question.title”列保留了一个list结构(如果不是使用unlist，这个解决方案也会这样做) >) 如果您稍后尝试执行诸如将数据导出到 csv 文件之类的操作，这将是有问题的。这特别麻烦，因为没有视觉指示结果列是 list，但您可以通过查看结果 data.frame 的 str 结构来验证这一点。