实现分组计算

with(df,tapply(y, x, sum))

Date  x         y ratio
  <fct> <fct> <dbl> <dbl>
1 May   A         4 0.444
2 June  A         2 0.222
3 July  A         3 0.333
4 May   B         4 0.4  
5 June  B         6 0.6  
6 May   C         4 0.364
7 June  C         2 0.182
8 July  C         3 0.273
9 Aug   C         2 0.182

GaussAnalytica 发表于 2020-1-15 13:35
with(df,tapply(y, x, sum))

谢谢

千车麦穗 发表于 2020-1-14 21:57
谢谢各位老师，二楼的好用！我重新安装了一遍dplyr包就好用了

df%>%group_by(x) %>% mutate(ratio=y/sum(y))是正确的，但是不太稳定，有时会出错，建议
df%>%ddply(.(x),mutate,ratio=y/sum(y)),稳定性更好