我有以下数据框：
df0 <- data.frame(N1 = c("A","B")
, N2 =c("C","C")
, value =c(10,10)
)
> df0
N1 N2 value
1 A C 10
2 B C 10
我想转换为具有以下结构的列表：
list0 <- list( A= list( C= 10 )
, B= list( C= 10 )
)
> list0
$A
$A$C
[1] 10
$B
$B$C
[1] 10
> str(list0)
List of 2
$ A:List of 1
..$ C: num 10
$ B:List of 1
..$ C: num 10
任何的想法？我的问题是获取标签（名称）而不是索引。
您可以使用apply功能：
list0 <- setNames(apply(df0, 1, function(row) {
a <- list()
a[[row[2]]] <- as.numeric(row[3])
return (a)
}), df0$N1)
list0
$A
$A$C
[1] 10
$B
$B$C
[1] 10
str(list0)
List of 2
$ A:List of 1
..$ C: num 10
$ B:List of 1
..$ C: num 10
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句