如果另一列中的值符合条件，则求和列[R]

我目前正试图找到一种方法，将每月（M1、M2等）的数据框（余额）中的一列相加，但没有结果——如果每月的金额高于某个值（例如小于1）

我尝试了循环和拉普利公式，但得到了各种错误，如下所示。不幸的是，我无法手动执行此操作，因为df太大

这是我迄今为止尝试过的事情，也是一个例子：

df["<=1M",] <- for (i in 1:ncol(df)){for (j in 1:nrow(df)){sum(df$Balance[which(df[i,j]<=1)]}}

df["<=1M",] <- lapply(df, function(i) sum(df$Balance[cumulative[i,1:ncol(df)] <= 1]))

M1  M2  M3  M4  M5  Balance
0   0   0   1   2   100
1   2   2   3   3   200
0   0   0   0   0   200
1   1   1   1   1   200
1   2   3   4   5   250

df[“我们可以试试

as.vector(sapply(df[1:5], function(x) sum(df$Balance[x <=1])))
#[1] 950 500 500 500 400

那么，您给出的示例的输出是什么？抱歉。这是示例的输出：
colSums(df$Balance*(df[1:5] <=1))
# M1  M2  M3  M4  M5 
#950 500 500 500 400