数据框的累积和[重复]

Question

我想创建一个多年来的累积总和，总是遍历行，并添加其他项目。

# TEST
data <- data.frame(
  `Delivery Year` = c('1976','1977','1978','1979'),
  `Year.1976` = c(10,3,8,0),
  `Year.1977` = c(5,0,5,0),
  `Year.1978` = c(10,10,0,0),
  `Year.1979` = c(13,0,0,14)
)

data


# DESIRED
data <- data.frame(
  `Delivery Year` = c('1976','1977','1978','1979'),
  `Year.1976` = c(10,3,8,0),
  `Year.1977` = c(15,3,13,0),
  `Year.1978` = c(25,13,13,0),
  `Year.1979` = c(38,13,13,14)
)

data

Answer 1

这行得通吗：

library(dplyr)
library(tidyr)

data %>% pivot_longer(-1) %>% group_by(Delivery.Year) %>% 
  mutate(value = cumsum(value)) %>% 
    pivot_wider(Delivery.Year, names_from = name, values_from = value)

# A tibble: 4 x 5
# Groups:   Delivery.Year [4]
  Delivery.Year Year.1976 Year.1977 Year.1978 Year.1979
  <chr>             <dbl>     <dbl>     <dbl>     <dbl>
1 1976                 10        15        25        38
2 1977                  3         3        13        13
3 1978                  8        13        13        13
4 1979                  0         0         0        14