Я пытаюсь отследить товарно-материальные запасы и потери в R
Вот пример результата, который я хотел бы получить: 
Для каждого продуктаЯ хотел бы отслеживать потери и запасы на ежемесячной основе.
Например, если количество в месяце N больше, чем базовое количество, то я бы добавил к общему значению «инвентарь».Если Количество в месяце N ниже, чем базовое количество.Я бы вычел эту разницу из значения «Инвентаризация», если оно больше нуля.Любое значение сверх суммы инвентаря будет добавлено к значению «Убыток».Если значение «Inventory» равно нулю, я бы просто добавил разницу к значению «Loss».
Приведенный выше график является примером, в моем наборе данных много разных продуктов разной длины в месяце.
Редактировать: вот dput:
structure(list(Product = c("A", "A", "A", "A", "A", "B", "B",
"B", "B", "B", "B"), Month = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5,
6), BaseQuantity = c(100, 100, 100, 100, 100, 110, 110, 110,
110, 110, 110), Quantity = c(100, 80, 120, 90, 150, 30, 40, 50,
180, 60, 70), Loss = c(0, 20, 20, 20, 20, 80, 150, 210, 210,
210, 220), Inventory = c(0, 0, 20, 10, 60, 0, 0, 0, 80, 30, 0
)), .Names = c("Product", "Month", "BaseQuantity", "Quantity",
"Loss", "Inventory"), row.names = c(NA, -11L), class = c("tbl_df",
"tbl", "data.frame"))
Спасибо