计算R中两个变量的组平均值

Question

我的数据框看起来像这样

Week student weight
    1   A   45
    2   A   45.2
    3   A   45.6
    4   A   45.9
    1   B   43.1
    2   B   43.1
    3   B   43.2
    3   B   43.4

我想添加另一列，即每位学生在整个星期内的平均体重

我尝试在group_by中使用dplyr函数，但这是我得到的

data.frame(df%>%group_by(student,Week)%>%summarise(mean.w=mean(weight)))
student Week mean.w
   A    1   45.0
   A    2   45.2
   A    3   45.6
   A    4   45.9
   B    1   43.1
   B    2   43.1
   B    3   43.3

这就是我的期望（每个学生的平均体重）

Week student weight mean.w
    1   A   45      45.425
    2   A   45.2    45.425
    3   A   45.6    45.425
    4   A   45.9    45.425
    1   B   43.1    43.2
    2   B   43.1    43.2
    3   B   43.2    43.2
    3   B   43.4    43.2

dplyr或任何其他软件包中是否有功能可以帮助我达到上述效果？