我有一个列表,其中元素名称是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
以下是一种方法:
## 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()
所需的次数。第二行将列表展开为向量。
使用reshape2
和melt
,其中包含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
stack
函数: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)
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
rownames
为1,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
x <- unlist(List)
,不是吗? - Gavin Simpson
lengths
来避免使用rep(sapply())
。 - sebastian-clengths()
在2012年是语言的一部分,但现在会更好。 - Gavin Simpson