リストを分割して個別にオブジェクトを保存する方法は？

Question

複数のデータフレームに新しい列を追加しようとしていて、元のデータフレームを新しいデータフレームに置き換えようとしています。新しいデータフレームを作成する方法は次のとおりです。

df1 <- data.frame(X1=c(1,2,3),X2=c(1,2,3)) 
df2 <- data.frame(X1=c(4,5,6),X2=c(4,5,6)) 

groups <- list(df1,df2) 
groups <- lapply(groups,function(x) cbind(x,X3=x[,1]+x[,2])) 
groups 

[[1]] 
    X1 X2 X3 
1 1 1 2 
2 2 2 4 
3 3 3 6 

[[2]] 
    X1 X2 X3 
1 4 4 8 
2 5 5 10 
3 6 6 12 

新しいデータフレームの作成方法に満足しています。私が悩んでいるのは、私のgroupsリストを分割してから、リスト要素を元のデータフレームに戻して保存することです。

所望の出力

基本的に、私はdf1,df2 <- groups[[1]],groups[[2]]のような何かをしたいが、それは有効でない構文上はもちろんです。私は2つ以上のデータフレームを持っています。なぜなら、単純にN行のコードを入力するよりも、よりプログラム的なアプローチを望んでいるからです。

Answer 1

for (i in 1:length(groups)){ 
    assign(paste("df",i,sep=""),as.data.frame(groups[[i]])) 
} 

とする必要があります。試してみてください。

Answer 2

@Rockbarは、同様に、一般的なソリューションに私を導いた：

for(i in 1:length(groups)){ 
    assign(names(groups)[i],as.data.frame(groups[[i]])) 
} 

> df1 
    X1 X2 X3 
1 1 1 2 
2 2 2 4 
3 3 3 6 
> df2 
    x1 X3 X3 
1 4 4 8 
2 5 5 10 
3 6 6 12 

私はこれだけの作品が、リスト内のオブジェクトはすべての名前が付けられている場合に注意すべきです。私にこれを案内してくれてありがとう@Rockbar。