悬赏帖：quantmod为什么总是在下载批量股票数据时出错？！

我想批量地跑下面的一批股票，下载实时数据，我用的是quantmod by R。最近才发现quandl无法下载股票数据了，起码免费的是不行了。所以只剩quantmod一条路了。

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

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

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

2014-11-12 14:28:36 上传

1. library("quantmod")
   
2. library(stringr)   # for str_pad
   
3. 
   
4. tickers <- c(300368, 300399, 603369, 603806, 600304, 300245) #这里请用附件里面的股票代替。
   
5. stocks<-c()
   
6. 
   
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. }
    
14. 
    
15. stocks <- sapply(tickers,foo2)
    
16. 
    
17. get.stockvalue <- function(stocks) {
    
18.   s <- getSymbols(stocks,auto.assign=FALSE)
    
19.   s$signal <- (Cl(s) - lag(Cl(s)))/lag(Cl(s))
    
20. 
    
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]
    
25. 
    
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.
    
28. 
    
29. }
    
30. 
    
31. update_data <- sapply(stocks,get.stockvalue)

复制代码

1. library("quantmod")
   
2. #library(stringr)   # for str_pad
   
3. 
   
4. tickers <- c(300368, 300399, 603369, 300245, 603806, 600000) #这里请用附件里面的股票代替。
   
5. tickers <- sprintf("%d",tickers)
   
6. stocks<-c()
   
7. 
   
8. foo2 <- function(tickers)
   
9. {
   
10.   if(substr(tickers,1,1) != "6")
    
11.   {
    
12.     return(paste(tickers,"SZ",sep="."))
    
13.   }else
    
14.   {
    
15.     return(paste(tickers,"SS",sep="."))
    
16.   }
    
17. }
    
18. 
    
19. stocks <- sapply(tickers, foo2, USE.NAMES=FALSE)
    
20. stocks
    
21. get.stockvalue <- function(stocks)
    
22. {
    
23.   cat(stocks,"------- now\n")
    
24.   s <- getSymbols(stocks,auto.assign=FALSE)
    
25.   s$signal <- (Cl(s) - lag(Cl(s)))/lag(Cl(s))
    
26.   
    
27.   #find out the fisrt day when the increase is less than 10%
    
28.   x <- which(s$signal < 0.095)[1]
    
29.   count <- x-2
    
30.   highprice <- s[x,2]
    
31.   
    
32.   yield2 <- as.numeric((as.numeric(seriesHi(s)[,2]) - s[x,2])/s[x,2]*100)
    
33.   #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.
    
34.   return(list(count=count, highprice=highprice, yield2=yield2))
    
35. }
    
36. 
    
37. update_data <- sapply(stocks,get.stockvalue)
    
38. head(update_data)

复制代码

这是修改后的代码，亲测可行

把程序里s <- getSymbols(stocks,auto.assign=FALSE)改成:
  s <- tryCatch({getSymbols(stocks,auto.assign=FALSE)}, error=function(e){cat(stocks, ": failed to get\n"); print(e); return})
  if(!is.xts(s)){
    return(list(count=NULL, highprice=NULL, yield2=NULL))
  }
  else{...}运行结果如图：

xuruilong100 发表于 2014-11-12 16:34
这是修改后的代码，亲测可行

但是我这里还是报错，Error in download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m,  :
  cannot open URL 'http://chart.yahoo.com/table.csv?s=603009.SS&a=0&b=01&c=2007&d=10&e=12&f=2014&g=d&q=q&y=0&z=603009.SS&x=.csv' In addition: There were 24 warnings (use warnings() to see them)
> head(update_data)
Error in head(update_data) : object 'update_data' not found

hricchaya 发表于 2014-11-12 23:42
把程序里s

你能把这个更新到你的code里面吗？谢谢

wqf_cufe 发表于 2014-11-13 00:14
但是我这里还是报错，Error in download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m,  :  ...

重启一下Rstudio试试

hubifeng？ 发表于 2014-11-13 00:29
重启一下Rstudio试试

请问如何将行列转置成三列，第一列是代码，第二列是cout,第三列是highprice,第四列是yield2？

hubifeng？ 发表于 2014-11-13 00:29
重启一下Rstudio试试

已经可以下载数据了，但是有很多股票下载不了，这是为什么呢？

wqf_cufe 发表于 2014-11-13 00:55
已经可以下载数据了，但是有很多股票下载不了，这是为什么呢？

603009是今年7月上市的，yahoo没落之后中国方面的业务怠惰了，建议改用其他数据源，记得要加好评哦亲

wqf_cufe 发表于 2014-11-13 00:19
你能把这个更新到你的code里面吗？谢谢

1. get.stockvalue <- function(stock) {
   
2.   cat(stock, ":start......\n")
   
3.   s <- tryCatch({getSymbols(stock,auto.assign=FALSE)},
   
4.                 error=function(e){cat(stock, ":failed to get!\nerror message:\n"); print(e)})
   
5.   if(!is.xts(s)){
   
6.     return(list(count=NA, highprice=NA, yield2=NA))
   
7.   }
   
8.   else{
   
9.     cat(stock,":OK!\n")
   
10.     s$signal <- (Cl(s) - lag(Cl(s)))/lag(Cl(s))
    
11.   
    
12.     #find out the fisrt day when the increase is less than 10%
    
13.     x <- which(s$signal < 0.095)[1]
    
14.     count <- x-2
    
15.     highprice <- s[x,2]
    
16.   
    
17.     yield2 <- as.numeric((as.numeric(seriesHi(s)[,2]) - s[x,2])/s[x,2]*100)
    
18.     return(list(count=count, highprice=highprice, yield2=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.
    
19.   }
    
20. }

复制代码