搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  Stkcds.txt
资料下载链接地址: https://bbs.pinggu.org/a-2243803.html
附件大小:
68.38 KB   举报本内容
楼主想下载沪深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){

  9. }, warning = function(e){

  11. })
复制代码

请问小伙伴们有没有好的解决方法？
（Stkcds数据见附件）


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

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

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

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2025-12-31 21:45