Dodawanie nowej kolumny do każdego elementu na liście tabel lub ramek danych

Question

Mam listę plików. Mam również listę "nazw", które I substr() od rzeczywistych nazw plików tych plików. Chciałbym dodać nową kolumnę do każdego z plików na liście. Ta kolumna będzie zawierać odpowiedni element w "nazwach" powtarzających się razy liczbę wierszy w pliku.

Na przykład:

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") 

pseudokod

for(i in length(filelist)){ 

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

    } 

// zasadzie utworzyć nową kolumnę każdej z dataframes w listy plików, a wypełnienie kolumny repeted odpowiednie wartości ID

moje dane wyjściowe powinny wyglądać następująco:

filelist[1] powinny być:

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 

i tak dalej .....

Każdy pomysł, jak można to zrobić.

Answer 1

Alternatywnym rozwiązaniem jest użycie cbind i wykorzystując fakt, że R będzie recylce wartości krótszy wektor.

Na przykład

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

Nie ma potrzeby stosowania rep. R robi to za ciebie.

Therfore, można umieścić cbind(filelist[[i]], ID[[i]]) w for loop lub @Sven wskazał, można użyć odkurzacza mapply:

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

Answer 2

Jest to poprawiona wersja swojej pętli:

for(i in seq_along(filelist)){ 

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

} 

Były 3 problemy:

• Ostateczna ) zaginął po komendzie w organizmie.
• Elementy list są dostępne przez [[, a nie przez [. [ zwraca listę długości pierwszej. [[ zwraca tylko element.
• length(filelist) to tylko jedna wartość, więc pętla działa tylko dla ostatniego elementu listy. Wymieniłem go na seq_along(filelist).

---

Bardziej efektywnym podejściem jest użycie mapply dla zadania:

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

Answer 3

trudne sposób:

library(plyr) 

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