在R中使用dplyr，我如何只保留那些包含变量的最长连续运行的行？

library(dplyr)

# 创建数据框
df <- data.frame(var = c(1, 2, 3, 4, 5, 1, 2, 3, 1, 2, 3, 4, 5))

# 使用group_by和mutate函数创建一个新的变量，表示每个连续运行的组
df <- df %>%
  mutate(group = cumsum(c(0, diff(var) != 1)))

# 使用group_by函数按照组进行分组，并计算每个组的行数
df <- df %>%
  group_by(group) %>%
  mutate(count = n())

# 找到最长连续运行的组
longest_group <- df %>%
  filter(count == max(count))

# 保留最长连续运行的行
result <- df %>%
  filter(group %in% longest_group$group)

# 移除辅助变量
result <- result %>%
  select(-group, -count)