R 基于多行将 tibble 转换为宽格式

发布于11月16日

以下是我的数据:

game_id     team      opponent    steals    assists
       <int> <chr>     <chr>           <chr>  <chr>  
 1 401468360 Spurs     Warriors        6      18     
 2 401468360 Warriors  Spurs           9      35     
 3 401468358 Clippers  Rockets         6      25     
 4 401468358 Rockets   Clippers        11     20     
 5 401468359 Hawks     Bucks           4      23     
 6 401468359 Bucks     Hawks           4      21     
 7 401468356 Thunder   Celtics         4      21     
 8 401468356 Celtics   Thunder         15     25     
 9 401468357 Suns      Heat            9      22     
10 401468357 Heat      Suns            6      3

如何以以下格式获取此数据？

game_id     team     opponent     team_steals   opp_assists   team_assists   opp_steals
       <int> <chr>     <chr>          <int>       <chr>         <chr>         <chr>
 1 401468360 Spurs     Warriors        6           9              18            35
 2 401468358 Clippers  Rockets         6           11             25            20
 3 401468359 Hawks     Bucks           4           4              23            21
 4 401468356 Thunder   Celtics         4           15             21            25
 9 401468357 Suns      Heat            9           6              22            23

我已经try 了pivot_wider的几个变种，但都没有效果.我甚至不确定该功能是否会实现我所寻求的目标.

推荐答案

大概是这样的:

library(dplyr)
library(tidyr)
df %>%
  group_by(game_id) %>% 
  rename(team_steals = steals) %>% 
  mutate(opp_steals = lead(team_steals)) %>% 
  rename(team_assists = assists) %>% 
  mutate(opp_assists = lead(team_assists)) %>% 
  drop_na()

    game_id team     opponent team_steals team_assists opp_steals opp_assists
      <int> <chr>    <chr>          <int>        <int>      <int>       <int>
1 401468360 Spurs    Warriors           6           18          9          35
2 401468358 Clippers Rockets            6           25         11          20
3 401468359 Hawks    Bucks              4           23          4          21
4 401468356 Thunder  Celtics            4           21         15          25
5 401468357 Suns     Heat               9           22          6           3