这就是 ave 函数的用途.

This is what the ave function is for.

df1$Y.New <- ave(df1$Y, df1$X)