r - 为什么我的 R 循环返回越界错误?
问题描述
我正在尝试编写一个从 discogs api 中提取数据的循环函数。我开始编写一个函数'a'并且它有效:
releases <- list()
artists <- list()
artistURL <- "https://api.discogs.com/artists/"
a <- function(artistcode){
for(i in 0:3){
artistset <- fromJSON(paste0(artistURL, artistcode, "/releases?page=", i))
message("Retrieving page ", i)
releases[[i+1]] <- (as.data.frame(artistset$releases.main_release))
artists[[i+1]] <- (as.data.frame(artistset$releases.artist ))
}
return(artistset)
message("Total rows=", dim(artistset[[2]])[1] )
}
x <- a(135872)
接下来,我现在想将此函数添加到一个循环中,以获取包含在数据框中的一组艺术家的数据,如下所示:
artistdf <- structure(list(
name = c("Hank Mobley", "Benny Green", "Oscar Peterson", "Art Tatum"),
artistcode = c(135872,96442, 254394, 265634)
), .Names = c("name", "artistcode"), row.names = c(NA,-5L), class = c("tbl_df", "tbl", "data.frame"))
for (j in 0:nrow(artistdf)){
a(artistdf[[j+1, 2]])
}
这是我得到“越界”错误的地方。我使用了一些调试建议,但无济于事。任何人都可以提供解决方案吗?
解决方案
似乎有两个问题。
首先,在您创建artistdf tibble 的地方,您传递“row.names = c(NA,-5L)”,它创建了一个包含5 行的对象,尽管您只有4 行数据。将其更改为 c(NA, -4L)。
其次,从 0 开始最终的 for 循环会产生问题。我不知道为什么会这样,但将其更改如下:
jazzdata <- list()
for (j in 1:nrow(artistdf)){
jazzdata[[j]] <- a(artistdf[[j, 2]])
}
jazzdata[2] # data are here
通过这两项更改,我能够让您的代码正常工作。
推荐阅读
- javascript - 在节点属性中看不到 getElementById 函数(Web Inspector Safari)
- bash - 带有变量的bash中的浮点数学
- css - 将几个 div 与其他几个 div 对齐
- flutter - 有没有办法将 shared_preferences 与 country_list_pick (颤振)一起使用?
- python - 四点之间的图像变形
- ios - iOS 15 中表格视图标题上方的额外填充
- node.js - 向 mongo 查询返回后未保存的对象添加新键/值
- javascript - 了解字符串中是否包含“*”?
- c# - C ++中的定期计时器间隔
- c++ - 如何在基于范围的 for 循环中找出此地图的类型?