列表爲NA或0的數據幀

Question

我有一個包含138個表的列表(prop.table)。每個表最多可以包含20個變量（數值類別範圍從11-95作爲colnames）。我需要將此列表轉換爲主數據框。前三個表是這樣的：

[[1]] 
x 
     21   41   42   43   52   71   81   82 
0.02007456 0.58158876 0.22483510 0.09349011 0.05248064 0.01204474 0.00544881 0.01003728 

[[2]] 
x 
     21   41   42   43   52   71   90 
0.01175122 0.36973345 0.34107194 0.03066781 0.08655775 0.01633706 0.14388077 

[[3]] 
x 
     21   22   23   41   42 
0.043254082 0.008307075 0.016614151 0.930392438 0.001432254 

我需要將其轉換爲一個矩陣，它看起來像這樣，與NAS或0時分類變量不可用：

x<-matrix (nrow=3, ncol=11) 
colnames(x) <-c('21', '22', '23', '41', '42', '43', '52', '71', '81', '82', '90') 

我有使用這條線從以前的類似的問題試過，但該表是不正確的：

df <- data.frame(matrix(unlist(prop.table), nrow=138, byrow=T)) 

就如何解決這個問題並得到我所需要的表有什麼建議？

Answer 1

這裏的列進行排序很簡單的方法來使用lapply，rbind和do.call

ptl 
## [[1]] 
## x 
##   21   41   42   43   52   71   81   82 
## 0.02007456 0.58158876 0.22483510 0.09349011 0.05248064 0.01204474 0.00544881 0.01003728 
## 
## [[2]] 
## x 
##   21   41   42   43   52   71   90 
## 0.01175122 0.36973345 0.34107194 0.03066781 0.08655775 0.01633706 0.14388077 
## 
## [[3]] 
## x 
##   21   22   23   41   42 
## 0.043254082 0.008307075 0.016614151 0.930392438 0.001432254 
## 
## [[4]] 
## x 
##   21   22   31   41   42   43   81 
## 0.10028653 0.03123209 0.00487106 0.66103152 0.03037249 0.01604585 0.15616046 
## 
## [[5]] 
## x 
##   21   41   42   43   81 
## 0.0662080825 0.8291774147 0.0005732302 0.0865577529 0.0174835196 
## 
## [[6]] 
## x 
##   21   22   31   41   42   43   81 
## 0.081948424 0.002292264 0.006303725 0.825501433 0.029226361 0.020630372 0.034097421 
## 


# Get unique names of all columns in tables in the list 
resCol <- unique(unlist(lapply(ptl, names))) 

# Get dimensions of desired result 
nresCol <- length(resCol) 
nresRow <- length(ptl) 

# Create 'Template' data.frame row 
DF <- as.data.frame(matrix(rep(0, nresCol), nrow = 1, dimnames = list(1, resCol))) 

# for every table in list, create copy of DF, fill it appropriately, then rbind result together using do.call 

result <- do.call(rbind, lapply(ptl, function(x) { 
    retDF <- DF 
    retDF[, names(x)] <- x 
    return(retDF) 
})) 

# rename rows(optional) 
rownames(result) <- 1:nrow(result) 

result 
##   21  41   42   43   52   71   81   82  90   22   23   31 
## 1 0.02007456 0.5815888 0.2248351018 0.09349011 0.05248064 0.01204474 0.00544881 0.01003728 0.0000000 0.000000000 0.00000000 0.000000000 
## 2 0.01175122 0.3697334 0.3410719404 0.03066781 0.08655775 0.01633706 0.00000000 0.00000000 0.1438808 0.000000000 0.00000000 0.000000000 
## 3 0.04325408 0.9303924 0.0014322544 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.0000000 0.008307075 0.01661415 0.000000000 
## 4 0.10028653 0.6610315 0.0303724928 0.01604585 0.00000000 0.00000000 0.15616046 0.00000000 0.0000000 0.031232092 0.00000000 0.004871060 
## 5 0.06620808 0.8291774 0.0005732302 0.08655775 0.00000000 0.00000000 0.01748352 0.00000000 0.0000000 0.000000000 0.00000000 0.000000000 
## 6 0.08194842 0.8255014 0.0292263610 0.02063037 0.00000000 0.00000000 0.03409742 0.00000000 0.0000000 0.002292264 0.00000000 0.006303725 

