列出分组依据并汇总

Question

AIM：：我想编写以下代码，该代码在数据框上工作正常，但对于列表列工作流的每个数据框而言都可以正常工作。

请注意，由于我还没有弄清楚如何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步骤之后，我们可以使用list遍历mutate中的“数据” map，然后进行group_by和{{1 }}

summarise