getSymbols批量下载股票数据的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

楼主想下载沪深A股市场的日数据，使用quantmod中的getSymbols方法进行，结合lapply函数，但是这个方法效率太低，所需时间太长。
lapply方法代码如下：

1. WoW <- new.env()
   
2. Xts <- lapply(1:nrow(Stkcds), function(i){
   
3.         try(getSymbols(Stkcds$StkcdName[i],
   
4.                        src = "yahoo",
   
5.                        auto.assign = TRUE,
   
6.                        from = as.Date("2017-04-25"),
   
7.                        return.class = "xts",
   
8.                        env = WoW),
   
9.                 silent=TRUE)
   
10. })

复制代码

此外，getSymbols方法可以一次性获取所有股票的数据，但是碰到没有数据的股票（停牌或退市），getSymbols就会停止，tryCatch方法没什么用。
没用的代码如下：

1. tryCatch({getSymbols(Stkcds$StkcdName,
   
2.                      src = "yahoo",
   
3.                      auto.assign = TRUE,
   
4.                      from = as.Date("2017-04-25"),
   
5.                      return.class = "xts",
   
6.                      warnings = F)
   
7. }, error = function(e){
   
8.         
   
9. }, warning = function(e){
   
10.         
    
11. })

复制代码

请问小伙伴们有没有好的解决方法？
（Stkcds数据见附件） Stkcds.txt (68.38 KB)

2017-5-2 16:11:54 上传

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