如何获取特定日期和报价的股票价格？

问题描述

我有一张桌子

XX

我想在同一张表中再添加两列，并给出收盘价和调整后的价格

Ticker.    Date
AAPL.      1/1/2020
AAPL.      1/2/2020
KO.        1/1/2020
KO.        1/20/2020

我认为我们可以使用Quantum Mod库做到这一点

解决方法

这项工作：

> tickers = c('AAPL','KO')
> portfolio <- NULL
> for(t in tickers){
+   portfolio <- cbind(portfolio,getSymbols(t,from = '2020-01-01',to = '2020-01-21',auto.assign = 0)[,c(4,6)])
+ }
> portfolio
           AAPL.Close AAPL.Adjusted KO.Close KO.Adjusted
2020-01-02    75.0875      74.57304    54.99    53.58738
2020-01-03    74.3575      73.84803    54.69    53.29503
2020-01-06    74.9500      74.43647    54.67    53.27554
2020-01-07    74.5975      74.08639    54.25    52.86625
2020-01-08    75.7975      75.27816    54.35    52.96370
2020-01-09    77.4075      76.87714    55.34    53.92844
2020-01-10    77.5825      77.05093    55.53    54.11360
2020-01-13    79.2400      78.69707    56.13    54.69830
2020-01-14    78.1700      77.63441    56.00    54.57161
2020-01-15    77.8350      77.30170    56.70    55.25376
2020-01-16    78.8100      78.27002    56.82    55.37069
2020-01-17    79.6825      79.13655    56.94    55.48764
> portfolio[index(portfolio) %in% as.Date(c('2020-01-15','2020-01-16'))]
           AAPL.Close AAPL.Adjusted KO.Close KO.Adjusted
2020-01-15     77.835      77.30170    56.70    55.25376
2020-01-16     78.810      78.27002    56.82    55.37069
> 

您可以使用任意日期作为子集。