dplyr-分组并计算行之间的差异

Question

下面是我的例子。我想按col_1分组，并计算每组col_2行之间的差异。

library(dplyr)

my_df <- data.frame(col_1 = c('A', 'A', 'B', 'B'), col_2= c(1,8, 6,7))
my_df %>% group_by(col_1) %>% summarise(diff = col_2 -lag(col_2)

这是错误消息：

Error in summarise_impl(.data, dots) : 
  Column `diff` must be length 1 (a summary value), not 2

有人知道如何解决吗？