r - 在嵌套数据框上执行传播

Question

我想spread在嵌套数据框上执行，但无法解决。这是一个用于普通数据框的玩具数据spread框：

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

  1 2 3 4
1 5 6 7 8

这是嵌套数据框的玩具示例以及我尝试过的（但不起作用）：

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.

谢谢你的帮助！

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)))