我不确定为什么我不能解决这个问题,但也许有人可以提供帮助。
我使用 for 循环完成了以下操作:
v <- c(500,498,457,400,376,300,210,157,64,10,2,2,2,1,1,1,1,1,1,1)
partsum <- 0
total <- sum(v)
percov <- numeric()
for (i in 1:length(v)){
partsum <- partsum + v[i]
percov[i] <- 100 * partsum/total
}
percov
但是,我正在处理大量数据,而且 for 循环非常慢。我觉得在 R 中肯定有另一种方法可以做到这一点,而且可能会更快。就像是:
percov <- 100 * partsum/sum(v)
其中每个元素索引处的 partsum 是 v 中大于或等于该元素的 v 值的所有元素的总和。但是我该怎么做呢?
最佳答案
我们可以将 cumsum
的累积和 ( vector
) 除以 sum
的 vector
并乘以 100
percovN <- 100*cumsum(v)/sum(v)
检查 OP 方法的输出
identical(percovN, percov)
#[1] TRUE
关于r - 计算向量所有元素的累积百分比,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/42153039/