data.frame列出R中

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"