[原创]基于R从163获取日间行情数据(模型未动，数据先行)

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

模型未动，数据先行——龙哥教你用R从163.com获取日间行情数据 新建文本文档.txt (1.02 KB)

2014-3-9 11:19:48 上传

R代码

抓取的数据可以用C++加工一下，组合成一个csv文件，然后导入ORACLE数据库，暂且按下不表。

1. rm(list=ls())
   
2. sh.list<-readLines("sh.txt",10)
   
3. sz.list<-readLines("sz.txt",10)
   
4. sym.list<-list(sh=sh.list,sz=sz.list)
   
5. 
   
6. for (i in c("sz","sh"))
   
7. {
   
8.   l<-length(sym.list[[i]])
   
9.   for (j in 1:l)
   
10.   {
    
11.     cat(i,j,'\n')
    
12.     sub.web<-"http://quotes.money.163.com/trade/lsjysj_"
    
13.     web<-paste(sub.web,sym.list[[i]][j],".html#06f01",sep="")
    
14.     str<-readLines(web,299)
    
15.     x<-regexpr("value=",str[299])
    
16.     y<-substr(str[299],x+7,x+16)
    
17.     z<-strsplit(y,split="-")
    
18.     start<-paste(z[[1]][1],z[[1]][2],z[[1]][3],sep="")
    
19.     sub.link1<-"http://quotes.money.163.com/service/chddata.html?code="
    
20.     sub.link2<-"&fields=TCLOSE;HIGH;LOW;TOPEN;LCLOSE;CHG;PCHG;TURNOVER;VOTURNOVER;VATURNOVER;TCAP;MCAP"
    
21.     if (i == "sh")
    
22.       market<-"0"
    
23.     else
    
24.       market<-"1"
    
25.     maturity<-paste("&start=",start,"&end=20131231",sep="")
    
26.     link<-paste(sub.link1,market,sym.list[[i]][j],maturity,sub.link2,sep="")
    
27.     file.path<-paste("E:/360/",sym.list[[i]][j],".txt",sep="")
    
28.     download.file(link,file.path,"internal")
    
29.   }
    
30. 
    
31. }

复制代码

扫码加我 拉你入群

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

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

分享1 收藏11 回帖

关键词：行情数据 Oracle list IST 数据库 模型

欢迎龙哥常在量化版发帖  代码 资源均可！！！

kankan

有启发，多谢分享。

现在R这些开源包用的越来越多了，谢谢，学习一下