R 计算向量的所有元素的累积百分比

我不知道为什么我不能把我的头围绕在这件事上，但也许有人可以帮助我。 我使用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

---

v我们可以将
向量
的累积和（
cumsum
）除以
向量
的
和
，然后乘以100

percovN <- 100*cumsum(v)/sum(v)

percovN <- 100*cumsum(v)/sum(v)

identical(percovN, percov)
#[1] TRUE