df%>%group_by(x) %>% mutate(ratio=y/sum(y))是对的，你好好验算

df%>%group_by(x) %>% mutate(ratio=y/sum(y))是对的，你好好验算

您好，我想达到的效果是红框内的比值加起来等于1，是第三列在各自分组中的比值。 而您的代码运行结果是总的比值加起来为1.

谢谢各位老师，二楼的好用！我重新安装了一遍dplyr包就好用了

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

谢谢

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