r - 随着时间的推移获得累积和

Question

我有每个赛季每个球员的进球数据:

playerID <- c(1,2,3,1,2,3,1,2,3,1,2,3)
year <- c(2002,2000,2000,2003,2001,2001,2000,2002,2002,2001,2003,2003)
goals <- c(25,21,27,31,39,34,42,44,46,59,55,53)
my_data <- data.frame(playerID, year, goals)

我想绘制每个玩家在一段时间内的累计进球数:

ggplot(my_data, aes(x=year, y=cumsum_goals, group=playerID)) + geom_line()

我已经尝试使用 dplyr 中的 summarize，但这只适用于数据已经按 year 排序的情况(参见播放器 1):

new_data <- my_data %>%
  group_by(playerID) %>%
  mutate(cumsum_goals=cumsum(goals))

有没有办法让这段代码对年份不按时间顺序排列的数据具有鲁棒性？

Answer 1

我们可以通过playerID和year排列，取cumsum然后绘制

library(dplyr)
library(ggplot2)

my_data %>%
  arrange(playerID, year) %>%
  group_by(playerID) %>%
  mutate(cumsum_goals=cumsum(goals)) %>%
  ggplot() + aes(x=year, y= cumsum_goals, color = factor(playerID)) + geom_line()