如何pack_row紧凑的桌子？

问：

我想只为“so3”类别打包行，同时排除输出表中的其他活动。我面临的问题是，pack_rows函数似乎包括所有活动，而不仅仅是“so3”类别，尽管 so3 分析表不包括所有活动。如果你能修复它，真的很感激。提前致谢！

library(dplyr)
library(kableExtra)

so3_analysis <- fsc %>%
  filter(!is.na(so3_category)) %>%
  group_by(activity_red, so3_category) %>%
  summarise(beneficiaries = sum(new_beneficiaries), .groups = "drop") %>%
  group_by(activity_red) %>%
  mutate(`%_of_ben` = round(beneficiaries / sum(beneficiaries) * 100, digits = 2)) %>%
  rename(so3_sub_category = so3_category, agriculture_activity = activity_red)   

kable(so3_analysis, caption = "Breakdown of agriculture activities by sub-category", 
      format.args = list(big.mark = ",")) %>%
  pack_rows(index = table(so3_analysis$agriculture_activity)) %>%
  kable_classic_2("striped")