如何找到80％的分配

Question

A有问题。 我有一个数据框byDays，它由两列组成：day和money。 日看起来像从0到100的顺序。而Money意味着我们的客户在这一天所花的金额。 我绘制了分布图，但无法链接它，没有足够的声誉。

我需要找一天（！）离开，这将是我分配的80％。

Answer 1

如果你想要达到总数的80％，这将给你答案：

set.seed(1)
day <- 1:100
profit <- runif(100, 0, 15)

##  Point at which 80% of the total is reached:
pct <- max(x[ cumsum(profit)/sum(profit) <= 0.8])

plot(day, cumsum(profit)/sum(profit))
abline(v=pct, col="red")