Извлечение информации о запасах

Question

доброе утро. Я пытаюсь извлечь данные об акциях для нескольких компаний. Я использовал приведенный ниже код для компании под названием Godrej.

library(quantmod)
require(quantmod)
df1 <- as.data.frame(getSymbols("GODREJIND.NS", src = "yahoo", from = "2018-01-01", to = Sys.Date(),verbose = F, auto.assign = T))
allstocks <- fortify.zoo(GODREJIND.NS)

Но если я хочу извлечь для более чем 1 компании одновременно,Есть ли способ сделать это? Я планировал поместить все компании в файл Excel, как указано выше, и затем назвать его

Может ли кто-нибудь помочь мне в извлечении акций всех компаний одновременно

Answer 1

Вы можете попробовать использовать tidyquant для этого и передать вектор символов в функцию tq_get.

symbols <- c("GODREJIND.NS", "ASHOKLEY.NS")
sd <- as.Date("2019-10-25")
ed <- as.Date("2019-10-31")


tq_get(symbols, 
       from = sd, 
       to = ed )