R: Преобразование data.frame в список с бирками из data.frame

Question

У меня есть следующий dataframe:

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 

Любая идея? Моя проблема - получить теги (имена) вместо индексов.

Answer 1

Вы можете использовать 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 

Answer 2

Попробуйте это:

split(setNames(as.list(df0$value),df0$N2),df0$N1)