R用基于百分比的总和替换条件行总和

如果这些行表示

library（tidyverse）#或使用forcats:：fct_lump（。。。
df%>%
突变（名称集总=fct集总（名称，w=百分比，prop=0.01））%>%
分组依据（名称汇总）%>%
汇总（跨（第1年：百分比，总和））
#一个tibble:3x6
名称汇总年份1年2年3总百分比
1乔治41 30 10 81 14.2
2保罗230 100 150 480 84.4
3其他3 2 8 1.41

谢谢！！我从没听说过fct_lump（），谢谢你介绍我！

library(tidyverse) # or use forcats::fct_lump(...
df %>% 
  mutate(name_lumped = fct_lump(name, w = Percent, prop = 0.01)) %>%
  group_by(name_lumped) %>%
  summarize(across(Year1:Percent, sum))

# A tibble: 3 x 6
  name_lumped Year1 Year2 Year3 Total Percent
  <fct>       <dbl> <dbl> <dbl> <dbl>   <dbl>
1 George         41    30    10    81   14.2 
2 Paul          230   100   150   480   84.4 
3 Other           3     3     2     8    1.41