我有一个鸟类gps修复程序（约4800万行）的数据框，我为其分配了每个修复程序相交的网格单元的ID。除其他属性外，我还为每个修复程序提供了时间戳。我需要计算每个网格单元的模态周，以突出显示何时在特定区域记录了最多的修复程序。
问题：
没有人知道为什么模态函数无法通过组操作作为汇总的一部分完成吗？它以前可以工作，但现在似乎卡住了，没有错误，但是从未完成。
Modal_Week <- df >%> group_by (ID) >%> summarise(num_ind = length(unique(individual_id)), modal_week = modal(df$week, na.rm = true))
Modal（df $ week）似乎可以正常运行，但是计算出现在特定功能中的模态周似乎被卡住了。有人知道为什么会这样，我的选择是什么？
谢谢。
Modal_Week <- df %>%
group_by (ID) %>% summarise(num_ind = length(unique(individual_id)),
modal_week = modal(week, na.rm = true))