Effectuer un étalement sur une trame de données imbriquée

Question

Je souhaite exécuter spread sur une trame de données imbriquée, mais je ne parviens pas à la résoudre. Voici une trame de données de jouet pour l'utilisation spread sur une trame de données normale:

df <- data.frame(A = 1:4, B = 5:8) 
df %>% spread(A,B) 

    1 2 3 4 
1 5 6 7 8 

Voici un exemple de jouet pour une trame de données imbriquées et ce que j'ai essayé (mais ne fonctionne pas):

df <- data.frame(dummy=c(1,1,2,2), A = 1:4, B = 5:8) 
df %>% 
    nest(-dummy) %>% 
    mutate(data = map(data, ~spread(.x$A,.x$B))) 

Error in mutate_impl(.data, dots) : 
    Evaluation error: Invalid column specification. 

Merci pour toute aide!

Answer 1

df <- data.frame(dummy=c(1,1,2,2), A = 1:4, B = 5:8) 
df %>% 
    nest(-dummy) %>% 
    mutate(data = map(data, ~spread(.x, key = A, value = B)))