将列表矩阵转换为 data.frame

Question

我有这个tbl具有以下形式的结构：

> tbl

     a_1   a_2  a_3
 [1,] "L"  "14" "L"
 [2,] "L"  "62" "D"
 [3,] "H"  "0"  "L"

这是一个矩阵，实际上：

> class(tbl)
[1] "matrix"

但是当我尝试将其更改为 a 时data.frame，df 的所有条目仅显示数据类型，如下所示：

>as.data.frame(tbl, nrow = length(tbl[,1]), ncol = 3, byrow = TRUE)

a_1           a_2         a_3
<list>       <list>      <list>
<chr[1]>    <chr[1]>    <chr[1]>
<chr[1]>    <chr[1]>    <chr[1]>
<chr[1]>    <chr[1]>    <chr[1]>

我尝试了多种选择，但似乎都不起作用，包括：

data.frame(rows=rownames(tbl)[row(tbl)],vars=colnames(tbl)[col(tbl)], values=c(tbl))

但是当我尝试使用它时收到一个错误。我希望结果data.frame采用以下形式：

a_1           a_2         a_3
<char>       <chr>      <char>
"L"           "14"        "L"
"L"           "62"        "D"
"H"           "0"         "L"

我寻找了类似的问题，但找不到任何有同样问题的人。任何建议都会有很大帮助！

---

dput(tbl)

structure(list("L", "L", "H", "14", "62", "0", "L", "D", "L"), .Dim = c(3L, 3L), .Dimnames = list(NULL, c("a_1", "a_2", "a_3")))


str(tbl)

List of 9
 $ : chr "L"
 $ : chr "L"
 $ : chr "H"
 $ : chr "14"
 $ : chr "62"
 $ : chr "0"
 $ : chr "L"
 $ : chr "D"
 $ : chr "L"
 - attr(*, "dim")= int [1:2] 3 3
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:3] "a_1" "a_2" "a_3" 

Answer 1

试试这个单线：

as.data.frame(apply(tbl, 2, unlist))

或这个：

tbl2 <- unlist(tbl)
attributes(tbl2) <- attributes(tbl)
DF <- as.data.frame(tbl2)