提取库存信息

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)

但是，如果我想一次提取一家以上的公司。有办法吗？我计划的是，我将把所有公司都放在上面的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 )