У меня есть список фреймов данных, которые в конечном итоге я хочу объединить, сохраняя при этом запись их исходного имени или списка индексов. Это позволит мне подмножество и т.д. Во всех строках. Для этого я хотел бы добавить новую переменную 'id' для каждого фрейма данных, который содержит имя/индекс фрейма данных, к которому он принадлежит.
Изменить: "В моем реальном коде переменные dataframe создаются из чтения нескольких файлов с использованием следующего кода, поэтому у меня нет фактических имен только в списке" files.to.read ", которые я не уверен, если они будут совпадать с порядком данных:
mylist <- llply(files.to.read, read.csv)
В нескольких сообщениях выделено несколько методов: Working-with-dataframes-in-a-list-drop-variables-add-new-ones и Using-lapply-with-changing-arguments
Я пробовал два аналогичных метода, первый из которых использует индексный список:
df1 <- data.frame(x=c(1:5),y=c(11:15))
df2 <- data.frame(x=c(1:5),y=c(11:15))
mylist <- list(df1,df2)
# Adds a new coloumn 'id' with a value of 5 to every row in every dataframe.
# I WANT to change the value based on the list index.
mylist1 <- lapply(mylist,
function(x){
x$id <- 5
return (x)
}
)
#Example of what I WANT, instead of '5'.
#> mylist1
#[[1]]
#x y id
#1 1 11 1
#2 2 12 1
#3 3 13 1
#4 4 14 1
#5 5 15 1
#
#[[2]]
#x y id
#1 1 11 2
#2 2 12 2
#3 3 13 2
#4 4 14 2
#5 5 15 2
Вторая попытка передать имена() списка.
# I WANT it to add a new coloumn 'id' with the name of the respective dataframe
# to every row in every dataframe.
mylist2 <- lapply(names(mylist),
function(x){
portfolio.results[[x]]$id <- "dataframe name here"
return (portfolio.results[[x]])
}
)
#Example of what I WANT, instead of 'dataframe name here'.
# mylist2
#[[1]]
#x y id
#1 1 11 df1
#2 2 12 df1
#3 3 13 df1
#4 4 14 df1
#5 5 15 df1
#
#[[2]]
#x y id
#1 1 11 df2
#2 2 12 df2
#3 3 13 df2
#4 4 14 df2
#5 5 15 df2
Но функция names() не работает в списке dataframes; он возвращает NULL. Могу ли я использовать seq_along (mylist) в первом примере.
Любые идеи или лучший способ обработки всего "слияния с исходным идентификатором"
Изменить - Добавлено Решение ниже: Я реализовал решение, используя предложение Hadleys и Tommys nudge, которое выглядит примерно так.
files.to.read <- list.files(datafolder, pattern="\\_D.csv$", full.names=FALSE)
mylist <- llply(files.to.read, read.csv)
all <- do.call("rbind", mylist)
all$id <- rep(files.to.read, sapply(mylist, nrow))
Я использовал файл files.to.read как идентификатор для каждого фрейма данных
Я также изменил использование метода merge_recurse(), поскольку по какой-то причине он был очень медленным.
all <- merge_recurse(mylist)
Спасибо всем.