ggplot的cumsum错误

Question

我在R中有这个样本数据集：

我想要做的是创建一个支付金额的累计总额，按Rainforest.Segment因子分成不同的系列。我已经通过dateofpayment

订购了数据集

我拥有的是：ggplot(dataset, aes(x=dateofpayment, y=cumsum(PAYMENTAMOUNT), colour=Rainforest.Segment, group=Rainforest.Segment)) + geom_line()

我得到的是正确的情节，但累积的数字显然是不正确的（我知道每个细分的累积总和<$ 50,000）：

有人可以就可能出现的问题给我一些建议 - 以及如何纠正这个问题？

非常感谢！