R语言 获取沪深两市股票日度行情数据

moshengren

用来从网易财经网获取沪深两市股票日度行情数据。
真的学习了

1. # cntrade R语言版
   
2. # 作者：陈堰平（新华指数有限责任公司，chen@yanping.me）
   
3. # 使用网易股票数据接口 原stata版的作者为：
   
4. # 李春涛（中南财经政法大学，chtl@znufe.edu.cn）
   
5. # 张璇（中南财经政法大学，zhangx@znufe.edu.cn）
   
6. # example:
   
7. # cntrade(c('600000', '000008'), path ='D:/stockprice', start = 20010104, end = 20120124)
   
8. 
   
9. cntrade <- function(tickers, path = "", start = 19910101, end = "") {
   
10. 
    
11. address <- "http://quotes.money.163.com/service/chddata.html"
    
12. field <- "&fields=TCLOSE;HIGH;LOW;TOPEN;LCLOSE;CHG;PCHG;TURNOVER;VOTURNOVER;VATURNOVER;TCAP;MCAP"
    
13. 
    
14. if (path == "") {
    
15. path <- getwd()
    
16. }
    
17. 
    
18. if (!file.exists(path)) {
    
19. dir.create(path)
    
20. }
    
21. 
    
22. if (substr(path, nchar(path), nchar(path)) != "/") {
    
23. path <- paste(path, "/", sep = "")
    
24. }
    
25. 
    
26. if (end == "") {
    
27. year <- substr(Sys.time(), 1, 4)
    
28. month <- substr(Sys.time(), 6, 7)
    
29. day <- substr(Sys.time(), 9, 10)
    
30. end <- paste(year, month, day, sep = "")
    
31. }
    
32. 
    
33. count <- 0
    
34. tickers <- as.character(tickers)
    
35. for (name in tickers) {
    
36. while (nchar(name) < 6) {
    
37. name <- paste("0", name, sep = "")
    
38. }
    
39. 
    
40. if (nchar(name) > 6) {
    
41. warning(paste("invalid stock code: ", name, sep = ""))
    
42. next
    
43. }
    
44. 
    
45. if (as.numeric(name) > 600000) {
    
46. url <- paste(address, "?code=0", name, "&start=", start, "&end=", end, field, sep = "")
    
47. } else {
    
48. url <- paste(address, "?code=1", name, "&start=", start, "&end=", end, field, sep = "")
    
49. }
    
50. destfile <- paste(path, name, ".csv", sep = "")
    
51. download.file(url, destfile, quiet = TRUE)
    
52. count <- count + 1
    
53. }
    
54. 
    
55. if (count == 0) {
    
56. cat("一个数据文件都没下载下来！\n")
    
57. } else {
    
58. cat("数据下载完成！\n")
    
59. cat(paste("共下载", count, "个文件\n", sep = ""))
    
60. }
    
61. }
    
62. 
    

复制代码

调用举例

1. cntrade(c(600000, 000001, 600810))
   
2. cntrade('000002', start = 19990101)
   
3. cntrade(000002, end = 19990101)
   
4. cntrade(c(2, 16))
   
5. 
   

复制代码

转自http://yanping.me/cn/blog/2013/02/10/cntrade-r-version/

王文婕

新手我，能不能烦劳楼主解释下有的操作··

moshengren

王文婕 发表于 2013-4-8 16:20
新手我，能不能烦劳楼主解释下有的操作··

最好的办法，就是自己贴上去，一条一条试。然后对比输出结果。再学习相关函数。

batistuta184

很复杂的样子

x21824182

不错，真的可以

土星

还在看quantmod 包 ，不过只有GOOGLE YAHOO的，印象中QQ的好像更好。有买入卖出的量。。不过忘了地址了。。。。求。。。

fancy68

代码收藏研究

2007小金猪

收藏研究，学习为用

dzzhishou

学习了，谢谢！

helloworldR

感谢分享，mark一下，好好学习学习~