テーブルまたはデータフレームのリスト内の各要素に新しい列を追加する

Question

私はファイルのリストを持っています。私もこれらのファイルの実際のファイル名から私がsubstr()の "名前"のリストを持っています。リストの各ファイルに新しい列を追加したいと思います。この列には、ファイル内の行数と「名前」の対応する要素が繰り返し含まれます。例えば

：

df1 <- data.frame(x = 1:3, y=letters[1:3]) 
df2 <- data.frame(x = 4:6, y=letters[4:6]) 
filelist <- list(df1,df2) 
ID <- c("1A","IB") 

擬似コード

for(i in length(filelist)){ 

     filelist[i]$SampleID <- rep(ID[i],nrow(filelist[i]) 

    } 

//基本的にファイル・リスト内のデータフレームの各々における新しい列を作成し、IDのrepeted対応する値を持つ列を埋める

私の出力は次のようになります：

filelist[1]は次のようになります。

x y SAmpleID 
1 1 a  1A 
2 2 b  1A 
3 3 c  1A 

fileList[2]

x y SampleID 
1 4 d  IB 
2 5 e  IB 
3 6 f  IB 

など.....

それを行うことができる方法任意のアイデア。

Answer 1

代替ソリューションはCBINDを使用することであり、そしてRは、短い値をrecylceするという事実を利用することベクター。

例

x <- df2 # from above 
cbind(x, NewColumn="Singleton") 
# x y NewColumn 
# 1 4 d Singleton 
# 2 5 e Singleton 
# 3 6 f Singleton 

についてはrepの使用のための必要はありません。 Rはあなたのためにそれを行います。

Therfore、あなたfor loopでcbind(filelist[[i]], ID[[i]])を置くことができるか@Svenが指摘したように、あなたはクリーナーmapply使用することができます。

filelist <- mapply(cbind, filelist, "SampleID"=ID, SIMPLIFY=F) 

Answer 2

これはあなたのループの修正版です：

• 最終)は、体内のコマンドの後に行方不明になった：3つの問題がありました

  for(i in seq_along(filelist)){ 
  
      filelist[[i]]$SampleID <- rep(ID[i],nrow(filelist[[i]])) 
  
  } 
  

  。

• リストの要素は、[ではなく、[[によってアクセスされます。 [は長さ1のリストを返します。 [[は要素のみを返します。
• length(filelist)は1つの値に過ぎないので、ループはリストの最後の要素に対してのみ実行されます。私はそれをseq_along(filelist)に置き換えました。

---

より効率的なアプローチは、タスクのmapplyを使用することである。

mapply(function(x, y) "[<-"(x, "SampleID", value = y) , 
     filelist, ID, SIMPLIFY = FALSE) 

Answer 3

トリッキーな方法：

library(plyr) 

names(filelist) <- ID 
result <- ldply(filelist, data.frame)