Jak obliczyć sumę bieżącą za pomocą dplyr


Do obliczenia sumy bieżącej kolumny w R przy użyciu pakietu dplyr można użyć następujących metod:

Metoda 1: Oblicz skumulowaną sumę kolumny

 df %>% mutate(cum_sum = cumsum(var1))

Metoda 2: obliczyć skumulowaną sumę na grupę

 df %>% group_by(var1) %>% mutate(cum_sum = cumsum(var2))

Poniższe przykłady pokazują, jak zastosować każdą metodę w praktyce.

Przykład 1: Oblicz sumę skumulowaną za pomocą dplyr

Załóżmy, że mamy następującą ramkę danych w R:

 #create dataset
df <- data. frame (day=c(1, 2, 3, 4, 5, 6, 7, 8),
                 sales=c(7, 12, 10, 9, 9, 11, 18, 23))

#view dataset
df

  day sales
1 1 7
2 2 12
3 3 10
4 4 9
5 5 9
6 6 11
7 7 18
8 8 23

Za pomocą poniższego kodu możemy utworzyć nową kolumnę zawierającą skumulowaną sumę wartości w kolumnie „sprzedaż”:

 library (dplyr)

#calculate cumulative sum of sales
df %>% mutate(cum_sales = cumsum(sales))

  day sales cum_sales
1 1 7 7
2 2 12 19
3 3 10 29
4 4 9 38
5 5 9 47
6 6 11 58
7 7 18 76
8 8 23 99

Przykład 2: Oblicz skumulowaną sumę na grupę za pomocą dplyr

Załóżmy, że mamy następującą ramkę danych w R:

 #create dataset
df <- data. frame (store=c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'B'),
                 day=c(1, 2, 3, 4, 1, 2, 3, 4),
                 sales=c(7, 12, 10, 9, 9, 11, 18, 23))

#view dataset
df

  store day sales
1 To 1 7
2 to 2 12
3 to 3 10
4 to 4 9
5 B 1 9
6 B 2 11
7 B 3 18
8 B 4 23

Za pomocą poniższego kodu możemy utworzyć nową kolumnę zawierającą skumulowaną sumę wartości w kolumnie „sprzedaż” pogrupowanych według kolumny „sklep”:

 library (dplyr)

#calculate cumulative sum of sales by store
df %>% group_by(store) %>% mutate(cum_sales = cumsum(sales))

# A tibble: 8 x 4
# Groups: store[2]
  store day sales cum_sales   
1 To 1 7 7
2 A 2 12 19
3 To 3 10 29
4 A 4 9 38
5 B 1 9 9
6 B 2 11 20
7 B 3 18 38
8 B 4 23 61

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe obliczenia w R:

Jak obliczyć sumę według grupy w R
Jak obliczyć średnią na grupę w R

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *