Помощь, необходимая для добавления к существующему объекту Frame Data Data

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]]))