脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 软件编程 → C 语言 → Matlab绘制k线图

利用Matlab绘制优美的k线图

 更新时间：2022年10月08日 14:42:34   作者：slandarer  
本期又是一个花里胡哨的数据可视化，前两天刷到了耐克的视觉设计师Gladys Orteza绘制的k线图作品，把沉闷的股票图变成了精彩的风景，但是那些大部分是真的完全看不清，我这里挑选了几个能看清的k线图风格将其用MATLAB进行了实现

本期又是一个花里胡哨的数据可视化，前两天刷到了耐克的视觉设计师Gladys Orteza绘制的k线图作品，把沉闷的股票图变成了精彩的风景，但是那些大部分是真的完全看不清，我这里挑选了几个能看清的k线图风格将其用MATLAB进行了实现。

效果

代码

代码中使用的数据

SimulatedStock.mat

是MATLAB自带的示例数据，因此不需要下载，不过要绘制k线图，仍需安装Financial Toolbox工具箱。

效果一 极光

% @author : slandarer
% gzh  : slandarer随笔

load SimulatedStock.mat;
Data=TMW(end-200:end-50,:);
CHdl=candle(Data,'b');
title('Candlestick chart for TMW')


% 坐标区域基础修饰 =========================================================
fig=gcf;
set(fig,'Units','normalized','Position',[.1,.1,.7,.6])
ax=gca;hold on;axis tight
YLim=ax.YLim;
ax.YLim=ax.YLim+[-1.5,1].*diff(YLim);
YLim=ax.YLim;
XLim=ax.XLim;
ax.PlotBoxAspectRatio=[2,1,1];
ax.Color=[0,0,0];
maxY=YLim(1)+diff(YLim)*1.5/3.5;
minY=YLim(1)+diff(YLim)/4.5;

% 绘制背景 =================================================================
matSize=[300,300];
colorList=[1,1,2;16,20,49;33,42,101;37,64,119;24,99,104;24,99,104;12,148,86;1,1,2;1,1,2]./255;
YList=((0:(matSize(2)-1))./(matSize(2)-1))';
XList=ones(1,matSize(1));
% 线性插值
colorMat(:,:,1)=interp1(linspace(0,1,size(colorList,1)),colorList(:,1),YList)*XList;
colorMat(:,:,2)=interp1(linspace(0,1,size(colorList,1)),colorList(:,2),YList)*XList;
colorMat(:,:,3)=interp1(linspace(0,1,size(colorList,1)),colorList(:,3),YList)*XList;
[XMesh,YMesh]=meshgrid(linspace(XLim(1),XLim(2),300),linspace(YLim(2),YLim(1),300));
surf(XMesh,YMesh,zeros(size(XMesh)),colorMat,'EdgeColor','none');

matSize=[300,300];
colorList=[26,110,106;26,110,106;35,72,118;33,40,95;16,22,56;1,1,1;1,1,1]./255;
YList=((0:(matSize(2)-1))./(matSize(2)-1))';
XList=ones(1,matSize(1));
% 线性插值
colorMat(:,:,1)=interp1(linspace(0,1,size(colorList,1)),colorList(:,1),YList)*XList;
colorMat(:,:,2)=interp1(linspace(0,1,size(colorList,1)),colorList(:,2),YList)*XList;
colorMat(:,:,3)=interp1(linspace(0,1,size(colorList,1)),colorList(:,3),YList)*XList;
[XMesh,YMesh]=meshgrid(linspace(XLim(1),XLim(2),300),linspace(minY+(maxY-minY)/10,YLim(1),300));
surf(XMesh,YMesh,zeros(size(XMesh)),colorMat,'EdgeColor','none','FaceAlpha',.5);

% 绘制星星 =================================================================
Xs=diff(XLim).*rand([20,1])+XLim(1);
Ys=(YLim(2)-maxY).*rand([20,1])+maxY;
scatter(Xs,Ys,3,'filled','CData',[.8,.8,.8]);
Xs=diff(XLim).*rand([20,1])+XLim(1);
Ys=(YLim(2)-maxY).*rand([20,1])+maxY;
scatter(Xs,Ys,5,'filled','CData',[.6,.6,.6]);

% 修改蜡烛图配色 ===========================================================
rColor=[242,218,128]./255;
gColor=[9,28,48]./255; 

% 获取竖直线数据
LineHdl=CHdl(1);
LineDataX=reshape(LineHdl.XData,3,[]);
LineDataY=reshape(LineHdl.YData,3,[]);
fill([LineDataX(1,1),LineDataX(1,:),LineDataX(1,end)],...
    [minY,LineDataY(1,:),minY],[10,28,48]./270);

