Question

我有这样的数据：

ID   = c(rep("ID1",3), rep("ID2",2), "ID3", rep("ID4",2))
item = c("a","b","c","a","c","a","b","a")

df = data.frame(ID,item)

ID1 a
ID1 b
ID1 c
ID2 a
ID2 c
ID3 a
ID4 b
ID4 a

我需要将它作为这样的列表转换为“交易”：

[[1]]
[1] "a" "b" "c"
[[2]]
[1] "a" "c"
[[3]]
[1] "a"
[[4]]
[1] "b" "a"

我试过了：

lapply(split(item, ID), function(x) as.list(x))

但是这些项目仍然是单独的“行”而不是一个接一个。

有关如何完成上述格式的任何想法？

Answer 1

使用unstack：

df <- data.frame(ID,item)
unstack(df, item~ID)
# $ID1
# [1] "a" "b" "c"
# 
# $ID2
# [1] "a" "c"
# 
# $ID3
# [1] "a"
# 
# $ID4
# [1] "b" "a"

Answer 2

根据预期输出，您无需使用as.list

setNames(split(as.character(df1$item),df1$ID) , NULL)
#[[1]]
#[1] "a" "b" "c"

#[[2]]
#[1] "a" "c"

#[[3]]
#[1] "a"

#[[4]]
#[1] "b" "a"

Answer 3

使用您的方法并使其正常工作：

> lapply(split(df, df$ID), function(u) u$item)
#$ID1
#[1] "a" "b" "c"

#$ID2
#[1] "a" "c"

#$ID3
#[1] "a"

#$ID4
#[1] "b" "a"

要在R中列出的data.frame

3 个答案: