R中的For循环从URL导入多个CSV答案

【问题标题】：For Loop in R import multiple CSV from URLR中的For循环从URL导入多个CSV
【发布时间】：2018-12-14 09:57:20
【问题描述】：

我正在导入 500 个具有以下类似格式的 csv：

“https://www.quandl.com/api/v3/datasets/WIKI/stockname/data.csv?column_index=11&transform=rdiff&api_key=keyname”

其中 stockname 是单个股票的股票代码。我将股票代码列表保存在名为 stocklist 的数据框中。

我想使用 lapply 来遍历我的股票列表。到目前为止，这是我所拥有的：

lst <- lapply(stocklist, function(i){
  url <- paste0("https://www.quandl.com/api/v3/datasets/WIKI/",i,"/data.csv?column_index=11&transform=rdiff&api_key=XXXXXXXXXXXXXXX")
  spdata <- read.csv(url, stringsAsFactors = FALSE)

})

我收到以下错误：

Error in file(file, "rt") : invalid 'description' argument

什么可能导致此错误？我也尝试使用 for 循环，但没有成功，有人告诉我 lapply 是 R 中用于此类任务的更好方法。

编辑：

库存清单结构：

> dput(droplevels(head(stocklist)))
structure(list(`Ticker symbol` = c("MMM", "ABT", "ABBV", "ABMD", 
"ACN", "ATVI")), .Names = "Ticker symbol", row.names = c(NA, 
6L), class = "data.frame")

第二次编辑（解决方案）：

stockdata<-lapply(paste0("https://www.quandl.com/api/v3/datasets/WIKI/",stocklist[1][[1]],"/data.csv?column_index=11&transform=rdiff&api_key=XXXXXXX"),read.csv,stringsAsFactors=FALSE)

为股票数据添加名称：

names(stockdata)<-stocklist[1][[1]]

【问题讨论】：

请注意，keyname 是 API 密钥的占位符
如果没有我自己的 API 密钥，很难知道发生了什么。您是否尝试过直接使用quandl 包？
我确实尝试了 quandl 包，但遇到了错误。这似乎是防火墙问题。
您能发布该 URL 的呈现方式吗？如果你访问它，它会提示你下载或在浏览器中查看吗？
lapply(paste0(....,stocklist,....),read.csv,stringAsFactors=F) 因为粘贴是矢量化的

标签： r loops import lapply stockquotes

【解决方案1】：

我相信你的 'i' 变量是一个向量。

确保您正确地为其下标，并且一次只传递一只股票。

这个：i 看起来像这样：i[x]

【讨论】：

好点。 OP 说“一个名为 stocklist 的数据框”。所以lapply(stocklist, ...) 表示i 是数据框的一列。 OP 可能希望 lapply 在单个列上，而不是跨列。
没错。 Stocklist 是一列股票代码，带有一个标题。
虽然这不是我使用的显式解决方案，但它突出了下标和调用正确元素的基本问题。

【解决方案2】：

我不知道我是什么，但我猜它是一个数字。你可以试试这个，看看它是否适合你？我认为它非常接近。只需确保 URL 与您从中获取数据的实际 URL 的模式相匹配。我试图找到它；没找到。

seq <- c(1:10)

for (value in seq) {

mydownload <- function (start_date, end_date) {
  start_date <- as.Date(start_date)  ## convert to Date object
  end_date <- as.Date(end_date)  ## convert to Date object
  dates <- as.Date("1970/01/01") + (start_date : end_date)  ## date sequence
  ## a loop to download data
  for (i in 1:length(dates)) {
    string_date <- as.character(dates[i])
    myfile <- paste0("C:/Users/Excel/Desktop/", string_date, ".csv")
    string_date <- gsub("-", "-", string_date)  ## replace "-" with "/"
    myurl <- paste("https://www.quandl.com/api/v3/datasets/WIKI/", i, "/data.csv?column_index=11&transform=rdiff&api_key=xxxxxxxxxx", sep = "")
    download.file(url = myurl, destfile = myfile, quiet = TRUE)
    }
  }

}

【讨论】：