суммирование переменной по группе и добавление ее в качестве новой переменной во фрейм данных

Question

Прямо сейчас у меня есть кадр данных из игрового дня (под названием games_day), который выглядит следующим образом

игровой день

Я хотел бы создать новый переменная во фрейме данных, суммирующая общее количество очков за и против каждой команды, так что это будет выглядеть так:

день игры

до сих пор я использовал этот код в dplyr games_day %>% group_by(team_id) %>% summarize(total_points_for = sum(points_for))

это не добавляет его во фрейм данных как новую переменную. Любая помощь с этим будет принята с благодарностью

Answer 1

Базовый вариант R с использованием transform + ave

transform(df,
  total_points_for = ave(points_for, team_id, FUN = sum),
  total_points_against = ave(points_against, team_id, FUN = sum)
)

Answer 2

Попробуйте следующее:

library(tidyverse)
#Data
df <- structure(list(team_id = c("Red", "Blue", "Yellow", "Red", "Blue", 
"Yellow"), date = c("18/01/20", "18/01/20", "19/01/20", "19/01/20", 
"20/01/20", "20/01/20"), points_for = c(16L, 12L, 10L, 9L, 17L, 
13L), points_against = c(12L, 16L, 9L, 10L, 13L, 17L)), class = "data.frame", row.names = c(NA, 
-6L))

#Code
df %>% group_by(team_id) %>% mutate(total_points_for=sum(points_for,na.rm=T),
                                    total_points_against=sum(points_against,na.rm=T))

# A tibble: 6 x 6
# Groups:   team_id [3]
  team_id date     points_for points_against total_points_for total_points_against
  <chr>   <chr>         <int>          <int>            <int>                <int>
1 Red     18/01/20         16             12               25                   22
2 Blue    18/01/20         12             16               29                   29
3 Yellow  19/01/20         10              9               23                   26
4 Red     19/01/20          9             10               25                   22
5 Blue    20/01/20         17             13               29                   29
6 Yellow  20/01/20         13             17               23                   26