[原创]基于R语言和Matlab做K线图[by fantuanxiaot]

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

很多人希望在网上搜索用R语言做K线图，苦于没有程序
本人做了一个用R语言的K线图，希望大家喜欢，注意横轴是时间轴
我也是学生，希望和大家多多交流
R语言代码如下：

本帖隐藏的内容

1. #  设置当前的工作目录
   
2. #  基于R语言做K线图
   
3. #  by fantuanxiaot
   
4. setwd("D:/MyDriversMatlab/Mfiles12")
   
5. #  读取数据
   
6. library(RODBC)
   
7. excel_conn<-odbcConnectExcel('HS300.xls')
   
8. HS300.Data<-sqlFetch(excel_conn,'Sheet1')
   
9. #  关闭DB连接
   
10. close(excel_conn)
    
11. #  查看数据
    
12. head(HS300.Data,30)
    
13. #  得到了所需要的数据
    
14. FT_Kplot<-function(OPEN,HIGH,LOW,CLOSE,DATE)
    
15. {
    
16.   N<-length(OPEN)
    
17.   w<-0.3
    
18.   D<-CLOSE-OPEN
    
19.   par(family='serif')
    
20.   #  作图
    
21.   plot(c(1:N),CLOSE,type='n',xaxt='n',
    
22.        xlab='时间',ylab='价格',font.axis=1.5)
    
23.   title(main='K线图',cex=2,col='black')
    
24.   for(i in 1:N)
    
25.   {
    
26.     lines(c(i,i),c(LOW[i],HIGH[i]),col='black',lwd=1)
    
27.     x<-c(i-w,i-w,i+w,i+w)
    
28.     y<-c(OPEN[i],CLOSE[i],CLOSE[i],OPEN[i])
    
29.     if(D[i]<0)
    
30.     {
    
31.       polygon(x,y,col='green',border='green')
    
32.     } else
    
33.     {
    
34.       polygon(x,y,col='red',border='red')
    
35.     }
    
36.   }
    
37.   Index<-seq(from=1,to=N,length=5)
    
38.   Index<-round(Index)
    
39.   Text<-DATE[Index]
    
40.   axis(side=1,Index,labels=Text,cex.axis=1)
    
41. }
    
42. #  作图
    
43. DATE<-HS300.Data[,1]
    
44. OPEN<-HS300.Data[,2]
    
45. 
    
46. HIGH<-HS300.Data[,3]
    
47. LOW<-HS300.Data[,4]
    
48. CLOSE<-HS300.Data[,5]
    
49. DATE<-substr(DATE,1,10)
    
50. FT_Kplot(OPEN[c(1:100)],HIGH[c(1:100)],
    
51.          LOW[c(1:100)],CLOSE[c(1:100)],DATE[c(1:100)])
    
52. FT_Kplot(OPEN[c(1:300)],HIGH[c(1:300)],
    
53.          LOW[c(1:300)],CLOSE[c(1:300)],DATE[c(1:300)])
    
54. #  #############################################
    
55. #  #############################################

复制代码

具体作图如下：R语言做K线图也不错
FT_Kplot(OPEN[c(1:100)],HIGH[c(1:100)],
         LOW[c(1:100)],CLOSE[c(1:100)],DATE[c(1:100)])
FT_Kplot(OPEN[c(1:300)],HIGH[c(1:300)],
         LOW[c(1:300)],CLOSE[c(1:300)],DATE[c(1:300)])

试验数据： data.zip (94.34 KB) 本附件包括：

• HS300.xls

2015-5-7 01:44:03 上传

而Matlab的K线作图就大家很熟悉
我模仿faruto做了个K线图的极其简单版本
代码如下：

本帖隐藏的内容

1. function FT_Kplot(OPEN,HIGH,LOW,CLOSE,DATE)
   
2. %%  by faruto
   
3. %%  注意DATE是double的时间
   
4. %%  Modified by fantuanxiaot
   
5. %%  例子
   
6. %  load disney
   
7. %  FT_Kplot(dis_OPEN(end-100:end),dis_HIGH(end-100:end),dis_LOW(end-100:end),dis_CLOSE(end-100:end),dis_nv.dates(end-100:end))
   
8. %  FT_Kplot(dis_OPEN(end-20:end),dis_HIGH(end-20:end),dis_LOW(end-20:end),dis_CLOSE(end-20:end),dis_nv.dates(end-20:end))
   
9. %%  K线图
   
10. w=0.3*min(diff(DATE));
    
11. D=CLOSE-OPEN;
    
12. N=length(D);
    
13. scrsz=get(0,'ScreenSize');
    
14. figure('color','w','Position',[scrsz(3)*0.1 scrsz(4)*0.25 scrsz(3)*0.95 scrsz(4)]*0.7)
    
15. movegui(gcf,'center')
    
16. %  一个空图
    
17. plot(DATE,CLOSE,'w')
    
18. hold on
    
19. for i=1:N
    
20.     line([DATE(i) DATE(i)],[LOW(i) HIGH(i)],'color','k','linewidth',0.5);
    
21.     x=[DATE(i)-w DATE(i)-w DATE(i)+w DATE(i)+w DATE(i)-w];
    
22.     y=[OPEN(i) CLOSE(i) CLOSE(i) OPEN(i) OPEN(i)];
    
23.     if ~isnan(D(i))
    
24.         if D(i)<0
    
25.             fill(x,y,'g','EdgeColor', 'g');
    
26.         elseif D(i)>=0
    
27.             fill(x,y,'r','EdgeColor','r');
    
28.         end
    
29.     end
    
30. end
    
31. dateaxis('x',2)
    
32. set(gca,'fontname','华文楷体')
    
33. %%  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    
34. %%  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

复制代码

举例如下：
load disney
FT_Kplot(dis_OPEN(end-100:end),dis_HIGH(end-100:end),dis_LOW(end-100:end),dis_CLOSE(end-100:end),dis_nv.dates(end-100:end))
FT_Kplot(dis_OPEN(end-20:end),dis_HIGH(end-20:end),dis_LOW(end-20:end),dis_CLOSE(end-20:end),dis_nv.dates(end-20:end))

扫码加我 拉你入群

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

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

分享1 收藏31 回帖

关键词：fantuanxiaot MATLAB matla atlab Fan library 程序 网上

好东西，顶！

楼主是优秀版主，为论坛贡献多多，却仍然能保持谦和，赞一个！

学习学习。

fantuanxiaot 发表于 2015-5-7 01:46
很多人希望在网上搜索用R语言做K线图，苦于没有程序
本人做了一个用R语言的K线图，希望大家喜欢，注意横轴 ...

楼主大赞