关于使用dplyr的组内平均值

我有一个快速的问题。为什么这段代码给我们所有数据的平均值,而不是X内的平均值?

   df1 <- data.frame(X = rep(x = LETTERS[1:2], each = 3), Y = 1:6)
   df1<-df1%>%group_by(X)%>%mutate(meanY=mean(Y))