新しい値の列をdata.framesのリストに設定しました

Question

data.framesのリストに識別子の列を追加したい（それらのリストを外す前に）。

names = c('a', 'b') 
d1 <- data.frame(y1=c(1,2,3),y2=c(4,5,6)) 
d2 <- data.frame(y1=c(3,2,1),y2=c(6,5,4)) 
my.list <- list(d1, d2) 
lapply(seq_along(my.list), function(x) my.list[[x]]$names = names[[x]]) 

しかし、これは

​​

の代わりに返します：私はlapplyを使用してみました

[[1]] 
    y1 y2 names 
1 1 4 a 
2 2 5 a 
3 3 6 a 

[[2]] 
    y1 y2 names 
1 3 6  b 
2 2 5  b 
3 1 4  b 

編集：私はindex(my.list)を使用していた（zooからの）。 （データフレームのリストに名前を追加）あなたが並列に二つの配列を処理するためにMapを使用することができ、ベースR

Answer 1

に滞在しseq_along(my.list)ように編集：

Map(function(df, name) transform(df, names=name), my.list, names) 

#[[1]] 
# y1 y2 names 
#1 1 4  a 
#2 2 5  a 
#3 3 6  a 

#[[2]] 
# y1 y2 names 
#1 3 6  b 
#2 2 5  b 
#3 1 4  b