forループがリスト全体を反復処理しないのはなぜですか？

Question

本質的に、私は感情のリストをとり、リスト上の各感情を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") 

、私はループのためではなく、それだけで、ベクトルを作成し、 emotions2を最初の感情を複製しています何らかの理由で使用しています< -c（「ハッピー」、「ハッピー」、「ハッピー」、「ハッピー」、「ハッピー」、「ハッピー」）。

私のコードは次のようになります。 pmd.df3は私のデータフレームであり、Emotionsはこの情報を格納する新しい列です。

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

お手伝いがあれば教えてください。

Answer 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 

Answer 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