MATLAB | 面积图、饼状图、水平柱状图的斜线填充(阴影填充)
没想到叭，阴影柱状图仅仅一天就迎来了(1.5.1)版本，已经支持水平柱状图绘制！！同时本人又连夜赶制了另外两款相关的阴影图绘制函数：
来来来，后文马上介绍一下这三款函数。
另：代码开发基于polyshape对象，阴影柱状图绘制函数理论上需要至少R2017b及之后版本才能使用(越新越好)。(polyshape yyds)
区域填充函数
先讲解此函数如何使用，再在此部分最后给出完整代码：
基本使用
设置为角度为pi/3，80根线条进行填充：
t=0:.01:2*pi;
X=cos(t);
Y=sin(t);
plot(X,Y,'LineWidth',2);
hold on;axis equal
shadowFill(X,Y,pi/3,80);
绘制阴影面积图
t=0:.01:2*pi;
y=sin(t);
plot(t,y,'LineWidth',2);
hold on;axis equal
shadowFill(t,y,pi/4,80);
绘制两函数中间区域
这个就比较复杂了，给个例子：
t=-.1:.01:pi/2;
y1=sin(t).*2;
y2=t.^2;
hold on
plot(t,y1,'LineWidth',2);
plot(t,y2,'LineWidth',2);
diffy=y1-y2;
tpos=find(diffy>=0);
T=[t(tpos(1):tpos(end)),t(tpos(end):-1:tpos(1))];
Y=[y1(tpos(1):tpos(end)),y2(tpos(end):-1:tpos(1))];
shadowFill(T,Y,pi/5,70);
设置填充颜色和格式
t=-.1:.01:pi/2;
y1=sin(t).*2;
y2=t.^2;
hold on
plot(t,y1,'LineWidth',2);
plot(t,y2,'LineWidth',2);
diffy=y1-y2;
tpos=find(diffy>=0);
T=[t(tpos(1):tpos(end)),t(tpos(end):-1:tpos(1))];
Y=[y1(tpos(1):tpos(end)),y2(tpos(end):-1:tpos(1))];
shadowFill(T,Y,pi/5,70,'LineStyle',':','Color',[.2,.2,.9]);
工具函数完整代码
function SF=shadowFill(X,Y,theta,num,varargin)
% @author : slandarer
% gzh : slandarer随笔
if theta>pi/2||theta<-pi/2
error('Inner theta should be in range of [-pi/2,pi/2]');
end
% 基础属性获取
ax=gca;hold on;
try
pshape=polyshape(X,Y);
catch
end
XYmin=[min(X),min(Y)];
XYmax=[max(X),max(Y)];
diffY=max(Y)-min(Y);
% 获取阴影线数值
if abs(theta)<eps
YY=linspace(XYmin(2),XYmax(2),num);
tXX=zeros(3,num);tYY=zeros(3,num);
for i=1:num
[in,~]=intersect(pshape,[XYmin(1),YY(i);XYmax(2),YY(i)]);
if ~isempty(in)
tXX(:,i)=[in(1,1);in(end,1);nan];
tYY(:,i)=[in(1,2);in(end,2);nan];
else
tXX(:,i)=[nan;nan;nan];
tYY(:,i)=[nan;nan;nan];
end
end
else
cott=cot(theta);
XX1=linspace(XYmin(1)-cott.*diffY,XYmax(1),num);
XX2=linspace(XYmin(1),XYmax(1)+cott.*diffY,num);
tXX=zeros(3,num);tYY=zeros(3,num);
for i=1:num
[in,~]=intersect(pshape,[XX1(i),XYmin(2);XX2(i),XYmax(2)]);
if ~isempty(in)
tXX(:,i)=[in(1,1);in(end,1);nan];
tYY(:,i)=[in(1,2);in(end,2);nan];
else
tXX(:,i)=[nan;nan;nan];
tYY(:,i)=[nan;nan;nan];
end
end
end
% 绘制阴影
SF=plot(ax,tXX(:),tYY(:),'LineWidth',.5,'Color',[0,0,0],varargin{:},'Tag','shadowFill');
end
阴影饼状图
阴影有：
\,/,_,|,+,x,.,w,k,g
十种格式，可以自己都试一下：
基本使用
X=[1 3 0.5 2.5 2];
SP=shadowPie(X,'ShadowType',{'/','.','|','+','x'});
SP=SP.draw();
带偏移饼图
X=[1 3 0.5 2.5 2];
explode=[0 1 0 5 0];
SP=shadowPie(X,explode,'ShadowType',{'/','.','|','+','x'});
SP=SP.draw();
添加图例
X=[1 3 0.5 2.5 2];
explode=[0 1 0 5 0];
SP=shadowPie(X,explode,'ShadowType',{'/','.','|','+','x'});
SP=SP.draw();
SP.legend({'AAA','BBB','CCC','DDD','EEE'},'FontSize',13,'FontName','Cambria');
图例可能会被标签信息挡住，可以自行拖拽图例到其他位置：
基本修饰
阴影、柱状图框、图例框分别具有pieShadow,pieBox,lgdBox的标签，使用findobj获取对象并循环修饰即可，不过为了绘制更好看，部分阴影使用plot绘制部分则是使用scatter绘制，因此阴影修饰时要用if先检测一下格式，给个示例：
X=[1 3 0.5 2.5 2];
explode=[0 1 0 5 0];
SP=shadowPie(X,explode,'ShadowType',{'/','.','|','+','x'});
SP=SP.draw();
SP.legend({'AAA','BBB','CCC','DDD','EEE'},'FontSize',13,'FontName','Cambria');
% 修饰文字
textHdl=findobj('Tag','pieText');
for i=1:length(textHdl)
textHdl(i).FontName='Cambria';
textHdl(i).FontSize=14;
textHdl(i).Color=[0,0,.8];
end
% 修饰阴影变成红色并加粗
shadowHdl=findobj('Tag','pieShadow');
for i=1:length(shadowHdl)
if isa(shadowHdl(i),'matlab.graphics.chart.primitive.Line')
shadowHdl(i).Color=[.8,.6,.6];
shadowHdl(i).LineWidth=1;
else
shadowHdl(i).MarkerFaceColor=[.8,.6,.6];
shadowHdl(i).SizeData=5;
end
end
光看上面代码大佬们应该就已经懂了咋用，如果比较小白，可以直接使用MATLAB自带的属性修饰器：
点击：查看->属性编辑器
点击选中对象即可立即修饰颜色、粗细等各种格式：
工具函数完整代码
classdef shadowPie
% @author : slandarer
% gzh : slandarer随笔
properties
ax,XData,num
shadowTypeList={'\','/','_','|','+','x','.','w','k','g'}
shadowType % 阴影类型
otherProp % 其他初始属性
oriPieHdl % 原始图形句柄
newPieHdl
pshapeHdl % polyshape图形句柄
lineNum=85 % 阴影基础线数量
oriLegend;XYRate;nonePieHdl
lL_X1;lL_X2;cL_X1;cL_X2;hL_X1;hL_X2;XMesh;YMesh
end
methods
function obj=shadowPie(varargin)
% 基础属性设置
obj.XData=varargin{1};varargin(1)=[];
if any(strcmpi('shadowType',varargin))
tind=find(strcmpi('shadowType',varargin));
obj.shadowType=varargin{tind+1};
varargin([tind,tind+1])=[];
else
obj.shadowType=obj.shadowTypeList;
end
if any(strcmpi('lineNum',varargin))
tind=find(strcmpi('lineNum',varargin));
obj.lineNum=varargin{tind+1};
varargin([tind,tind+1])=[];
end
obj.otherProp=varargin;
obj.num=length(obj.XData);
help shadowPie
end
function obj=draw(obj)
% 基础绘图
obj.oriPieHdl=pie(obj.XData,obj.otherProp{:});
obj.ax=gca;hold(obj.ax,'on');
% 一些基础线
obj.lL_X1=linspace(-1.5-6,1.5,obj.lineNum);
obj.lL_X2=linspace(-1.5,1.5+6,obj.lineNum);
obj.cL_X1=linspace(-1.5-3,1.5,obj.lineNum);
obj.cL_X2=linspace(-1.5,1.5+3,obj.lineNum);
obj.hL_X1=linspace(-1.5,1.5,obj.lineNum);
obj.hL_X2=linspace(-1.5,1.5,obj.lineNum);
[obj.XMesh,obj.YMesh]=meshgrid(linspace(-1.5,1.5,obj.lineNum));
n=1;
for i=1:length(obj.oriPieHdl)
if isa(obj.oriPieHdl(i),'matlab.graphics.primitive.Patch')
obj.newPieHdl(n)=obj.oriPieHdl(i);
obj.oriPieHdl(i).Tag='pieBox';
n=n+1;
else
obj.oriPieHdl(i).Tag='pieText';
end
end
n=1;
for i=1:length(obj.oriPieHdl)
if isa(obj.oriPieHdl(i),'matlab.graphics.primitive.Patch')
obj.oriPieHdl(i).FaceColor=[1,1,1];
obj.oriPieHdl(i).LineWidth=.8;
tPolyPhape=polyshape(obj.oriPieHdl(i).XData,obj.oriPieHdl(i).YData);
tType=mod(n-1,length(obj.shadowType))+1;
switch obj.shadowType{tType}
case '\'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.lL_X1(k),1.5;obj.lL_X2(k),-1.5]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','pieShadow')
case '/'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.lL_X1(k),-1.5;obj.lL_X2(k),1.5]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','pieShadow')
case '_'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[-1.5,obj.hL_X1(k);1.5,obj.hL_X2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','pieShadow')
case '|'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.hL_X1(k),-1.5;obj.hL_X2(k),1.5]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','pieShadow')
case '+'
tXX1=zeros([3,obj.lineNum]);tYY1=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[-1.5,obj.hL_X1(k);1.5,obj.hL_X2(k)]);
if ~isempty(in)
tXX1(:,k)=[in(1,1);in(end,1);nan];
tYY1(:,k)=[in(1,2);in(end,2);nan];
else
tXX1(:,k)=[nan;nan;nan];
tYY1(:,k)=[nan;nan;nan];
end
end
tXX2=zeros([3,obj.lineNum]);tYY2=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.hL_X1(k),-1.5;obj.hL_X2(k),1.5]);
if ~isempty(in)
tXX2(:,k)=[in(1,1);in(end,1);nan];
tYY2(:,k)=[in(1,2);in(end,2);nan];
else
tXX2(:,k)=[nan;nan;nan];
tYY2(:,k)=[nan;nan;nan];
end
end
plot([tXX1(:);nan;tXX2(:)],[tYY1(:);nan;tYY2(:)],'Color',[0,0,0],'LineWidth',.5,'Tag','pieShadow')
case 'x'
tXX1=zeros([3,obj.lineNum]);tYY1=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.cL_X1(k),1.5;obj.cL_X2(k),-1.5]);
if ~isempty(in)
tXX1(:,k)=[in(1,1);in(end,1);nan];
tYY1(:,k)=[in(1,2);in(end,2);nan];
else
tXX1(:,k)=[nan;nan;nan];
tYY1(:,k)=[nan;nan;nan];
end
end
tXX2=zeros([3,obj.lineNum]);tYY2=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.cL_X1(k),-1.5;obj.cL_X2(k),1.5]);
if ~isempty(in)
tXX2(:,k)=[in(1,1);in(end,1);nan];
tYY2(:,k)=[in(1,2);in(end,2);nan];
else
tXX2(:,k)=[nan;nan;nan];
tYY2(:,k)=[nan;nan;nan];
end
end
plot([tXX1(:);nan;tXX2(:)],[tYY1(:);nan;tYY2(:)],'Color',[0,0,0],'LineWidth',.5,'Tag','pieShadow')
case '.'
tXX=obj.XMesh(:);tYY=obj.YMesh(:);
tbool=isinterior(tPolyPhape,tXX(:),tYY(:));
scatter(tXX(tbool),tYY(tbool),2,'filled','o','MarkerEdgeColor','none','MarkerFaceColor',[0,0,0],'Tag','pieShadow')
case 'w'
obj.oriPieHdl(i).FaceColor=[1,1,1];
case 'k'
obj.oriPieHdl(i).FaceColor=[0,0,0];
case 'g'
obj.oriPieHdl(i).FaceColor=[.5,.5,.5];
end
n=n+1;
end
end
end
function obj=legend(obj,cellStr,varargin)
obj.nonePieHdl=pie(obj.XData,obj.otherProp{:});
nn=1;
for n=1:length(obj.nonePieHdl)
if isa(obj.nonePieHdl(n),'matlab.graphics.primitive.Patch')
obj.nonePieHdl(n).FaceColor='none';
obj.nonePieHdl(n).EdgeColor='none';
newNonePieHdl(nn)=obj.nonePieHdl(n);
nn=nn+1;
else
obj.nonePieHdl(n).Visible='off';
end
end
obj.oriLegend=legend(newNonePieHdl,cellStr,varargin{:});
obj.oriLegend.AutoUpdate='off';
obj.oriLegend.Box='off';
obj.ax.XLim=obj.ax.XLim;
obj.ax.YLim=obj.ax.YLim;
% 框重定位
tlgdPos=obj.oriLegend.Position;
taxPos=obj.ax.Position;
taxXLim=obj.ax.XLim;
taxYLim=obj.ax.YLim;
tfigRate=obj.ax.Parent.Position(3:4);
tfigRate=tfigRate.*taxPos(3:4);tfigRate=tfigRate./min(tfigRate);
taxXLim=taxXLim.*tfigRate(1);
taxYLim=taxYLim.*tfigRate(2);
tXYMin=(tlgdPos(1:2)-taxPos(1:2))./taxPos(3:4).*[diff(taxXLim),diff(taxYLim)]+[taxXLim(1),taxYLim(1)];
tXYMax=(tlgdPos(1:2)+tlgdPos(3:4)-taxPos(1:2))./taxPos(3:4).*[diff(taxXLim),diff(taxYLim)]+[taxXLim(1),taxYLim(1)];
boxHdl=fill([tXYMin(1),tXYMax(1),tXYMax(1),tXYMin(1)],[tXYMin(2),tXYMin(2),tXYMax(2),tXYMax(2)],[1,1,1],'Tag','lgdBox');
for n=1:length((obj.newPieHdl))
ttType=mod(n-1,length(obj.shadowType))+1;
squareHdl(n)=fill([0,0,0],[0,0,0],[1,1,1],'EdgeColor',[0,0,0],'LineWidth',.7,'Tag','pieBox');
if strcmp(obj.shadowType{ttType},'.')
lgdLineHdl(n)=scatter(0,0,2,'filled','o','MarkerEdgeColor','none','MarkerFaceColor',[0,0,0],'Tag','pieShadow');
else
lgdLineHdl(n)=plot(0,0,'Color',[0,0,0],'LineWidth',.5,'Tag','barBox','Tag','pieShadow');
end
end
moveLgd()
set(obj.ax.Parent,'WindowButtonMotionFcn',@moveLgd);
function moveLgd(~,~)
% 框重定位
lgdPos=obj.oriLegend.Position;
axPos=obj.ax.Position;
axXLim=obj.ax.XLim;
axYLim=obj.ax.YLim;
figRate=obj.ax.Parent.Position(3:4);
figRate=figRate.*axPos(3:4);figRate=figRate./min(figRate);
axXLim=axXLim.*figRate(1);
axYLim=axYLim.*figRate(2);
XYMin=(lgdPos(1:2)-axPos(1:2))./axPos(3:4).*[diff(axXLim),diff(axYLim)]+[axXLim(1),axYLim(1)];
XYMax=(lgdPos(1:2)+lgdPos(3:4)-axPos(1:2))./axPos(3:4).*[diff(axXLim),diff(axYLim)]+[axXLim(1),axYLim(1)];
boxHdl.XData=[XYMin(1),XYMax(1),XYMax(1),XYMin(1)];
boxHdl.YData=[XYMin(2),XYMin(2),XYMax(2),XYMax(2)];
Y=XYMin(2)+(XYMax(2)-XYMin(2)).*linspace(1/length(obj.newPieHdl)/2+1/50,1-1/length(obj.newPieHdl)/2-1/50,length(obj.newPieHdl));
obj.XYRate=diff(obj.ax.YLim)./diff(obj.ax.XLim);
PBA=obj.ax.PlotBoxAspectRatio(2)./obj.ax.PlotBoxAspectRatio(1)./0.7896;
Y=fliplr(Y);
for i=1:length((obj.newPieHdl))
tX=XYMin(1)+(XYMax(2)-XYMin(2))./2./length(obj.newPieHdl).*[1/10,.95,.95,1/10].*(PBA./obj.XYRate.*3);
tY=Y(i)+0.75.*[-1,-1,1,1].*(XYMax(2)-XYMin(2))./2./length(obj.newPieHdl);
squareHdl(i).XData=tX;
squareHdl(i).YData=tY;
tPolyPhape=polyshape(tX,tY);
tType=mod(i-1,length(obj.shadowType))+1;
switch obj.shadowType{tType}
case '\'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.lL_X1(k),1.5;obj.lL_X2(k),-1.5]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case '/'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.lL_X1(k),-1.5;obj.lL_X2(k),1.5]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case '_'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[-1.5,obj.hL_X1(k);1.5,obj.hL_X2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case '|'
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.hL_X1(k),-1.5;obj.hL_X2(k),1.5]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case '+'
tXX1=zeros([3,obj.lineNum]);tYY1=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[-1.5,obj.hL_X1(k);1.5,obj.hL_X2(k)]);
if ~isempty(in)
tXX1(:,k)=[in(1,1);in(end,1);nan];
tYY1(:,k)=[in(1,2);in(end,2);nan];
else
tXX1(:,k)=[nan;nan;nan];
tYY1(:,k)=[nan;nan;nan];
end
end
tXX2=zeros([3,obj.lineNum]);tYY2=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.hL_X1(k),-1.5;obj.hL_X2(k),1.5]);
if ~isempty(in)
tXX2(:,k)=[in(1,1);in(end,1);nan];
tYY2(:,k)=[in(1,2);in(end,2);nan];
else
tXX2(:,k)=[nan;nan;nan];
tYY2(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=[tXX1(:);nan;tXX2(:)];
lgdLineHdl(i).YData=[tYY1(:);nan;tYY2(:)];
case 'x'
tXX1=zeros([3,obj.lineNum]);tYY1=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.cL_X1(k),1.5;obj.cL_X2(k),-1.5]);
if ~isempty(in)
tXX1(:,k)=[in(1,1);in(end,1);nan];
tYY1(:,k)=[in(1,2);in(end,2);nan];
else
tXX1(:,k)=[nan;nan;nan];
tYY1(:,k)=[nan;nan;nan];
end
end
tXX2=zeros([3,obj.lineNum]);tYY2=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[obj.cL_X1(k),-1.5;obj.cL_X2(k),1.5]);
if ~isempty(in)
tXX2(:,k)=[in(1,1);in(end,1);nan];
tYY2(:,k)=[in(1,2);in(end,2);nan];
else
tXX2(:,k)=[nan;nan;nan];
tYY2(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=[tXX1(:);nan;tXX2(:)];
lgdLineHdl(i).YData=[tYY1(:);nan;tYY2(:)];
case '.'
tXX=obj.XMesh(:);tYY=obj.YMesh(:);
tbool=isinterior(tPolyPhape,tXX(:),tYY(:));
lgdLineHdl(i).XData=tXX(tbool);
lgdLineHdl(i).YData=tYY(tbool);
case 'w'
squareHdl(i).FaceColor=[1,1,1];
case 'k'
squareHdl(i).FaceColor=[0,0,0];
case 'g'
squareHdl(i).FaceColor=[.5,.5,.5];
end
end
end
end
end
end
未经允许本代码请勿作商业用途，引用的话可以引用我file exchange上的链接，可使用如下格式：
Zhaoxu Liu (2022). pie with shadow 阴影饼图 (https://www.mathworks.com/matlabcentral/fileexchange/117045-pie-with-shadow), MATLAB Central File Exchange. 检索来源 2022/9/1.
若转载请保留以上file exchange链接及本文链接！！！
水平阴影柱状图
绘图方式基本和这篇所示一模一样:
https://blog.csdn.net/slandarer/article/details/126641909
水平柱状图示例
只需要将'Horizontal'属性设置为,'on'即可：
基本使用：
y=[2 2 3 2 5; 2 5 6 2 5; 9 8 9 2 5];
SH=shadowHist(y,'ShadowType',{'/','\','.','x','|'},'Horizontal','on');
SH=SH.draw();
含负值：
y=[2 2 -3 -2 -5; -2 -5 6 2 5; 9 8 9 2 5];
SH=shadowHist(y,'ShadowType',{'/','\','.','x','|'},'Horizontal','on');
SH=SH.draw();
堆叠：
y=[2 2 -3 -2 -5; -2 -5 6 2 5; 9 8 9 2 5; -3 -5 6 2 5; 4 8 5 2 5];
SH=shadowHist(y,'ShadowType',{'/','\','.','x','|'},'stacked','Horizontal','on');
SH=SH.draw();
添加图例：
y=[2 2 3 2 5; 2 5 6 2 5; 9 8 9 2 5];
SH=shadowHist(y,'ShadowType',{'/','\','.','_','+'},'Horizontal','on');
SH=SH.draw();
SH=SH.legend({'AAAAAAA','BBBBBBB','CCCCCCC','DDDDDDD','EEEEEEE'},'FontName','Arial','FontSize',11);
全部阴影格式：
y=[2 2 3 2 5 4 2 2 2 1;2 2 3 2 5 4 2 4 3 6];
SH=shadowHist(y,'ShadowType',{'/','\','x','.','_','|','+','w','k','g'},'Horizontal','on');
SH=SH.draw();
SH=SH.legend({'A','B','C','D','E','F','G','H','I','J'});
工具函数完整代码
classdef shadowHist
% @author : slandarer
% gzh : slandarer随笔
% 使用示例：
% =========================================================================
% y=[2 2 3 2 5; 2 5 6 2 5; 9 8 9 2 5];
%
% SH=shadowHist(y,'ShadowType',{'/','\','.','x','|'});
% SH=SH.draw();
properties
ax % 绘图坐标区域
YData % 数值矩阵
shadowTypeList={'\','/','_','|','+','x','.','w','k','g'}
shadowType % 阴影类型
otherProp % 其他初始属性
oriBarHdl % 原始图形句柄
newBarHdl
pshapeHdl % polyshape图形句柄
groupNum % 组数
classNum % 类数
YEndMat % 末端y值
maxY % 最大Y值
minY=0 % 最小Y值
diffY % Y值之差
BarW % 宽度
YSep1 % linspace(obj.minY,obj.maxY+.02.*obj.diffY,obj.lineNum)
YSep2
XMean % 每组柱状图每个柱子的中心位置
lineNum=90 % 阴影基础线数量
XYRate
SHLegend
oriLegend
end
methods
function obj=shadowHist(varargin)
% 基础属性设置
if isa(varargin{1},'matlab.graphics.axis.Axes')
obj.ax=varargin{1};varargin(1)=[];
else
obj.ax=gca;
end
hold(obj.ax,'on');
obj.YData=varargin{1};varargin(1)=[];
if any(strcmpi('shadowType',varargin))
tind=find(strcmpi('shadowType',varargin));
obj.shadowType=varargin{tind+1};
varargin([tind,tind+1])=[];
else
obj.shadowType=obj.shadowTypeList;
end
obj.otherProp=varargin;
help shadowHist
end
function obj=draw(obj)
% 基础绘图
obj.oriBarHdl=bar(obj.ax,obj.YData,obj.otherProp{:},'Tag','barBox');
obj.XYRate=diff(obj.ax.YLim)./diff(obj.ax.XLim);
% 更多属性获取
obj.YEndMat=zeros([length(obj.oriBarHdl),length(obj.oriBarHdl(1).XData)]);
for i=1:length(obj.oriBarHdl)
obj.YEndMat(i,:)=obj.oriBarHdl(i).YEndPoints;
end
obj.maxY=max(obj.YEndMat,[],[1,2]);
obj.minY=min(0,min(obj.YEndMat,[],[1,2]));
obj.diffY=obj.maxY-obj.minY;
obj.classNum=length(obj.oriBarHdl);
obj.groupNum=length(obj.oriBarHdl(1).XData);
% 计算柱状图宽度和位置
% obj.XMean=linspace(-obj.classNum+1,obj.classNum-1,obj.classNum)./(3+2*obj.classNum);
for i=1:obj.classNum
obj.XMean(i)=obj.oriBarHdl(i).XEndPoints(1)-1;
end
tXMean=[obj.XMean,1];obj.BarW=(tXMean(2)-tXMean(1))./2.*obj.oriBarHdl(1).BarWidth;
if strcmp(obj.oriBarHdl(1).BarLayout,'stacked')
obj.BarW=1./2.*obj.oriBarHdl(1).BarWidth;
end
% if strcmp(obj.oriBarHdl(1).Horizontal,'on')
% YY1=linspace(obj.oriBarHdl(1).XEndPoints(1),obj.oriBarHdl(end).XEndPoints(end)+2*obj.BarW,obj.lineNum)';
% YY2=linspace(obj.oriBarHdl(1).XEndPoints(1)-2*obj.BarW,obj.oriBarHdl(end).XEndPoints(end),obj.lineNum)';
% obj.YSep1=YY1(1)-YY2(2);obj.YSep2=YY1(2)-YY1(1);
% else
YY1=linspace(obj.minY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
YY2=linspace(obj.minY-.02.*obj.diffY,obj.maxY,obj.lineNum)';
obj.YSep1=YY1(1)-YY2(2);obj.YSep2=YY1(2)-YY1(1);
% end
% 循环绘制阴影
for i=1:obj.classNum
obj.oriBarHdl(i).FaceColor='none';
obj.oriBarHdl(i).LineWidth=.8;
if strcmp(obj.oriBarHdl(1).BarLayout,'stacked')
obj.oriBarHdl(i).LineWidth=.8;
end
tType=mod(i-1,length(obj.shadowType))+1;
switch obj.shadowType{tType}
case 'w',obj.oriBarHdl(i).FaceColor=[1,1,1];
case 'k',obj.oriBarHdl(i).FaceColor=[0,0,0];
case 'g',obj.oriBarHdl(i).FaceColor=[.5,.5,.5];
end
for j=1:obj.groupNum
tX=[-1,1,1,-1].*obj.BarW+obj.XMean(i)+j;
tY=[obj.oriBarHdl(i).YEndPoints(j)-obj.oriBarHdl(i).YData(j),...
obj.oriBarHdl(i).YEndPoints(j)-obj.oriBarHdl(i).YData(j),...
obj.oriBarHdl(i).YEndPoints(j),...
obj.oriBarHdl(i).YEndPoints(j)];
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
tPolyPhape=polyshape(tY,tX);
else
tPolyPhape=polyshape(tX,tY);
end
switch obj.shadowType{tType}
case '\'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
YY1=-1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
YY2=1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
XX1=linspace(obj.minY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
XX2=linspace(obj.minY-.02.*obj.diffY,obj.maxY,obj.lineNum)';
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
else
XX1=-1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
XX2=1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
YY1=linspace(obj.minY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
YY2=linspace(obj.minY-.02.*obj.diffY,obj.maxY,obj.lineNum)';
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
end
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
case '/'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
YY1=-1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
YY2=1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
XX1=linspace(obj.minY-.02.*obj.diffY,obj.maxY,obj.lineNum)';
XX2=linspace(obj.minY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
else
XX1=-1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
XX2=1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
YY1=linspace(obj.minY-.02.*obj.diffY,obj.maxY,obj.lineNum)';
YY2=linspace(obj.minY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
end
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
case '_'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
tXX=linspace(tX(1),tX(2),5);
if strcmp(obj.oriBarHdl(1).BarLayout,'stacked')
tXX=linspace(tX(1),tX(2),9);
end
tXX=tXX(2:end-1);
tYY=[tY(2),tY(3),nan]';
tXX=repmat(tXX,[length(tYY),1]);
tYY=repmat(tYY,[1,size(tXX,2)]);
plot(tYY(:),tXX(:),'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
else
tXX=[tX(1),tX(2),nan];
tYY=linspace(obj.minY-.02.*obj.diffY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
tYY(tYY>=max(tY))=[];tYY(tYY<=min(tY))=[];
tXX=repmat(tXX,[length(tYY),1])';
tYY=repmat(tYY,[1,size(tXX,1)])';
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
end
case '|'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
tXX=[tX(1),tX(2),nan];
tYY=linspace(obj.minY-.02.*obj.diffY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
tYY(tYY>=max(tY))=[];tYY(tYY<=min(tY))=[];
tXX=repmat(tXX,[length(tYY),1])';
tYY=repmat(tYY,[1,size(tXX,1)])';
plot(tYY(:),tXX(:),'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
else
tXX=linspace(tX(1),tX(2),5);
if strcmp(obj.oriBarHdl(1).BarLayout,'stacked')
tXX=linspace(tX(1),tX(2),9);
end
tXX=tXX(2:end-1);
tYY=[tY(2),tY(3),nan]';
tXX=repmat(tXX,[length(tYY),1]);
tYY=repmat(tYY,[1,size(tXX,2)]);
plot(tXX(:),tYY(:),'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
end
case '+'
tXX=[tX(1),tX(2),nan];
tYY=linspace(obj.minY-.02.*obj.diffY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
tYY(tYY>=max(tY))=[];tYY(tYY<=min(tY))=[];
tXX1=repmat(tXX,[length(tYY),1])';
tYY1=repmat(tYY,[1,size(tXX1,1)])';
tXX=linspace(tX(1),tX(2),5);
if strcmp(obj.oriBarHdl(1).BarLayout,'stacked')
tXX=linspace(tX(1),tX(2),9);
end
tXX=tXX(2:end-1);
tYY=[tY(2),tY(3),nan]';
tXX2=repmat(tXX,[length(tYY),1]);
tYY2=repmat(tYY,[1,size(tXX2,2)]);
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
plot([tYY1(:);nan;tYY2(:)],[tXX1(:);nan;tXX2(:)],'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
else
plot([tXX1(:);nan;tXX2(:)],[tYY1(:);nan;tYY2(:)],'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
end
case 'x'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
YY1=-1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
YY2=1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
XX1=linspace(obj.minY-obj.BarW.*2.4./obj.XYRate,obj.maxY,obj.lineNum)';
XX2=XX1+obj.BarW.*2.4./obj.XYRate;
else
XX1=-1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
XX2=1.2.*ones([obj.lineNum,1]).*obj.BarW+obj.XMean(i)+j;
YY1=linspace(obj.minY-obj.BarW.*2.4.*obj.XYRate,obj.maxY,obj.lineNum)';
YY2=YY1+obj.BarW.*2.4.*obj.XYRate;
end
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end;tXX1=tXX(:);tYY1=tYY(:);
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
XX1=linspace(obj.minY,obj.maxY+obj.BarW./2.4.*obj.XYRate,obj.lineNum)';
XX2=XX1-obj.BarW.*2.4./obj.XYRate;
else
YY1=linspace(obj.minY,obj.maxY+obj.BarW.*2.4.*obj.XYRate,obj.lineNum)';
YY2=YY1-obj.BarW.*2.4.*obj.XYRate;
end
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:obj.lineNum
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end;tXX2=tXX(:);tYY2=tYY(:);
plot([tXX1(:);nan;tXX2(:)],[tYY1(:);nan;tYY2(:)],'Color',[0,0,0],'LineWidth',.5,'Tag','barShadow')
case '.'
tXX=linspace(tX(1)+obj.BarW./4,tX(2)-obj.BarW./4,3);
if strcmp(obj.oriBarHdl(1).BarLayout,'stacked')
tXX=linspace(tX(1)+obj.BarW./8,tX(2)-obj.BarW./8,9);
end
tYY=linspace(obj.minY-.02.*obj.diffY,obj.maxY+.02.*obj.diffY,obj.lineNum)';
tYY(tYY>=max(tY))=[];tYY(tYY<=min(tY))=[];
tXX=repmat(tXX,[length(tYY),1]);
tYY=repmat(tYY,[1,size(tXX,2)]);
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
scatter(tYY(:),tXX(:),2,'filled','o','MarkerEdgeColor','none','MarkerFaceColor',[0,0,0],'Tag','barShadow')
else
scatter(tXX(:),tYY(:),2,'filled','o','MarkerEdgeColor','none','MarkerFaceColor',[0,0,0],'Tag','barShadow')
end
end
end
end
end
function obj=legend(obj,cellStr,varargin)
obj.newBarHdl=bar(obj.ax,obj.YData,obj.otherProp{:},'FaceColor','none','EdgeColor','none');
obj.oriLegend=legend(obj.newBarHdl,cellStr,varargin{:});
obj.oriLegend.AutoUpdate='off';
obj.oriLegend.Box='off';
obj.ax.XLim=obj.ax.XLim;
obj.ax.YLim=obj.ax.YLim;
tXYMin=(obj.oriLegend.Position(1:2)-obj.ax.Position(1:2))./obj.ax.Position(3:4).*[diff(obj.ax.XLim),diff(obj.ax.YLim)]+[obj.ax.XLim(1),obj.ax.YLim(1)];
tXYMax=(obj.oriLegend.Position(1:2)+obj.oriLegend.Position(3:4)-obj.ax.Position(1:2))./obj.ax.Position(3:4).*[diff(obj.ax.XLim),diff(obj.ax.YLim)]+[obj.ax.XLim(1),obj.ax.YLim(1)];
boxHdl=fill([tXYMin(1),tXYMax(1),tXYMax(1),tXYMin(1)],[tXYMin(2),tXYMin(2),tXYMax(2),tXYMax(2)],[1,1,1],'Tag','lgdBox');
for n=1:length((obj.oriBarHdl))
ttType=mod(n-1,length(obj.shadowType))+1;
squareHdl(n)=fill([0,0,0],[0,0,0],[1,1,1],'EdgeColor',[0,0,0],'LineWidth',.7,'Tag','barBox');
if strcmp(obj.shadowType{ttType},'.')
lgdLineHdl(n)=scatter(0,0,2,'filled','o','MarkerEdgeColor','none','MarkerFaceColor',[0,0,0],'Tag','barShadow');
else
lgdLineHdl(n)=plot(0,0,'Color',[0,0,0],'LineWidth',.5,'Tag','barBox','Tag','barShadow');
end
end
moveLgd()
set(obj.ax.Parent,'WindowButtonMotionFcn',@moveLgd);
function moveLgd(~,~)
XYMin=(obj.oriLegend.Position(1:2)-obj.ax.Position(1:2))./obj.ax.Position(3:4).*[diff(obj.ax.XLim),diff(obj.ax.YLim)]+[obj.ax.XLim(1),obj.ax.YLim(1)];
XYMax=(obj.oriLegend.Position(1:2)+obj.oriLegend.Position(3:4)-obj.ax.Position(1:2))./obj.ax.Position(3:4).*[diff(obj.ax.XLim),diff(obj.ax.YLim)]+[obj.ax.XLim(1),obj.ax.YLim(1)];
boxHdl.XData=[XYMin(1),XYMax(1),XYMax(1),XYMin(1)];
boxHdl.YData=[XYMin(2),XYMin(2),XYMax(2),XYMax(2)];
Y=XYMin(2)+(XYMax(2)-XYMin(2)).*linspace(1/length(obj.newBarHdl)/2+1/50,1-1/length(obj.newBarHdl)/2-1/50,length(obj.newBarHdl));
obj.XYRate=diff(obj.ax.YLim)./diff(obj.ax.XLim);
PBA=obj.ax.PlotBoxAspectRatio(2)./obj.ax.PlotBoxAspectRatio(1)./0.7896;
Y=fliplr(Y);
for i=1:length((obj.oriBarHdl))
tX=XYMin(1)+(XYMax(2)-XYMin(2))./2./length(obj.newBarHdl).*[1/10,1.18,1.18,1/10].*(PBA./obj.XYRate.*3);
tY=Y(i)+0.75.*[-1,-1,1,1].*(XYMax(2)-XYMin(2))./2./length(obj.newBarHdl);
squareHdl(i).XData=tX;
squareHdl(i).YData=tY;
tPolyPhape=polyshape(tX,tY);
tType=mod(i-1,length(obj.shadowType))+1;
switch obj.shadowType{tType}
case '\'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
XX1=((-25:1:25).*obj.YSep2-obj.YSep1+tX(1))';
XX2=((-25:1:25).*obj.YSep2+obj.YSep1+tX(2))';
YY1=ones([51,1]).*(tY(2)-0.2.*(tY(3)-tY(2))./obj.XYRate./obj.XYRate);
YY2=ones([51,1]).*(tY(3)+0.2.*(tY(3)-tY(2))./obj.XYRate./obj.XYRate);
else
XX1=ones([51,1]).*(tX(1)-.2.*(tX(2)-tX(1)));
XX2=ones([51,1]).*(tX(2)+.2.*(tX(2)-tX(1)));
YY1=((-25:1:25).*obj.YSep2+obj.YSep1+Y(i))';
YY2=((-25:1:25).*obj.YSep2-obj.YSep1+Y(i))';
end
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:51
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=tXX(:)';
lgdLineHdl(i).YData=tYY(:)';
case '/'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
XX1=((-25:1:25).*obj.YSep2+obj.YSep1+tX(2))';
XX2=((-25:1:25).*obj.YSep2-obj.YSep1+tX(1))';
YY1=ones([51,1]).*(tY(2)-0.2.*(tY(3)-tY(2))./obj.XYRate./obj.XYRate);
YY2=ones([51,1]).*(tY(3)+0.2.*(tY(3)-tY(2))./obj.XYRate./obj.XYRate);
else
XX1=ones([51,1]).*(tX(1)-.2.*(tX(2)-tX(1)));
XX2=ones([51,1]).*(tX(2)+.2.*(tX(2)-tX(1)));
YY1=((-25:1:25).*obj.YSep2-obj.YSep1+Y(i))';
YY2=((-25:1:25).*obj.YSep2+obj.YSep1+Y(i))';
end
tXX=zeros([3,obj.lineNum]);tYY=zeros([3,obj.lineNum]);
for k=1:51
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case '_'
tXX=[tX(1),tX(2),nan];
tYY=linspace(tY(2),tY(3),5)';tYY=tYY(2:4);
tXX=repmat(tXX,[length(tYY),1])';
tYY=repmat(tYY,[1,size(tXX,1)])';
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case '|'
tXX=linspace(tX(1),tX(2),11);tXX=tXX(2:end-1);
tYY=[tY(2),tY(3),nan]';
tXX=repmat(tXX,[length(tYY),1]);
tYY=repmat(tYY,[1,size(tXX,2)]);
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case '+'
tXX=[tX(1),tX(2),nan];
tYY=linspace(tY(2),tY(3),5)';tYY=tYY(2:4);
tXX1=repmat(tXX,[length(tYY),1])';
tYY1=repmat(tYY,[1,size(tXX1,1)])';
tXX=linspace(tX(1),tX(2),11);tXX=tXX(2:end-1);
tYY=[tY(2),tY(3),nan]';
tXX2=repmat(tXX,[length(tYY),1]);
tYY2=repmat(tYY,[1,size(tXX2,2)]);
lgdLineHdl(i).XData=[tXX1(:);nan;tXX2(:)];
lgdLineHdl(i).YData=[tYY1(:);nan;tYY2(:)];
case 'x'
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
XX1=((-25:1:25).*obj.YSep2-obj.YSep1+tX(1))';
XX2=XX1+((tY(3)+0.2.*(tY(3)-tY(2))./obj.XYRate)-(tY(2)-0.2.*(tY(3)-tY(2))./obj.XYRate))./obj.XYRate;
YY1=ones([51,1]).*(tY(2)-0.2.*(tY(3)-tY(2))./obj.XYRate);
YY2=ones([51,1]).*(tY(3)+0.2.*(tY(3)-tY(2))./obj.XYRate);
else
XX1=ones([51,1]).*(tX(1)-.2.*(tX(2)-tX(1)));
XX2=ones([51,1]).*(tX(2)+.2.*(tX(2)-tX(1)));
YY1=((-25:1:25).*obj.YSep2-obj.YSep1+Y(i))';
YY2=YY1+(tX(2)-tX(1)+.4.*(tX(2)-tX(1))).*obj.XYRate;
end
tXX=zeros([3,51]);tYY=zeros([3,51]);
for k=1:51
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end;tXX1=tXX(:);tYY1=tYY(:);
if strcmp(obj.oriBarHdl(1).Horizontal,'on')
XX1=((-25:1:25).*obj.YSep2+obj.YSep1+tX(2))';
XX2=XX1-((tY(3)+0.2.*(tY(3)-tY(2))./obj.XYRate)-(tY(2)-0.2.*(tY(3)-tY(2))./obj.XYRate))./obj.XYRate;
else
YY2=((-25:1:25).*obj.YSep2-obj.YSep1+Y(i))';
YY1=YY2+(tX(2)-tX(1)+.4.*(tX(2)-tX(1))).*obj.XYRate;
end
tXX=zeros([3,51]);tYY=zeros([3,51]);
for k=1:51
[in,~]=intersect(tPolyPhape,[XX1(k),YY1(k);XX2(k),YY2(k)]);
if ~isempty(in)
tXX(:,k)=[in(1,1);in(end,1);nan];
tYY(:,k)=[in(1,2);in(end,2);nan];
else
tXX(:,k)=[nan;nan;nan];
tYY(:,k)=[nan;nan;nan];
end
end;tXX2=tXX(:);tYY2=tYY(:);
lgdLineHdl(i).XData=[tXX1(:);nan;tXX2(:)];
lgdLineHdl(i).YData=[tYY1(:);nan;tYY2(:)];
case '.'
tXX=linspace(tX(1),tX(2),9);
tYY=linspace(tY(2)+(tY(3)-tY(2))/6,tY(3)-(tY(3)-tY(2))/6,3)';
tXX(1)=[];tXX(end)=[];
tXX=repmat(tXX,[length(tYY),1]);
tYY=repmat(tYY,[1,size(tXX,2)]);
lgdLineHdl(i).XData=tXX(:);
lgdLineHdl(i).YData=tYY(:);
case 'w'
squareHdl(i).FaceColor=[1,1,1];
case 'k'
squareHdl(i).FaceColor=[0,0,0];
case 'g'
squareHdl(i).FaceColor=[.5,.5,.5];
end
end
end
end
end
% @author : slandarer
% gzh : slandarer随笔
end
未经允许本代码请勿作商业用途，引用的话可以引用我file exchange上的链接，可使用如下格式：
Zhaoxu Liu (2022). Histogram with shadow 阴影柱状图 (https://www.mathworks.com/matlabcentral/fileexchange/117005-histogram-with-shadow), MATLAB Central File Exchange. 检索来源 2022/9/1.
若转载请保留以上file exchange链接及本文链接！！！
完
以上全部文件获取，
【链接】：https://pan.baidu.com/s/1FLxfc56vGzMwbGQYeMx14w?pwd=slan
【提取码】：slan