如何解决如何获取特定日期和报价的股票价格?
我有一张桌子
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
>
您可以使用任意日期作为子集。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。