Создание средневзвешенных и трехлетних средних значений на основе входных данных за год

Question

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

1. Средневзвешенное значение, чтобы составить средневзвешенное значение по статистике (2014 = .4, 2015 = .4 и 2016 = .2), умноженное на сгруппированный показатель (HR, R, RBI,SB)
2. Среднее значение за 3 года (та же идея, что и выше, но только прямое среднее значение за 3 года из трех наиболее текущих лет)

Я бы хотел, чтобы новые данные были определеныпод колонкой сезона.

Вот data.frame:

full_table_raw <- structure(list(playerID = c("abreujo02", "abreujo02", 
"abreujo02", "abreujo02", "abreujo02", "abreujo02", "abreujo02", 
"abreujo02", "abreujo02", "abreujo02", "abreujo02", "abreujo02", 
"arenano01", "arenano01", "arenano01", "arenano01", "arenano01", 
"arenano01", "arenano01", "arenano01", "arenano01", "arenano01", 
"arenano01", "arenano01", "blackch02", "blackch02", "blackch02", 
"blackch02", "blackch02", "blackch02", "blackch02", "blackch02", 
"blackch02", "blackch02", "blackch02", "blackch02"), season = c(2014L, 
2014L, 2014L, 2014L, 2015L, 2015L, 2015L, 2015L, 2016L, 2016L, 2016L, 
2016L, 2014L, 2014L, 2014L, 2014L, 2015L, 2015L, 2015L, 2015L, 
2016L, 2016L, 2016L, 2016L, 2014L, 2014L, 2014L, 2014L, 2015L, 
2015L, 2015L, 2015L, 2016L, 2016L, 2016L, 2016L), stat = c("HR", 
"R", "RBI", "SB", "HR", "R", "RBI", "SB", "HR", "R", "RBI", "SB", 
"HR", "R", "RBI", "SB", "HR", "R", "RBI", "SB", "HR", "R", "RBI", 
"SB", "HR", "R", "RBI", "SB", "HR", "R", "RBI", "SB", "HR", "R", 
"RBI", "SB"), points = c(3, 2, 3, 2, 2, 1, 2, 1, 1, 1, 2, 1, 
1, 1, 1, 1, 3, 3, 3, 2, 3, 3, 3, 2, 2, 3, 2, 3, 1, 2, 1, 3, 2, 
2, 1, 3), ranks = c(1, 2, 1, 2, 2, 3, 2, 3, 3, 3, 2, 3, 3, 3, 
3, 3, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 2, 1, 3, 2, 3, 1, 2, 2, 3, 
1), value = c(36, 80, 107, 3, 30, 88, 101, 0, 25, 67, 100, 0, 
18, 58, 61, 2, 42, 97, 130, 2, 41, 116, 133, 2, 19, 82, 72, 28, 
17, 93, 58, 43, 29, 111, 82, 17)), class = "data.frame", row.names = c(NA, 
-36L))

Answer 1

Вы можете сделать это следующим образом:

full_table_raw %>% 
  # add a new column with the weights to apply
  mutate(weight = ifelse(season == 2016, .2, .4)) %>%
  # group_by, and then compute your averages
  group_by(stat) %>% 
  summarize(
    average = sum(value) / 3,
    weighted_average = sum(value * weight))

Что дает

# A tibble: 4 x 3
  stat  weighted_average average
  <chr>            <dbl>   <dbl>
1 HR                83.8    85.7
2 R                258     264  
3 RBI              275     281  
4 SB                35.0    32.3

Если вместо вычисления сводки вы хотите добавить weighted_average и average в качестве столбцов дляваш начальный фрейм данных, вы можете просто заменить summarize на mutate

# A tibble: 36 x 9
# Groups:   stat [4]
   playerID  season stat  points ranks  value weight average weighted_average
   <chr>      <int> <chr>  <dbl> <dbl>  <dbl>  <dbl>   <dbl>            <dbl>
 1 abreujo02   2014 HR      3.00  1.00  36.0   0.400    85.7             83.8
 2 abreujo02   2014 R       2.00  2.00  80.0   0.400   264              258  
 3 abreujo02   2014 RBI     3.00  1.00 107     0.400   281              275  
 4 abreujo02   2014 SB      2.00  2.00   3.00  0.400    32.3             35.0
 5 abreujo02   2015 HR      2.00  2.00  30.0   0.400    85.7             83.8
 6 abreujo02   2015 R       1.00  3.00  88.0   0.400   264              258  
 7 abreujo02   2015 RBI     2.00  2.00 101     0.400   281              275  
...

Обратите внимание, что мы можем использовать финальный %>% select(-weight) для удаления столбца weight, который мы добавили