提取股票信息答案

【问题标题】：Extracting stocks information提取股票信息
【发布时间】：2019-11-01 03:45:26
【问题描述】：

早上好。我正在尝试提取几家公司的股票数据。我使用下面的代码为一家名为 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 文件中，然后调用它

谁能帮我一次提取所有公司的股票

【问题讨论】：

标签： r

【解决方案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 )

【讨论】：

谢谢会尝试。但是我的名单上有很多公司。我将不得不手动将所有公司放入代码中，对吗？我们可以调用一个包含所有列表的 excel 文件吗？
是的，您可以读取 excel 文件并将符号以编程方式解析为变量。请先尝试一下，如果遇到问题，请告诉我们您的尝试。
谢谢我知道了。 asd2 <- read.csv(file.choose()) 然后是 asd3 <- as.character(asd2[,1]) 最后是 tq_get(asd3, from = sd, to = ed )
你能帮忙解决另一个问题吗？我有大约8000家公司。所以我只提取 2 个日期。通常在 R 中，这需要很多时间。我仍在运行此代码。有没有办法放入服务器然后运行代码？一般来说，我该如何处理这类问题