Предположим, два файла ffdf:
library(ff)
ff1 <- as.ffdf(data.frame(matrix(rnorm(10*10),ncol=10)))
ff2 <- ff1
colnames(ff2) <- 1:10
Как я могу привязать их к столбцам, не загружая их в память? cbind не работает.
Есть тот же вопрос http://stackoverflow.com/questions/18355686/columnbind-ff-data-frames-in-r но в нем нет MWE и автор забросил его поэтому я сделал репост.
Вы можете использовать следующую конструкцию cbind.ffdf2, убедившись, что имена столбцов двух входных ffdf не дублируются:
library(ff)
ff1 <- as.ffdf(data.frame(letA = letters[1:5], numA = 1:5))
ff2 <- as.ffdf(data.frame(letB = letters[6:10], numB = 6:10))
cbind.ffdf2 <- function(d1, d2){
D1names <- colnames(d1)
D2names <- colnames(d2)
mergeCall <- do.call("ffdf", c(physical(d1), physical(d2)))
colnames(mergeCall) <- c(D1names, D2names)
mergeCall
}
cbind.ffdf2(ff1, ff2)[,]
Результат:
letA numA letB numB
1 a 1 f 6
2 b 2 g 7
3 c 3 h 8
4 d 4 i 9
5 e 5 j 10
Извините за столь позднее присоединение. Если вы хотите связать произвольное количество объектов ffdf, не беспокоясь о дублирующихся столбцах. Вы можете попробовать это (основываясь на решении Одри).
ff1 <- as.ffdf(data.frame(letA = letters[1:5], numA = 1:5))
ff2 <- as.ffdf(data.frame(letA = letters[6:10], numB = 6:10))
cbind.ffdf2 <- function(...){
argl <- list(...)
if(length(argl) == 1L){
return(argl[[1]])
}else{
physicalList = NULL
for(i in 1:length(argl)){
if(class(argl[[i]]) == "data.frame"){
physicalList = c(physicalList, physical(as.ffdf(argl[[i]])))
}else{
physicalList = c(physicalList, physical(argl[[i]]))
}
}
mergeCall <- do.call("ffdf", physicalList)
return(mergeCall)
}
}
cbind.ffdf2(ff1, ff2)
Он также преобразует любой объект фрейма данных в список в объект ffdf.
cbindтоже может быть возможным. - person user2763361 schedule 16.12.2013