r - 在 r 中按组和在某些条件下的累积总和

Question

在具有相同m1and的组中n1，我需要计算x1 ifx1的累积和不为 0 和y1ify1的累积和不为 0。任何帮助将不胜感激。

 d <- data.frame () 
    for ( m1 in 2: 3) { 
         for (n1 in 2: 3){ 
              for (x1 in 0: m1) { 
                   for (y1 in 0: n1) {                                                                                                         

                  d<-rbind(d, c(m1, n1, x1,y1)) 
    }}}} 

所以对于m1=2, n1=2, 的累计和x1应为 9, 的和y1为 9, 对于 m1=2, n1=3, 的累计和x1应为 12, 的和y1为 18.

Answer 1

这是你想要的？（使用data.table）。而且我认为您想对所有元素求和，而不是累积求和并返回所有元素。

# after running your code, I had to rename it
names(d) <- c("m1", "n1", "x1", "y1")
require(data.table)
dt <- data.table(d)
setkey(dt, m1, n1)
out <- dt[, list(s.x1=sum(x1), x.y1=sum(y1)),by="m1,n1"]
> out
#    m1 n1 s.x1 x.y1
# 1:  2  2    9    9
# 2:  2  3   12   18
# 3:  3  2   18   12
# 4:  3  3   24   24