R：创建类似FIFO的快速股票交易列表

我有很多股票交易，股票的数量是由数量决定的。数量的累计总和不能为负（累计总和（数量）永远不会为负），因为我总是先买后卖。例如：

Quantity <- c(3,-1,-2,3,-1,2,-4)

---

数量我不明白。对于一个给定的向量式数量，你想要一个类似PurchaseSale的列表，它做什么？是否按顺序将每个元素应用于数量？那么在Trade2之后你有c（0,0,3，-1,2,4）？但是Trade3会变成c（-1,1,3，-1,2,4）？我不明白，抱歉不清楚。我想重新订购PurchaseSale的数量，其中PurchaseSale中的每个项目必须满足mapply（总和，PurchaseSale）==0。是的，我按顺序将每个元素应用于数量？交易后2的数量将是c（0,0,0,3，-1,2，-4），如果去掉0，交易后3的数量将是c（0,0,0,2,0,2，-4）或c（3，-1,2，-4）和c（2,2，-4）。
Trade1 <- c(1,-1)

Quantity <- c(2,-2,3,-1,2,-4)

PurchaseSale <- list(Trade1=c(1,-1), Trade2=c(2,-2), Trade3=c(1,-1), Trade4=c(2,2,-4))