R 如何计算列总数的80%？得到代表这80%的所有行

所以我有一个data.frame，我只想得到代表一列总数80%的行

这是my data.frame的一个示例：

我试过分位数，但这并没有给我预期的结果

x <- 1
total <- 0
while (total <= sum(reference$CA) * 80 / 100) {
  total <- total + as.double(reference[x, "CA"])
  x = x + 1
}
reference_80 <- reference[(1:x - 1),]

x试试这个：

reference[cumsum(reference$CA) < sum(reference$CA) * .8,]

reference[cumsum（reference$CA）
您能分享一个最小的可复制示例吗？您的意思是我的data.frame是什么样子的？是的，请参阅