我如何编写一个函数来计算特定日期后足球数据的表格？

问题描述

我关注了这篇文章：Football form table with R

其中显示了如何计算足球队的形式（即最近5场比赛）并获得输出作为联赛表格。

我想知道在特定日期之后如何计算5场比赛表格的排名表。

我尝试使用dplyr包中的lead（）来更改之前匹配的代码，但是我没有得到正确的输出：

    leagueAhead <- function(data,sackDate,nextNumberOfGames){
  
  teams <- sort(unique(data$HomeTeam))
  
  
  bFirst <- TRUE
  for (team in teams)
  {
    tempSubset <- subset(data,data$HomeTeam == team | data$AwayTeam == team)
    
    theDates <- sort(unique(tempSubset$Date))
    nextNDates <- lead(subset(theDates,theDates<=sackDate),n=nextNumberOfGames)
    
    
    tempSubset2 <- subset(tempSubset,tempSubset$Date %in% nextNDates)
    
    
    if (bFirst)
    {
      newData <- tempSubset2
      bFirst <- FALSE
    }
    else
    {
      newData <- rbind(tempSubset2,newData)
    }
      }
    
          newData<-unique(newData)
          return(newData)
        }

我们非常感谢您的帮助。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）