for i=2:length(CHdl)
    if CHdl(i).FaceColor(1)==1
        plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',rColor)
        fill(CHdl(i).XData,CHdl(i).YData,rColor,'EdgeColor',rColor)
    else
        plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',gColor)
        fill(CHdl(i).XData,CHdl(i).YData,gColor,'EdgeColor',gColor)
    end
end 
delete(LineHdl);

% 绘制柱状图 ===============================================================
YData=Data.Close-Data.Open;
absYData=abs(YData);
absYData1=absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;
absYData2=-absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;
fill([LineDataX(1,1),LineDataX(1,:),LineDataX(1,end)],...
    [YLim(1)+diff(YLim)/4.5,absYData1(:).',YLim(1)+diff(YLim)/4.5],[.01,.01,.01]);
disp(char([64 97 117 116 104 111 114 32 58 32 115 108 97 110 100 97 114 101 114]))
bar(Data.Time(YData>0),absYData1(YData>0),'BaseValue',minY,'EdgeColor','none','FaceColor',[29,170,112]./255);
bar(Data.Time(YData<0),absYData1(YData<0),'BaseValue',minY,'EdgeColor','none','FaceColor',[23,105,103]./255);
bar(Data.Time(YData>0),absYData2(YData>0),'BaseValue',minY,'EdgeColor','none','FaceColor',[29,170,112]./255,'FaceAlpha',.6);
bar(Data.Time(YData<0),absYData2(YData<0),'BaseValue',minY,'EdgeColor','none','FaceColor',[23,105,103]./255,'FaceAlpha',.6);
xq=linspace(XLim(1),XLim(2),15);
yq=interp1(LineDataX(1,:),absYData1,xq,'spline');
scatter(xq,yq,15,'filled','CData',[128,169,90]./255)

效果二 暖调

% @author : slandarer
% gzh  : slandarer随笔

load SimulatedStock.mat;
Data=TMW(end-200:end-50,:);
CHdl=candle(Data,'b');
title('Candlestick chart for TMW')


% 坐标区域基础修饰 =========================================================
fig=gcf;
set(fig,'Units','normalized','Position',[.1,.1,.7,.6])
ax=gca;hold on;axis tight;grid off
YLim=ax.YLim;
ax.YLim=ax.YLim+[-3,1].*diff(YLim);
YLim=ax.YLim;
XLim=ax.XLim;
ax.PlotBoxAspectRatio=[2,1,1];
ax.Color=[249,222,203]./255;
ax.TickLength=[0,0];
maxY=YLim(1)+diff(YLim)*3/5;
minY=YLim(1)+diff(YLim)*2/5;



% 修改蜡烛图配色 ===========================================================
rColor=[133,168,142]./255;
gColor=[9,28,48]./255; 

% 获取竖直线数据
LineHdl=CHdl(1);
LineDataX=reshape(LineHdl.XData,3,[]);
ax.XLim=[LineDataX(1,1),LineDataX(1,end)];
LineDataY=reshape(LineHdl.YData,3,[]);
scatter(XLim(1)+diff(XLim)/6,YLim(2)-diff(YLim)/8,500,'filled','CData',[254,247,241]./255)
fill([LineDataX(1,1)-1,LineDataX(1,1)-1,LineDataX(1,:),LineDataX(1,end)+1,LineDataX(1,end)+1],...
    [minY,LineDataY(1,1),LineDataY(1,:),LineDataY(1,end),minY],[173,198,169]./270,'EdgeColor','none');

for i=2:length(CHdl)
    if CHdl(i).FaceColor(1)==1
        plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',rColor)
        fill(CHdl(i).XData,CHdl(i).YData,rColor,'EdgeColor',rColor)
    else
        plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',gColor)
        fill(CHdl(i).XData,CHdl(i).YData,gColor,'EdgeColor',gColor)
    end
end 
delete(LineHdl);
fill([XLim(1)-1,XLim(2)+1,XLim(2)+1,XLim(1)-1],[YLim(1),YLim(1),minY,minY],[134,168,152]./255,'EdgeColor','none')


% 绘制柱状图 ===============================================================
YData=Data.Close-Data.Open;
absYData=abs(YData);
absYData1=absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;
absYData2=-absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;
disp(char([64 97 117 116 104 111 114 32 58 32 115 108 97 110 100 97 114 101 114]))
bar(Data.Time(YData>0),absYData1(YData>0),'BaseValue',minY,'EdgeColor','none','FaceColor',[140,141,127]./255,'BarWidth',1);
bar(Data.Time(YData<0),absYData1(YData<0),'BaseValue',minY,'EdgeColor','none','FaceColor',[76,79,60]./255,'BarWidth',1);


% 绘制下方山脉 =============================================================
layerBEPos=linspace(minY,YLim(1),6)';layerBEPos([1,end])=[];
layerColor=[107,144,136;97,103,103;57,82,86;14,23,22]./255;
disp(char([64 97 117 116 104 111 114 32 58 32 115 108 97 110 100 97 114 101 114]))
excursion=diff(YLim)/30;
interval=diff(YLim)/50;

pieceNum=30;
layerPos=zeros(size(layerBEPos,1),pieceNum);
layerPos(:,1)=layerBEPos(:,1);
layerPos=[ones(1,pieceNum).*minY;layerPos];

minX=LineDataX(1,1)-1;
maxX=LineDataX(1,end)+1;

for i=2:size(layerBEPos,1)+1
    k=2;
    for j=1:pieceNum-1
        tempRandi=excursion*2*rand(1)-excursion;
        yPos=tempRandi+layerPos(i,k-1);
        if i>1&&yPos>=layerPos(i-1,k)-diff(YLim)/100
            yPos=layerPos(i-1,k)-interval;
        end
        yPos(yPos<YLim(1))=YLim(1);
        layerPos(i,k)=yPos;
        k=k+1;
    end   
end
for i=2:size(layerBEPos,1)+1
    XData=linspace(minX,maxX,pieceNum);
    YData=layerPos(i,:);
    Yq=interp1(XData,YData,linspace(minX,maxX,200),'spline');
    Xq=[minX,linspace(minX,maxX,200),maxX];
    Yq=[YLim(1),Yq,YLim(1)];
    fill(Xq,Yq,layerColor(i-1,:),'EdgeColor','none')
end

效果三 黑白

% @author : slandarer
% gzh  : slandarer随笔

load SimulatedStock.mat;
Data=TMW(end-200:end-50,:);
CHdl=candle(Data,'b');
title('Candlestick chart for TMW')


% 坐标区域基础修饰 =========================================================
fig=gcf;
set(fig,'Units','normalized','Position',[.1,.1,.6,.8])
ax=gca;hold on;axis tight;grid off
YLim=ax.YLim;
ax.YLim=ax.YLim+[-3,6].*diff(YLim);
YLim=ax.YLim;
XLim=ax.XLim;
ax.PlotBoxAspectRatio=[1,1,1];
ax.Color=[0,0,0]./255;
ax.TickLength=[0,0];
maxY=YLim(1)+diff(YLim)*2.5/10;
minY=YLim(1)+diff(YLim)*1.5/10;

% 绘制星星 =================================================================
Xs=diff(XLim).*rand([50,1])+XLim(1);
Ys=(YLim(2)-maxY).*rand([50,1])+maxY;
scatter(Xs,Ys,3,'filled','CData',[.9,.9,.9]);
Xs=diff(XLim).*rand([50,1])+XLim(1);
Ys=(YLim(2)-maxY).*rand([50,1])+maxY;
scatter(Xs,Ys,5,'filled','CData',[.7,.7,.7]);

% 修改蜡烛图配色 ===========================================================
rColor=[255,255,255]./255;
gColor=[9,28,48]./255; 
% 获取竖直线数据
LineHdl=CHdl(1);
LineDataX=reshape(LineHdl.XData,3,[]);
ax.XLim=[LineDataX(1,1),LineDataX(1,end)];
LineDataY=reshape(LineHdl.YData,3,[]);
scatter(XLim(1)+diff(XLim)/6,YLim(2)-diff(YLim)/8,500,'filled','CData',[254,247,241]./255)
fill([XLim(1)-3,XLim(2)+3,XLim(2)+3,XLim(1)-3],[YLim(1),YLim(1),minY,minY],[255,255,255]./255,'EdgeColor','none')
fill([LineDataX(1,1)-3,LineDataX(1,1)-3,LineDataX(1,:),LineDataX(1,end)+3,LineDataX(1,end)+3],...
    [minY,LineDataY(1,1),LineDataY(1,:),LineDataY(1,end),minY],[255,255,255]./270);

for i=2:length(CHdl)
    if CHdl(i).FaceColor(1)==1
        plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',rColor)
        fill(CHdl(i).XData,CHdl(i).YData,rColor,'EdgeColor',rColor)
    else
        plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',gColor)
        fill(CHdl(i).XData,CHdl(i).YData,gColor,'EdgeColor',gColor)
    end
end 
delete(LineHdl);

% 绘制柱状图 ===============================================================
YData=Data.Close-Data.Open;
absYData=abs(YData);
absYData1=absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;
absYData2=-absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;
disp(char([64 97 117 116 104 111 114 32 58 32 115 108 97 110 100 97 114 101 114]))
bar(Data.Time(YData>0),absYData1(YData>0),'BaseValue',minY,'EdgeColor','none','FaceColor',[10,10,10]./255,'BarWidth',1);
bar(Data.Time(YData<0),absYData1(YData<0),'BaseValue',minY,'EdgeColor','none','FaceColor',[76,79,60]./255,'BarWidth',1);


% 绘制下方山脉 =============================================================
layerBEPos=linspace(minY,YLim(1),4)';layerBEPos([1,end])=[];
layerColor=[255,255,255;10,10,10]./255;
disp(char([64 97 117 116 104 111 114 32 58 32 115 108 97 110 100 97 114 101 114]))
excursion=diff(YLim)/40;
interval=diff(YLim)/50;

pieceNum=30;
layerPos=zeros(size(layerBEPos,1),pieceNum);
layerPos(:,1)=layerBEPos(:,1);
layerPos=[ones(1,pieceNum).*minY;layerPos];

minX=LineDataX(1,1)-1;
maxX=LineDataX(1,end)+1;

for i=2:size(layerBEPos,1)+1
    k=2;
    for j=1:pieceNum-1
        tempRandi=excursion*2*rand(1)-excursion;
        yPos=tempRandi+layerPos(i,k-1);
        if i>1&&yPos>=layerPos(i-1,k)-diff(YLim)/100
            yPos=layerPos(i-1,k)-interval;
        end
        yPos(yPos<YLim(1))=YLim(1);
        layerPos(i,k)=yPos;
        k=k+1;
    end   
end
for i=2:size(layerBEPos,1)+1
    XData=linspace(minX,maxX,pieceNum);
    YData=layerPos(i,:);
    Yq=interp1(XData,YData,linspace(minX,maxX,200),'spline');
    Xq=[minX,linspace(minX,maxX,200),maxX];
    Yq=[YLim(1),Yq,YLim(1)];
    fill(Xq,Yq,layerColor(i-1,:),'EdgeColor',[.4,.4,.4],'LineWidth',.8)
end

到此这篇关于利用Matlab绘制优美的k线图的文章就介绍到这了,更多相关Matlab绘制k线图内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！

您可能感兴趣的文章:

相关文章

  • C++的template模板中class与typename关键字的区别分析

    C++的template模板中class与typename关键字的区别分析

    这篇文章中我们来谈一谈C++的template模板中class与typename关键字的区别分析,同时会讲到嵌套从属名称时的一些注意点,需要的朋友可以参考下
    2016-06-06
  • 详解C语言中telldir()函数和seekdir()函数的用法

    详解C语言中telldir()函数和seekdir()函数的用法

    这篇文章主要介绍了详解C语言中telldir()函数和seekdir()函数的用法,是C语言入门学习中的基础知识,需要的朋友可以参考下
    2015-09-09
  • 详解C++设计模式编程中建造者模式的实现

    详解C++设计模式编程中建造者模式的实现

    这篇文章主要介绍了C++设计模式编程中建造者模式的实现,建造者模式将一个复杂对象的构建于它的表现分离,可以减少代码冗余,需要的朋友可以参考下
    2016-03-03
  • 浅谈C语言的字符串分割

    浅谈C语言的字符串分割

    下面小编就为大家带来一篇浅谈C语言的字符串分割。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧
    2016-05-05
  • C++ OpenCV技术实战之身份证离线识别

    C++ OpenCV技术实战之身份证离线识别

    OpenCV身份证离线识别技术的主要技术就是通过OpenCV找到身份证号码区域，然后通过OCR进行数字识别该区域的截图即可得到身份证号码。感兴趣的可以了解一下
    2021-12-12
  • 解决C++中事件不响应的方法详解

    解决C++中事件不响应的方法详解

    本篇文章是对C++事件不响应的解决方法进行了详细的分析介绍，需要的朋友参考下
    2013-05-05
  • 基于C++实现五子棋小游戏

    基于C++实现五子棋小游戏

    这篇文章主要为大家详细介绍了基于C++实现五子棋小游戏，文中示例代码介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
    2022-05-05
  • C++如何实现二叉树链表

    C++如何实现二叉树链表

    这篇文章主要介绍了C++如何实现二叉树链表，具有很好的参考价值，希望对大家有所帮助。如有错误或未考虑完全的地方，望不吝赐教
    2022-07-07
  • C++如何实现简单的计时器详解

    C++如何实现简单的计时器详解

    因为最近闲着无聊就想着要不用C++写点什么东西，仔细想了想其实自己的C++学的也不怎么好，写个简单的计时器吧！所以下面这篇文章主要介绍了利用C++如何实现简单的计时器,需要的朋友可以参考借鉴，下面来一起看看吧。
    2017-01-01
  • xxx_cast类型转换的实现方法

    xxx_cast类型转换的实现方法

    下面小编就为大家带来一篇xxx_cast类型转换的实现方法。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧
    2016-12-12

最新评论