在dplyr分组的数据帧中使用apply失败

Question

我正在尝试使用dplyr将函数应用于分组数据框。然后，应将此函数的矢量输出分配给分组数据帧中的新变量。

require(dplyr)
data = data.frame(Var1='a',Var2=rep(1,5))
data  %.% 
  group_by(Var1) %.% 
  mutate(Var3 = sapply(seq(1,length(Var2)), function(x) x))

我无法理解为什么这个dplyr代码失败并显示消息：

“mutate_impl（.data，named_dots（...），environment（））中的错误：   尝试使用零长度变量名“