对嵌套数据框执行传播

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

对嵌套数据框执行传播

Perform spread on nested data frame

dictionary

r

spread

purrr