用R获取分笔交易的明细数据（第三稿了）

dengyishuo

<br />
##get.nowdata.r和get.historydata.r将作为函数代码出现在未来的iquant包中<br />
##更新中……<br />
##1.增加了函数返回结果的内容（代码、公司名、日期等）<br />
##2.代码可移植到Linux等系统下<br />
#get.nowdata()和get.historydata()的函数代码见附件<br />
###############说明###############<br />
##symbol:股票代码<br />
##date:交易日期<br />
##Time:成交时间<br />
##Volum:成交量<br />
##Price:成交价格<br />
##Turnover:成交金额<br />
##Orders:买卖盘<br />
##NIO：计算机术语不解释<br />
####################################<br />
###例子1<br />
>source("get.nowdata.r")   #载入get.nowdata()函数代码<br />
>get.nowdata("000065")      #获取000065的分笔交易明细数据<br />
$symbol<br />
[1] "000065"</p>
<p>$Company<br />
[1] "北方国际"</p>
<p>$Date<br />
[1] "2011年05月20日 15:01"</p>
<p>$Details<br />
        Time Volum Price Turnover Orders NIO<br />
1   09:30:10    35 20.37     7.13   平盘   0<br />
2   09:30:30     4 20.33     0.81   流出   1<br />
3   09:30:40     5 20.33     1.02   流出   1<br />
4   09:30:50     4 20.36     0.81   流入   2<br />
5   09:31:00    10 20.33     2.03   流出   1<br />
6   09:31:05     1 20.33     0.20   流出   1<br />
7   09:31:25    57 20.33    11.59   流出   1<br />
##例子2<br />
>source("get.historydata.r") #载入get.historydata()函数代码<br />
>get.historydata("000061",date="20110408") #获取000061在2011年4月1日的分笔交易明细数据<br />
$symbol<br />
[1] "000061"</p>
<p>$Company<br />
[1] "农产品"</p>
<p>$Date<br />
[1] "2011年4月01日"</p>
<p>$Details<br />
         Time Volum Price Turnover Orders NIO<br />
1    09:25:06    84 16.70    14.03   平盘   0<br />
2    09:30:06    72 16.72    12.03   流入   2<br />
3    09:30:11     5 16.74     0.84   流入   2<br />
4    09:30:16    18 16.74     3.01   流入   2<br />
5    09:30:21    18 16.74     3.01   流入   2<br />
6    09:30:31    11 16.72     1.84   流出   1<br />
7    09:30:36    50 16.75     8.37   流入   2<br />
8    09:30:41    11 16.72     1.84   流出   1<br />

</p>

uunet

还不错

dengyishuo

回复第2楼的 uunetcom：还可以改进的。等有时间了好好琢磨琢磨这个东西。

itellin

回复第1楼的 dengyishuo：多谢老邓的辛勤工作。

问一下，读取数据是实时的吗？如果是有没有延时。

itellin

老邓的代码要稍微处理一下，否则读出的数据位置对不上。

<br />
get.nowdata=function(symbol){<br />
options(warn =-1)<br />
url_0=paste("http://vol.stock.hexun.com/Now/Share/DealDetail_1.ashx?rank=3&dealtype=0&code=",symbol,sep="")<br />
raw_0=read.table(url_0,colClasses="character",fill=T,sep="[")<br />
raw_0=as.character(raw_0)<br />
raw_1=strsplit(raw_0,",|]")<br />
raw_2=unlist(raw_1)<br />
raw_3=matrix(raw_2[-(1:4)],ncol=7,byrow=T)<br />
raw_4=raw_3[,-7]<br />
write.table(raw_4,"C:/Windows/Temp/raw.txt")<br />
nowdata=read.table("C:/Windows/Temp/raw.txt",dec="'")<br />
nowdata[,2]=as.numeric(as.character(nowdata[,2]))<br />
nowdata[,3]=as.numeric(as.character(nowdata[,3]))<br />
nowdata[,4]=as.numeric(as.character(nowdata[,4]))<br />
colnames(nowdata)=c("Time","Volum","Price","nohow","IO","NIO")<br />
nowdata<br />
}<br />

</p>

dengyishuo

回复第5楼的 itellin：

1.你把你的对不上的例子贴出来看看。

2.不晓得为什么数据格式出来乱了。

3.不加as.character()，数据好像会变，不懂什么原理。[s:12]

itellin

回复第6楼的 dengyishuo：问题比较大，北方国际今日开盘是17.61，你里面的USD实际上对应着股价，但第四列不知道是什么？修改过的数据是这样：

[data]

> source("get.nowdata.r") #载入get.nowdata()函数代码

> get.nowdata("000065")

Time Volum Price nohow IO NIO

1 09:25:08 28 17.61 4.93 平盘 0

2 09:30:08 13 17.68 2.30 流入 2

3 09:30:33 1 17.70 0.18 流入 2

4 09:30:43 133 17.68 23.52 流出 1

5 09:30:48 5 17.75 0.89 流入 2

6 09:30:58 5 17.75 0.89 平盘 0

7 09:31:23 2 17.75 0.36 流入 2

8 09:31:28 1 17.75 0.18 流出 1

9 09:31:33 1 17.75 0.18 流入 2

10 09:32:43 5 17.69 0.88 流出 1

[/data]

dengyishuo

回复第7楼的 itellin：开始弄颠倒了两列的名字，我修缮了一下。第四列是turnover，成交金额。你可以对照这里：http://vol.stock.hexun.com/Now/share/DealDetail.shtml?rank=3&code=000065

dengyishuo

回复第4楼的 itellin：是实时的，有延迟，没有测试延迟时间是多少。

huangziwei

果然很先进

huhaiboo

请问你们是怎样连接到股票数据的呢？挺感兴趣的，就是不知道弄[s:15]

dengyishuo

回复第11楼的 huhaiboo：大致来说，就是从网页上抓。

itellin

回复第1楼的 dengyishuo：

老邓幸苦了，既然准备做一个包，那么是不是考虑做成GUI界面，你的核心内容已经有了，剩下的就是一个壳了。

另外，能否把股指期货的分时数据也给搞出来。

9lotus

上证综指和深发展代码均为000001, 在雅虎中用000001.ss和000001.sz来区分, 不知和讯中是如何区分的?

另,如何得到和讯的证券代码列表?

谢谢

abel

建议尽快测试下延时、稳定性等方面的情况吧，形成个固定格式的报告。

uunet

猫主席教导我们

[attachment=219320,1123] [attachment=219320,1124]

newton2

我是新来的，为什么附件下载不下来a?

icezh

谢谢分享。不过我在Mac下使用的时候碰到点问题。

运行完nowdata中的内容都是NA,追踪代码发现在strsplit之后就出现这样的问题，前面一切正常。

今天刚开始学R，不知道是否和字符编码有关系，各位如有知道请赐教。

icezh

问题已经解决和大家汇报一下，是由于字符编码造成的问题。在代码中修改如下即可

raw_0=read.table(url_0,colClasses="character",fill=T,sep="[",fileEncoding='GBK',encoding='GBK')

再次谢谢楼主的分享。

dengyishuo

回复第19楼的 icezh：谢谢。