Средневзвешенная цена с поправкой на новые покупки и продажи в r

Я пытаюсь выяснить окончательное средневзвешенное значение после покупки и продажи моих акций.

Поэтому я ищу средневзвешенное значение, которое будет скорректировано покупками и продажами.

Это пример моих данных. У меня несколько акций, но я могу подать заявку на остальные, используя group_by.

ledger <-data.table(
  ID = c(rep("b",3), rep("x",2)),
  Prc = c(10,20,15, 35,40),
  Qty= c(300,-50,100, 50,-10),
  Op =c("Purchase", "Sale", "Purchase", "Purchase", "Sale")


)

ledger<-ledger %>%group_by(ID)%>%
  mutate(Stock = cumsum(Qty))
ledger<-as.data.table(ledger)
View(ledger)

Когда я искал свой ответ, я нашел этот код:

ledger[, Stock := cumsum(Qty)]  # compute Stock value
ledger[, `:=` ( id = .I, AvgPrice = NA_real_ ) ] # add id and AvgPrice columns
ledger[ 1, AvgPrice := Prc ] # compute AvgPrice for first row

# work with remaining rows and find the AvgPrice
ledger[ ledger[, .I[-1]], AvgPrice := {
  if( Op == "Sale" ){   
    ledger[ .I-1, AvgPrice ]
  } else {
    round( ( ( Qty * Prc ) + ledger[ .I-1, AvgPrice * Stock ] ) /
             ( Qty + ledger[ .I-1, Stock]) ,
           digits = 2 )
  }
}, by = id ]

ledger[, id := NULL ]  # remove id column

Это работает очень хорошо. Но мне нужно group_by мой ID. Так что это не будет делать среднее все вместе.

спасибо за ваш вклад!!