15

我有一个列表,其中元素名称是 ID 标签,并包含一个带有数值的向量。它们的长度不等(!)。

我想将其转换为一个数据框,其中一列中有 ID,另一列中有数值。例如:

$`1`  
[1] 1 2   
$`2`  
[1] 1 2 3 
$`3`  
[1] 1   

到:

ID   Obs  
1    1  
1    2
2    1
2    2
2    3
3    1
4

4 回答 4

20

这是一种方法:

## your list
ll <- list("1" = 1:2, "2" = 1:3, "3" = 1:2)
## convert to data.frame
dl <- data.frame(ID = rep(names(ll), sapply(ll, length)),
                 Obs = unlist(ll))

这给出了:

> dl
   ID Obs
11  1   1
12  1   2
21  2   1
22  2   2
23  2   3
31  3   1
32  3   2

调用中的第一行data.frame()只是一些重复names()列表所需次数的代码。第二行只是取消列出将其转换为向量的列表。

于 2012-09-28T12:07:42.953 回答
9

使用reshape2melt哪个有方法melt.list

.list <- list(`1` = 1:2, `2` = 1:3, `3` = 1:2)
library(reshape2)
melt(.list)
##   value L1
## 1     1  1
## 2     2  1
## 3     1  2
## 4     2  2
## 5     3  2
## 6     1  3
## 7     2  3
于 2012-09-28T11:56:12.860 回答
5

已经发布的解决方案的一个很好但仍然缺少的替代方案是stack-function:

df <- stack(ll)[2:1]

这使:

> df
  ind values
1   1      1
2   1      2
3   2      1
4   2      2
5   2      3
6   3      1
7   3      2

同样使用setNames,您可以获得所需的确切格式:

df <- setNames(stack(ll)[2:1], c('ID','Obs'))

这使:

> df
  ID Obs
1  1   1
2  1   2
3  2   1
4  2   2
5  2   3
6  3   1
7  3   2

使用数据:

ll <- list("1" = 1:2, "2" = 1:3, "3" = 1:2)
于 2018-01-16T11:31:41.163 回答
1

使用基函数的解决方案

List <- list('1'=c(1,2), '2'= c(1,2,3), '3'=1)
x <- unlist(List)  # as suggested by Gavin Simpson
data.frame(ID=substr(names(x),1,1), Obs=x)
   ID Obs
11  1   1
12  1   2
21  2   1
22  2   2
23  2   3
3   3   1

如果你想要rownames1,2,3,4,5,6 试试这个(使用setNames):

data.frame(ID=substr(names(x),1,1), Obs=setNames(x, NULL))
  ID Obs
1  1   1
2  1   2
3  2   1
4  2   2
5  2   3
6  3   1

该解决方案仅在所有名称的长度相同时才有效,否则会失败,使用 Gavin 的解决方案会更好。参见例如:

List2 <- list('week1'=c(1,2), 'week2'= c(1,2,3), 'week3'=1)
x <- unlist(List2)  
data.frame(ID=substr(names(x),1,nchar(names(x)[1])-1), Obs=setNames(x, NULL))

    ID   Obs
1 week1   1
2 week1   2
3 week2   1
4 week2   2
5 week2   3
6 week3   1
于 2012-09-28T12:02:22.527 回答