r - 如何将列表中的多个列表组合成一个数据框

问题描述：

我试图将2列不等长的列表组合成一个数据框。r - 如何将列表中的多个列表组合成一个数据框

我从一个包含2个矩阵的列表开始。

mtx_a <- matrix(data = c(1:24), nrow = 4) 
mtx_b <- matrix(data = c(25:36), nrow = 3) 
row.names(mtx_a) <- c("A", "B", "C", "D") 
row.names(mtx_b) <- c("A", "B", "C") 
colnames(mtx_a) <- c("V1", "V2", "W1", "W2", "X1", "X2") 
colnames(mtx_b) <- c("Y1", "Y2", "Z1", "Z2") 
mtx_list <- list(mtx_a, mtx_b) 
names(mtx_list) <- c("mtx_a", "mtx_b") 
mtx_list

我已经提取了一个基于rowname的特定行来检查。

mtx_list <- lapply(mtx_list, function(mtx_list){ 
    mtx_list[row.names(mtx_list) %in% c("A"),]})

接下来我根据它们的索引提取了特定的列。（交替列等同于条件1和2）。

cond_1 <- lapply(lapply(mtx_list, function(mtx_list) { 
    mtx_list[c(T,F)]}), unname) 
cond_2 <- lapply(lapply(mtx_list, function(mtx_list) { 
    mtx_list[c(F,T)]}), unname)

我试图产生看起来像这样的一个数据帧：

 cond_1 cond_2 
mtx_a 1  5 
mtx_a 9  13 
mtx_a 17  21 
mtx_b 25  28 
mtx_b 31  34

我曾尝试以下，但没有取得任何结果：

list(cond_1, cond_2) 
library(plyr) 
ldply(c(cond_1, cond_2))

答

您可以使用Map到cbind各自的列表元素。

do.call(rbind, Map(cbind, cond_1, cond_2)) 
#  [,1] [,2] 
#[1,] 1 5 
#[2,] 9 13 
#[3,] 17 21 
#[4,] 25 28 
#[5,] 31 34

一点点更多的工作可以给你稍微好一点的结果

data.frame(mtx = unlist(lapply(1:length(cond_1), 
           function(i) 
            rep(names(cond_1)[i], length(cond_1[[i]])))), 
    do.call(rbind, Map(cbind, cond_1, cond_2))) 
# mtx X1 X2 
#1 mtx_a 1 5 
#2 mtx_a 9 13 
#3 mtx_a 17 21 
#4 mtx_b 25 28 
#5 mtx_b 31 34

答

下面是使用sapply替代。我将其包装在一个功能中以便于重复使用。

getter <- function(rowName) { 
    # loop through matrices in list, pull out rows that match name 
    temp <- unlist(sapply(mtx_list, function(x) x[rowName,]), use.names=FALSE) 
    # return data.frame with alternating values 
    data.frame(var1=temp[c(TRUE, FALSE)], var2=temp[c(FALSE, TRUE)]) 
} 

getter("A") 
    var1 var2 
1 1 5 
2 9 13 
3 17 21 
4 25 28 
5 31 34

请注意，列表中的所有矩阵都必须包含该函数的行名才能使用。

答

提取所有"A"行，然后再只馈送到2列的矩阵：

matrix(unlist(lapply(mtx_list, `[`, "A",)), ncol=2, byrow=TRUE) 
#  [,1] [,2] 
#[1,] 1 5 
#[2,] 9 13 
#[3,] 17 21 
#[4,] 25 28 
#[5,] 31 34

即在需要时可以被包裹在data.frame()。

r - 如何将列表中的多个列表组合成一个数据框

相关推荐