为什么我的 for 循环不会遍历整个列表？答案

【问题标题】：Why won't my for loop iterate over the whole list?为什么我的 for 循环不会遍历整个列表？
【发布时间】：2017-06-27 21:17:42
【问题描述】：

基本上，我正在获取一个情绪列表，并尝试将列表中的每个情绪复制 6 次，然后将它们添加到向量中。例如：

emotions<-c("Happy","Sad","Angry")

看起来像：

emotions2<-c("Happy","Happy","Happy","Happy","Happy","Happy","Sad","Sad","Sad","Sad","Sad","Angry","Angry","Angry","Angry","Angry","Angry")

现在要做到这一点，我正在使用 for 循环，但由于某种原因，它只是复制第一个情感，创建向量，情绪2

我的代码如下所示： pmd.df3 是我的数据框，Emotions 是其中的新列，我将在其中存储此信息。

  pmd.df3$Emotions<-(
     for(ele in emotions){
       new.column<-replicate(6,ele)
       print(new.column)
     }
   )

如果你能帮忙，请告诉我！

【问题讨论】：

请在您的问题中包含您使用的编程语言。
建议：提及您的代码所使用的编程语言。这将帮助您更快地获得解决方案，因为合适的开发人员将能够看到您的代码。始终使用正确的标签来标记您的问题。
你是对的——我的错！谢谢你提醒我。

标签： r loops for-loop replicate

【解决方案1】：

为此，您可以使用lapply（将函数应用于列表/向量的每个元素）和unlist（将结果列表展平）：

pmd.df3$Emotions <- unlist(lapply(emotions, function(x) { rep(x, 6) }))

完整示例：

emotions <- c("Happy", "Sad", "Angry")
pmd.df3 = data.frame(id = seq(1, 18))

pmd.df3$Emotions <- unlist(lapply(emotions, function(x) { rep(x, 6) }))
pmd.df3 
#    id Emotions
# 1   1    Happy
# 2   2    Happy
# 3   3    Happy
# 4   4    Happy
# 5   5    Happy
# 6   6    Happy
# 7   7      Sad
# 8   8      Sad
# 9   9      Sad
# 10 10      Sad
# 11 11      Sad
# 12 12      Sad
# 13 13    Angry
# 14 14    Angry
# 15 15    Angry
# 16 16    Angry
# 17 17    Angry
# 18 18    Angry

【讨论】：

你能告诉我为什么我的代码不起作用吗？当我说“打印”时它正在工作，但是当我将它保存为矢量时，它删除了所有情绪，但第一个情绪（它确实复制了 6 次）。
@AndrewColin 我不太熟悉在代码中使用print，但我认为你没有汇总所有单个向量中的情绪（pmd.df3$Emotions <- 期望单个向量，而不是多个）。另外，如果我的答案是正确的，请随时将其标记为已接受；）
这个逻辑对我来说很有意义。感谢您的回答和解释！

【解决方案2】：

为了背负 shambalambala 的回答，rep 可以在本地处理这个问题，而不需要 lapply 或 for 循环。

emotions <- c("Happy", "Sad", "Angry")
pmd.df3 = data.frame(id = seq(1, 18))
pmd.df3$Emotions <- rep(emotions, each = 6)

   id Emotions
1   1    Happy
2   2    Happy
3   3    Happy
4   4    Happy
5   5    Happy
6   6    Happy
7   7      Sad
8   8      Sad
9   9      Sad
10 10      Sad
11 11      Sad
12 12      Sad
13 13    Angry
14 14    Angry
15 15    Angry
16 16    Angry
17 17    Angry
18 18    Angry

【讨论】：

这也很有效。也感谢您分享此选项！