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

附件下载

所在主题：
文件名:  stock.xlsx
资料下载链接地址: https://bbs.pinggu.org/a-1671639.html
附件大小:
我想批量地跑下面的一批股票，下载实时数据，我用的是quantmod by R。最近才发现quandl无法下载股票数据了，起码免费的是不行了。所以只剩quantmod一条路了。

我把我要下载的股票代码放在csv里面了。代码我也贴出来了。但是每次跑都会出错，我想写一个程序可以告诉我是哪只股票下载不下来。

另一个问题是我不确定我在最后那个function里面写的，也就是把每只股票的那三个数据取出来做成三列对不对。

请高手们指点！！！最好是能给我修改好能成功下载所有数据的代码。谢谢！！！

  1. library("quantmod")
  2. library(stringr) # for str_pad

  4. tickers <- c(300368, 300399, 603369, 603806, 600304, 300245) #这里请用附件里面的股票代替。
  5. stocks<-c()

  7. foo2 <- function(tickers) {
  8. if(substr(tickers,1,1) < 6) {
  9. return(paste(str_pad(tickers,width=6,side="left",pad="0"),"SZ",sep="."))
  10. } else {
  11. return(paste(tickers,"SS",sep="."))
  12. }
  13. }

  15. stocks <- sapply(tickers,foo2)

  17. get.stockvalue <- function(stocks) {
  18. s <- getSymbols(stocks,auto.assign=FALSE)
  19. s$signal <- (Cl(s) - lag(Cl(s)))/lag(Cl(s))

  21. #find out the fisrt day when the increase is less than 10%
  22. x <- which(s$signal < 0.095)[1]
  23. count <- x-2
  24. highprice <- s[x,2]

  26. yield2 <- as.numeric((as.numeric(seriesHi(s)[,2]) - s[x,2])/s[x,2]*100)
  27. return(count, highprice, yield2)#here I want to return three column values into a matrix with 57 rows and 3 columns. Please tell me if the code is not correct here.

  29. }

  31. update_data <- sapply(stocks,get.stockvalue)
复制代码


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

扫码加我 拉你入群

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

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

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

GMT+8, 2026-1-8 07:41