R 对此错误一无所知：登录错误'；由'；论点

我有以下数据集：

 >k1[1:10,]
       id  web_name first_name second_name   position     date team1 team2 game_week points home_away team_scored team_conceded minutes goals assists
    1   1 Fabianski     Lukasz   Fabianski Goalkeeper 17/08/13   ARS   AVL         1      0         H           1             3       0     0       0
    2   1 Fabianski     Lukasz   Fabianski Goalkeeper 24/08/13   ARS   FUL         2      0         A           3             1       0     0       0
    3   1 Fabianski     Lukasz   Fabianski Goalkeeper 01/09/13   ARS   TOT         3      0         H           1             0       0     0       0
    4   1 Fabianski     Lukasz   Fabianski Goalkeeper 14/09/13   ARS   SUN         4      0         A           3             1       0     0       0
    5   1 Fabianski     Lukasz   Fabianski Goalkeeper 22/09/13   ARS   STK         5      0         H           3             1       0     0       0
    6   1 Fabianski     Lukasz   Fabianski Goalkeeper 28/09/13   ARS   SWA         6      0         A           2             1       0     0       0
    7   1 Fabianski     Lukasz   Fabianski Goalkeeper 06/10/13   ARS   WBA         7      0         A           1             1       0     0       0
    8   1 Fabianski     Lukasz   Fabianski Goalkeeper 19/10/13   ARS   NOR         8      0         H           4             1       0     0       0
    9   1 Fabianski     Lukasz   Fabianski Goalkeeper 26/10/13   ARS   CRY         9      0         A           2             0       0     0       0
    10  1 Fabianski     Lukasz   Fabianski Goalkeeper 02/11/13   ARS   LIV        10      0         H           2             0       0     0       0

当我运行代码时：

 > k2<- as.data.frame(k1 %>% group_by(id) %>%
 mutate(min1 = lag(minutes, default=NA)) %>%
 mutate(min3 = rollapply(min1,width=3,mean, align= "right", fill=NA)))

但是，通过此代码按team1分组效果很好：

> k2<- as.data.frame(k1 %>% group_by(team1) %>%
   mutate(min1 = lag(minutes, default=NA)) %>%
   mutate(min3 = rollapply(min1,width=3,mean, align= "right", fill=NA)))

>k2%组员（组员1）%>%
突变（min1=滞后（分钟，默认值=NA））%>%
变异（min3=rollapply（min1，宽度=3，平均值，align=“right”，fill=NA）））

---

为什么会发生这种事，我真是莫名其妙。非常感谢您的帮助。

可能有不同的原因，但如果您将空数据帧传递给rollapply函数，则可能会发生这种情况

也考虑使用动物（）作为

---

它可能有不同的原因，但如果将NULL数据帧传递给rollappy函数，则可能发生这种情况

也考虑使用动物（）作为

---

是否有任何原因导致第二次调用在

默认值

和

填充

参数中不同？在您的非工作尝试中，两者均为0；在您的非工作尝试中，

NA

second@erasmortg两者都是NA，我只是在尝试和错误，粘贴了错误的片段。已编辑。能否通过

头（dput（））

显示一些实际数据？我似乎无法重现你的问题。此外，我认为您不需要将调用包装为.data.frame（），它将删除组。没有理由不使用此数据集，因为您有一个“id”和一个“团队”（1和ARS）。但是，如果使用更大的数据集，那么只有一个原因是它与“team1”分组一起工作，而不是与“id”一起工作。可能有一个“id”（球员id）在一些队伍中少于3行。因此，宽度为3的roallapply会产生问题。我想没有一支队伍的排数少于3排，所以效果很好。希望我能帮上忙。是的，你说得对@AntoniosK，数据集实际上相当大。还有一些玩家（每个人都有一个唯一的id）排数少于3行。代码中的以下更改帮助了我：k2%group_by（id）%%>%mutate（min1=lag（minutes，default=NA））%%>%mutate（min3=rollappy（min1，width=3，mean，align=“right”，fill=NA，partial=TRUE）））第二次调用在

default

和

fill

参数中有什么不同的原因吗？在您的非工作尝试中，两者均为0；在您的非工作尝试中，

NA

second@erasmortg两者都是NA，我只是在尝试和错误，粘贴了错误的片段。已编辑。能否通过

头（dput（））

显示一些实际数据？我似乎无法重现你的问题。此外，我认为您不需要将调用包装为.data.frame（），它将删除组。没有理由不使用此数据集，因为您有一个“id”和一个“团队”（1和ARS）。但是，如果使用更大的数据集，那么只有一个原因是它与“team1”分组一起工作，而不是与“id”一起工作。可能有一个“id”（球员id）在一些队伍中少于3行。因此，宽度为3的roallapply会产生问题。我想没有一支队伍的排数少于3排，所以效果很好。希望我能帮上忙。是的，你说得对@AntoniosK，数据集实际上相当大。还有一些玩家（每个人都有一个唯一的id）排数少于3行。代码中的以下更改帮助了我：k2%group_by（id）%%>%mutate（min1=lag（minutes，default=NA））%%>%mutate（min3=rollply（min1，width=3，mean，align=“right”，fill=NA，partial=TRUE）））

> k2<- as.data.frame(k1 %>% group_by(team1) %>%
   mutate(min1 = lag(minutes, default=NA)) %>%
   mutate(min3 = rollapply(min1,width=3,mean, align= "right", fill=NA)))

rollapply(Zoo(min1),width=3,mean, align= "right", fill=NA)