将键值对转换为“衣衫褴褛”列表

Question

我正在寻找一种将键值对数据框转换为“衣衫褴褛”列表的通用方法。

key <- c("1","1","2") 
val <- c("101","102","101") 
x <- data.frame(key,val) 

所需的输出：

[[1]] 
[1] "101" "102" 

[[2]] 
[1] "101" 

Answer 1

我们可以使用split

setNames(split(as.character(x$val), x$key), NULL) 
#[[1]] 
#[1] "101" "102" 

#[[2]] 
#[1] "101" 

或用unstack

unstack(x, as.character(val)~key)