Question

我正在尝试使用英超联赛球队的当前数据创建排名。我正在使用此处http://www.football-data.co.uk/englandm.php找到的当前季节数据。我试图使用for循环来做这个，但是，我是一个新手，并不知道我在做什么。

＆＃34; H＆＃34;代表主场胜利，＆＃34; A＆＃34;客场胜利，＆＃34; D＆＃34;画。如果有人能帮助我获得总体记录和积分榜，我将不胜感激。到目前为止，这是我的代码：

read.csv("http://www.football-data.co.uk/mmz4281/1516/E0.csv")

dfmess <- read.csv("http://www.football-data.co.uk/mmz4281/1516/E0.csv")

e.dates <- as.Date(c("8/8/2015", "9/8/2015","14/08/15", "15/08/15"
                     , "16/08/15", "17/08/15", "22/08/15", "23/08/15", "24/08/15", "29/08/15", "30/08/15", "12/09/2015"
                     , "13/09/15", "14/09/15", "19/09/15", "20/09/15", "26/09/15", "27/09/15", "28/09/15"), format = %m/%d/%y)

# formatting issue with the dates here. 


dfmess[dfmess$FTR == "H", c(3,7)] #list of all HomeTeam Wins
dfmess[dfmess$FTR == "A", c(4,7)] #list of all AwayTeam wins
dfmess[dfmess$FTR == "D", c(3:4,7)] #list of all Draws

x <-3

for (i in dfmess(dfmess[1:71, c(3:4,7)])){
  if dfmess[dfmess$FTR == "H", c(3,7)]
  x <- 1
  sum(x)
  print(dfmess[dmessf$HomeTeam == sum(x)])  #Trying to get standings, but lost. 
}else{
  same for "A"
}else{
  same for "D"
}

英超联赛积分榜，总记录

0 个答案: