因此,我有一个带有股票代码,评级,公司名称等的数据框。我想要做的是添加一个称为额外信息的新列,以便在一个数据框内有一个数据框。
我知道我可以使用下面的代码来获取公司特定信息的数据框:
data <- getSymbols("TSLA", src = 'yahoo', from = as.Date(Sys.time())-7,
auto.assign=FALSE, verbose=TRUE)
但是,当我单击“额外信息”列上的价值时,我想获取每个公司的股票信息。有任何想法吗?
也许您可以将数据存储在列表中。
library(quantmod)
stock <- c("TSLA", 'QQQ')
result <- sapply(stock, getSymbols, src = 'yahoo', auto.assign = FALSE,
from = as.Date(Sys.time())-7, verbose=TRUE, simplify = FALSE)
现在,您可以使用交易品种访问单个股票$
。
result$TSLA
# TSLA.Open TSLA.High TSLA.Low TSLA.Close TSLA.Volume TSLA.Adjusted
#2021-02-01 814.29 842.00 795.56 839.81 25391400 839.81
#2021-02-02 844.68 880.50 842.20 872.79 24346200 872.79
#2021-02-03 877.02 878.08 853.06 854.69 18343500 854.69
#2021-02-04 855.00 856.50 833.42 849.99 15812700 849.99
#2021-02-05 855.00 864.77 839.00 852.23 18566637 852.23
当您查看result
对象时,您会得到带有其名称的股票代码。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句