Question

我正在努力撤回ASX200公司名单的所有历史价格信息。我遇到的问题是我使用的R数据帧不断被覆盖（而不是附加到）。所以我的最终数据帧只包含上一个ASX200自动收录器的数据。请参阅下面的尝试：

library(XML)

url <- "http://www.asx200list.com"
getASX200 <- readHTMLTable(url, which=1, header = TRUE)
codes <- getASX200$Code
codes <- lapply(codes, as.character)

for (i in 1:200) {
  URL2 <- paste("http://ichart.finance.yahoo.com/table.csv?s=", codes[i], ".AX", sep = "")
  dat <- read.csv(URL2)
  dat$Date <- as.Date(dat$Date, "%Y-%m-%d")
  dat$Code <- codes[i]
}

Answer 1

收集清单有点棘手。这是一个例子：

library(XML)

url <- "http://www.asx200list.com"
getASX200 <- readHTMLTable(url, which=1, header = TRUE)
codes <- getASX200$Code
codes <- lapply(codes, as.character)


datList <- list()

for (i in 1:200) {
  URL2 <- paste("http://ichart.finance.yahoo.com/table.csv?s=", codes[i], ".AX", sep = "")
  dat <- read.csv(URL2)
  dat$Date <- as.Date(dat$Date, "%Y-%m-%d")
  dat$Code <- codes[i]

  datList <- c(datList, list(dat))
}

print(head(datList[[1]]))

需要协助附加到现有R数据框对象

1 个答案: