有没有办法定位和删除R中分组ID的奇数行？

library(dplyr)

# 创建一个示例数据框
df <- data.frame(ID = rep(1:3, each = 4),
                 Value = 1:12)

# 使用group_by函数按ID分组
df_grouped <- df %>% group_by(ID)

# 使用filter函数筛选出奇数行
df_filtered <- df_grouped %>% filter(row_number() %% 2 == 1)

# 查看结果
df_filtered

# 创建一个示例数据框
df <- data.frame(ID = rep(1:3, each = 4),
                 Value = 1:12)

# 使用split函数按ID分组
df_grouped <- split(df, df$ID)

# 删除奇数行
df_filtered <- lapply(df_grouped, function(x) x[seq(1, nrow(x), 2), ])

# 合并结果
df_result <- do.call(rbind, df_filtered)

# 查看结果
df_result