R代码的mutate_impl错误

Question

以下是我的数据的样子。我试图捕获每个产品的逐月增加或减少百分比，但是会出错。

Month, Product, Sales, diff
Jan, HP, 1000, 0
Feb, HP, 2000 , 1000
Mar, HP, 1300 , -700
April, HP, 5000 , 0
Jan, Samsung, 1200 , -3800
Feb, Samsung, 2500 , 1300
Mar, Samsung, 1100 , -1400
April, Samsung, 4500 , 3400

我正在尝试以下代码。

df <- df %>%
  group_by(Product) %>%
  mutate(PCT= diff/lag(Sales, 1))

以下是我得到的错误。

Error in mutate_impl(.data, dots)
  column 'PCT' must be length 36 (the group size) or one, not 1200

不确定我错过了什么。我们将不胜感激。

谢谢，