如何使無維度名稱矩陣從列表

Question

我有一個列表：

direc <- structure(list(no_trades = 3L, sell_trades = 19L, buy_trades = 18L), .Names = c("no_trades", "sell_trades", "buy_trades")) 
# $no_trades 
# [1] 3 
# 
# $sell_trades 
# [1] 19 
# 
# $buy_trades 
# [1] 18 

我要讓不從這個名單維度名稱的矩陣。這將是類似這樣的矩陣結構：

classified <- structure(c(9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13, 9, 6, 13), .Dim = c(3L, 15L)) 
#  [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] 
# [1,] 9 9 9 9 9 9 9 9 9  9  9  9  9  9  9 
# [2,] 6 6 6 6 6 6 6 6 6  6  6  6  6  6  6 
# [3,] 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 

我試圖從另一個SO question下面的代碼意味着數據幀，以矩陣的變換：

m2 <- `dimnames<-`(as.matrix(direc), NULL) 

但它再次給了我一個清單：

結構（列表（3L，19L，18L），.dim僞= C（3L，1L））

在此先感謝您的答案。

Answer 1

這裏的「直銷」是一個list和轉換到matrix與as.matrix不會直接發生，但我們可以把它與rbind/cbind改爲matrix。初始direc元素都是integer類。如果我們需要有numeric類，它需要轉換

m1 <- `dimnames<-`(do.call(cbind, lapply(direc, as.numeric)), NULL) 
dput(m1) 
#structure(c(3, 19, 18), .Dim = c(1L, 3L)) 

如果list元素具有不同的長度，它可以做cbind

`dimnames<-`(do.call(cbind, lapply(direc, `length<-`, max(lengths(direc)))), NULL) 

---

之前更好地墊NA要了解爲什麼as.matrix在此處不起作用，我們可以檢查methods的list

methods(class = "list") 
#[1] all.equal  as.data.frame as.data.table as_data_frame 
#[5] coerce  escape  melt   Ops   relist  
#[10] sotrunc  within  

它沒有as.matrix選項。