列出列分组并总结

Question

目标：我想编写以下代码，它可以在数据帧上正常工作，但对于列表列工作流程的每个数据帧。

请注意，我采用列表的第一个元素并创建了一个数据框，然后使用该数据框，因为我还没有弄清楚如何group_by 嵌套列表（请参阅已尝试）。

DATA

当前工作：

nested_NBA <- NBA%>%
  group_by(season)%>%
  nest()
 
one_season <- nested_NBA$data[1]

one_season%>% 
  bind_rows()%>%
  group_by(player)%>%
  summarise(shots_attempts_ratio=sum(shot_made)/n(),
            total_attempts=n(),
            shots=sum(shot_made))

已经尝试过：

nested_NBA%>% map(data, ~group_by(.x$player))

错误：

Warning messages:
1: In .f(.x[[i]], ...) : data set ‘.x[[i]]’ not found
2: In .f(.x[[i]], ...) : data set ‘~group_by(.x$player)’ not found
3: In .f(.x[[i]], ...) : data set ‘.x[[i]]’ not found
4: In .f(.x[[i]], ...) : data set ‘~group_by(.x$player)’ not found

Answer 1

在nest 步骤之后，我们可以使用map 在mutate 中循环“数据”list，然后使用它执行group_by 和summarise

library(tidyverse)
NBA%>%
  group_by(season)%>%
  nest() %>%
  mutate(data = map(data, ~ .x %>%
        group_by(player)%>%
        summarise(shots_attempts_ratio=sum(shot_made)/n(),
        total_attempts=n(),
        shots=sum(shot_made))
        )) %>%
 unnest