Answer 2

這是你想要的嗎？

x1 <- c(1, 5, 7) 
names(x1) <- 1:3 
x2 <- c(1, 2, 7) 
names(x2) <- c(1,3,5) 
l <- list(x1, x2) 

m <- matrix(nrow=length(l), ncol=5) 
colnames(m) <- 1:5 
for (i in 1:length(l)) { 
    m[i, names(l[[i]])] <- l[[i]] 
} 

也許一個可以替換的apply功能的循環，但我不知道......基本上，我遍歷列表和矩陣的每一行中設置這些與姓名匹配列列表中的向量。

對不起，沒有使用你的數據集，但你沒有手頭的代碼，我懶得打出來。

Answer 3

我只是想提出一個解決方案。你如何將所有列表連接在一起。所以，你將有

MyDataFrame 
variable1   1   1   1   1   1   1   1   1 
variable2  21   41   42   43   52   71   81   82 
variable30.02007456 0.58158876 0.22483510 0.09349011 0.05248064 0.01204474 0.00544881 0.01003728 

variable1   2   2   2   2   2   2   2 
variable2  21   41   42   43   52   71   90 
variable30.01175122 0.36973345 0.34107194 0.03066781 0.08655775 0.01633706 0.14388077 

variable1   3   3   3   3   3 
variable2   21   22   23   41   42 
variable30.043254082 0.008307075 0.016614151 0.930392438 0.001432254 

而一旦你只有一個數據幀。您可以使用重塑功能。像

install.packages('reshape') 
library('reshape') 
cast(MyDataFrame, variable1~variable2) 

Answer 4

這不會是最有效的，但使用plyr和reshape2，並假設您的prop.tables列表被稱爲foo

library(plyr) 
library(reshape2) 


allData <- dcast(ldply(lapply(seq_along(foo), function(x) data.frame(foo[[x]], id = x))), 
       id ~ x, value.var = 'Freq') 

以上直向前

ff <- c('21', '22', '23', '41', '42', '43', '52', '71', '81', '82', '90') 

t(sapply(foo, function(x,y) {x[ff]})) 

Answer 5

來自plyr包的rbind.fill將爲您做到這一點：

# make an example `prop.table`: 
tbl <- 1:10 
names(tbl) <- letters[1:10] 
tbl <- as.matrix(tbl) 

# make sure some of the columns are missing 
prop.table <- list(tbl[sample(10, size=8),], tbl[sample(10, size=7),], tbl[sample(10, size=9),]) 
# [[1]] 
# d b g c h f e i 
# 4 2 7 3 8 6 5 9 
# [[2]] 
# h g d a j f c 
# 8 7 4 1 10 6 3 
# [[3]] 
# c i b d j a h g e 
# 3 9 2 4 10 1 8 7 5 

您可以使用從plyr的rbind.fill功能，這僅僅是rbind但它填補缺少的列了與NA。它可以在數據幀rbind在一起的列表，所以我的prop.table每個元素轉換成數據幀的第一（所需的t，以確保每個prop.table[[i]]被視爲一排，而不是一個列）

rbind.fill(lapply(prop.table, function (x) as.data.frame(t(x)))) 
# d b g c h f e i a j 
# 1 4 2 7 3 8 6 5 9 NA NA 
# 2 4 NA 7 3 8 6 NA NA 1 10 
# 3 4 2 7 3 8 NA 5 9 1 10 

（注意 - 你可以用x[, order(colnames(x))]輸出數據幀）