上一篇文章分享了Matlab多子图的绘制模板:
但假如子图的大小不是相同的,该怎么操作呢?
本期就来分享一下大小不同多子图的绘制模板。
先来看一下成品效果:
特别提示:本期内容『数据+代码』已上传资源群中,加群的朋友请自行下载。有需要的朋友可以关注同名公号【阿昆的科研日常】,后台回复关键词【绘图桶】查看加入方式。
模板中最关键的部分内容:
1. 数据准备
此部分主要是读取原始数据。
% 读取数据
load data.mat
2. 颜色定义
作图不配色就好比做菜不放盐,总让人感觉少些味道。
但颜色搭配比较考验个人审美,需要多加尝试。
这里直接使用TheColor配色工具中的SCI权威配色库:
%% 颜色定义
map = TheColor('sci',2064,'map',10);
map = flipud(map);
C = map([1 2 3 6],1:3);
C1 = map(1,1:3);
C2 = map(2,1:3);
C3 = map(3,1:3);
C4 = map(6,1:3);
3. 大小不同多子图绘制
通过‘subplot’命令,在各个分块位置创建子图坐标区。
其中,假如某一子图需要占用多个分块位置,则通过分块索引组成的向量指定作图位置,如subplot(2,2,[3 4])。
然后,结合前面分享的论文插图绘制模板,将每个子图的绘制视为完整的单一论文插图分别进行绘制,从而完成大小不同多子图绘制。
%% 大小不同多子图绘制
%%%% 绘制带误差棒的柱状图 %%%%
subplot(2,2,1)
hold on
x = 1:4;
GO = bar(x,bardata,0.6,'EdgeColor','none','LineWidth',1);
for ii = 1:4
er = errorbar(x(ii),bardata(ii),barerr(ii),'CapSize',20);
er.Color = C(ii,:);
er.LineWidth = 1.5;
er.LineStyle = 'none';
end
hTitle = title('Bar with Errorbar');
hXLabel = xlabel('Samples');
hYLabel = ylabel('RMSE (m)');
% 细节优化
GO.FaceColor = 'flat';
GO.CData(1,:) = C1;
GO.CData(2,:) = C2;
GO.CData(3,:) = C3;
GO.CData(4,:) = C4;
set(gca, 'Box', 'off', ... % 边框
'Layer','top',... % 图层
'LineWidth', 1,... % 线宽
'XGrid', 'off', 'YGrid', 'off', ... % 网格
'TickDir', 'out', 'TickLength', [.015 .015], ... % 刻度
'XMinorTick', 'off', 'YMinorTick', 'off', ... % 小刻度
'XColor', [.1 .1 .1], 'YColor', [.1 .1 .1],... % 坐标轴颜色
'YTick', 0:0.1:1,... % 坐标轴刻度
'Ylim' , [0 0.6], ...
'Xlim' , [0.3 4.7], ...
'XTick', 1:4,...
'Xticklabel',{'S1' 'S2' 'S3' 'S4' },...
'Yticklabel',{0:0.1:1})
set(gca, 'FontName', 'Arial', 'FontSize', 9)
set([hXLabel, hYLabel], 'FontSize', 9, 'FontName', 'Arial')
set(hTitle, 'FontSize', 12, 'FontWeight' , 'bold')
% 添加上、右框线
xc = get(gca,'XColor');
yc = get(gca,'YColor');
unit = get(gca,'units');
ax = axes( 'Units', unit,...
'Position',get(gca,'Position'),...
'XAxisLocation','top',...
'YAxisLocation','right',...
'Color','none',...
'XColor',xc,...
'YColor',yc);
set(ax, 'linewidth',1,...
'XTick', [],...
'YTick', []);
%%%% 绘制折线图 %%%%
subplot(2,2,2)
x = 1:8;
p = plot(x,linedata);
hTitle = title('Line Plot');
hXLabel = xlabel('XAxis');
hYLabel = ylabel('YAxis');
% 细节优化
MarkerL = {'v','o','^','s'};
for i = 1:4
set(p(i),'LineStyle','-','Marker',MarkerL{i},'LineWidth',2.5,'Color',C(i,1:3))
end
set(gca, 'Box', 'off', ... % 边框
'LineWidth', 1,... % 线宽
'XGrid', 'off', 'YGrid', 'off', ... % 网格
'TickDir', 'out', 'TickLength', [.015 .015], ... % 刻度
'XMinorTick', 'off', 'YMinorTick', 'off', ... % 小刻度
'XColor', [.1 .1 .1], 'YColor', [.1 .1 .1]) % 坐标轴颜色
set(gca, 'XTick', 0:1:8, 'YTick', 0:20:80,... % 刻度位置、间隔
'Xlim' ,[0.5 8.5],'Ylim' ,[0 60], ... % 坐标轴范围
'Xticklabel',{0:1:8},... % X坐标轴刻度标签
'Yticklabel',{0:20:80}) % Y坐标轴刻度标签
hLegend = legend(p, ...
'Samp1', 'Samp2','Samp3','Samp4', ...
'Location', 'northeast');
set(gca, 'FontName', 'Arial', 'FontSize', 9)
set([hLegend, hXLabel, hYLabel], 'FontSize', 9, 'FontName', 'Arial')
set(hTitle, 'FontSize', 12, 'FontWeight' , 'bold')
% 添加上、右框线
xc = get(gca,'XColor');
yc = get(gca,'YColor');
unit = get(gca,'units');
ax = axes( 'Units', unit,...
'Position',get(gca,'Position'),...
'XAxisLocation','top',...
'YAxisLocation','right',...
'Color','none',...
'XColor',xc,...
'YColor',yc);
set(ax, 'linewidth',1,...
'XTick', [],...
'YTick', []);
%%%% 绘制面积图 %%%%
subplot(2,2,[3 4])
N = size(areadatax,1);
AC = TheColor('sci',2064,'map',N);
AC = flipud(AC);
for i = 1:N
area(areadatax(i,:),areadatay(i,:),'LineWidth',2,'FaceColor',AC(i,:),'EdgeColor',AC(i,:),...
'FaceAlpha',.5,'EdgeAlpha',1);
hold on
end
hTitle = title('Area Plot');
hXLabel = xlabel('Cortical depth(normalized)');
hYLabel = ylabel('Cell density');
% 细节优化
set(gca, 'Box', 'off', ... % 边框
'LineWidth', 1,... % 线宽
'XGrid', 'off', 'YGrid', 'off', ... % 网格
'TickDir', 'out', 'TickLength', [.005 .005], ... % 刻度
'XMinorTick', 'off', 'YMinorTick', 'off', ... % 小刻度
'XColor', [.1 .1 .1], 'YColor', [.1 .1 .1],... % 坐标轴颜色
'XTick', 0:0.1:1.2,... % 刻度与范围
'XLim', [0.05 1.05],...
'YLim', [0 1])
set(gca, 'FontName', 'Arial', 'FontSize', 9)
set([hXLabel, hYLabel], 'FontSize', 9, 'FontName', 'Arial')
set(hTitle, 'FontSize', 12, 'FontWeight' , 'bold')
% 添加上、右框线
xc = get(gca,'XColor');
yc = get(gca,'YColor');
unit = get(gca,'units');
ax = axes( 'Units', unit,...
'Position',get(gca,'Position'),...
'XAxisLocation','top',...
'YAxisLocation','right',...
'Color','none',...
'XColor',xc,...
'YColor',yc);
set(ax, 'linewidth',1,...
'XTick', [],...
'YTick', []);
4. 图像输出
绘制完成后,以期刊所需分辨率、格式输出图片。
%% 图片输出
figW = figureWidth;
figH = figureHeight;
set(figureHandle,'PaperUnits',figureUnits);
set(figureHandle,'PaperPosition',[0 0 figW figH]);
fileout = 'test';
print(figureHandle,[fileout,'.png'],'-r300','-dpng');
以上。