r - 使用循环在 R 中创建多个数据框

Question

我有这个函数从 NBA 统计网站返回一个 JSON 数据的数据框。该函数接收某场比赛的比赛ID，并返回该比赛的半场得分数据帧。

getstats<- function(game=x){
  for(i in game){
    url<- paste("http://stats.nba.com/stats/boxscoretraditionalv2?EndPeriod=10&
                EndRange=14400&GameID=",i,"&RangeType=2&Season=2015-16&SeasonType=
                Regular+Season&StartPeriod=1&StartRange=0000",sep = "")
    json_data<- fromJSON(paste(readLines(url), collapse=""))
    df<- data.frame(json_data$resultSets[1, "rowSet"])
    names(df)<-unlist(json_data$resultSets[1,"headers"])
  }
  return(df)
}

所以我想用这个函数做的是获取多个游戏 ID 的向量，并为每个 ID 创建一个单独的数据框。例如:

gameids<- as.character(c(0021500580:0021500593))

我想采用向量“gameids”，并创建十四个数据框。如果有人知道我将如何做这件事，将不胜感激!谢谢!

Answer 1

您可以通过如下设置函数将 data.frames 保存到列表中:

getstats<- function(games){

  listofdfs <- list() #Create a list in which you intend to save your df's.

  for(i in 1:length(games)){ #Loop through the numbers of ID's instead of the ID's

    #You are going to use games[i] instead of i to get the ID
    url<- paste("http://stats.nba.com/stats/boxscoretraditionalv2?EndPeriod=10&
                EndRange=14400&GameID=",games[i],"&RangeType=2&Season=2015-16&SeasonType=
                Regular+Season&StartPeriod=1&StartRange=0000",sep = "")
    json_data<- fromJSON(paste(readLines(url), collapse=""))
    df<- data.frame(json_data$resultSets[1, "rowSet"])
    names(df)<-unlist(json_data$resultSets[1,"headers"])
    listofdfs[[i]] <- df # save your dataframes into the list
  }

  return(listofdfs) #Return the list of dataframes.
}

gameids<- as.character(c(0021500580:0021500593))
getstats(games = gameids)

请注意，我无法对此进行测试，因为 URL 似乎无法正常工作。我收到以下连接错误:

Error in file(con, "r") : cannot open the connection