如何计算R中每一行的每一列的周期总和

发布于05月08日

我想用R来计算每年每朵花的总和.下面是一个例子，展示了表格的外观(表1)和我想要的结果(表2).我知道如何以长表格式进行代码计算，但不确定如何以宽表格式进行计算.注意:我使用的是package:dplyr

(表1)

flower	1902	1950	2010	2012	2021
lily	23	0	0	8	5
rose	50	60	5	16	0
daisy	30	7	10	2	0

我需要计算每年每朵花的总数.最终结果应该给我:

(表2)

flower	1902	1950	2010	2012	2021
lily	23	23	23	31	36
rose	50	110	115	131	131
daisy	30	37	47	49	49

推荐答案

以下是获得预期结果的一种方法:

您的数据框:

dat <- structure(list(flower = c("lily", "rose", "daisy"), X1902 = c(23L, 
50L, 30L), X1950 = c(0L, 60L, 7L), X2010 = c(0L, 5L, 10L), X2012 = c(8L, 
16L, 2L), X2021 = c(5L, 0L, 0L)), class = "data.frame", row.names = c(NA, 
-3L))

应用计算累积和的函数，并应用于第2列至第6列的每一行数据:

dat[1:nrow(dat), 2:6] <- t(apply(dat[1:nrow(dat), 2:6], 1, function(x) cumsum(c(x))))

# The result
dat
  flower X1902 X1950 X2010 X2012 X2021
1   lily    23    23    23    31    36
2   rose    50   110   115   131   131
3  daisy    30    37    47    49    49

@benson23善意地建议使用以下更简单的代码来获得相同的结果:

dat[, 2:6] <- t(apply(dat[,2:6], 1, cumsum))

 flower X1902 X1950 X2010 X2012 X2021
1   lily    23    23    23    31    36
2   rose    50   110   115   131   131
3  daisy    30    37    47    49    49