气泡堆叠图是堆叠图与气泡图的组合—在堆叠图每根柱子上方添加大小不同的气泡,用于表示另外一个数据变量(如每根柱子各组分的平均值)的大小。
本文利用自己制作的BarBubble工具,进行气泡堆叠图的绘制,先来看一下成品效果:
特别提示:本期内容『数据+代码』已上传资源群中,加群的朋友请自行下载。有需要的朋友可以关注同名公号【阿昆的科研日常】,后台回复关键词【绘图桶】查看加入方式。
1. 数据准备
此部分主要是读取原始数据并初始化绘图参数。
% 读取数据
load data.mat
% 初始化绘图参数
bardata = y1;
bubbledata = y2;
offset = 1.6;
bsz = [5 20];
2. 颜色定义
作图不配色就好比做菜不放盐,总让人感觉少些味道。
但颜色搭配比较考验个人审美,需要多加尝试。
这里直接使用TheColor配色工具中的SCI权威配色库:
C = TheColor('sci',2040,'map',4);
C = flipud(C);
3. 气泡堆叠图绘制
调用‘BarBubble’命令,绘制初始气泡堆叠图。
[b1,b2] = BarBubble(bardata,bubbledata,offset,bsz,'stacked');
hTitle = title('Stacked Bar with Bubble');
hXLabel = xlabel('Samples');
hYLabel = ylabel('Number');
4. 细节优化
为了插图的美观与信息完整性,对图形细节等进行美化:
% 气泡堆叠图属性调整
% 堆叠图
for i = 1:4
b1(i).FaceColor = C(i,1:3);
b1(i).BarWidth = 0.8;
b1(i).LineWidth = 0.8;
end
% 气泡图
b2.MarkerFaceColor = [0.2 0.2 0.2];
b2.MarkerFaceAlpha = 1;
b2.MarkerEdgeColor = [0.2 0.2 0.2];
% 坐标区调整
set(gca, 'Box', 'off', ... % 边框
'LineWidth', 1,... % 线宽
'XGrid', 'on', 'YGrid', 'on', ... % 网格
'TickDir', 'out', 'TickLength', [.015 .015], ... % 刻度
'XMinorTick', 'off', 'YMinorTick', 'off', ... % 小刻度
'XColor', [.1 .1 .1], 'YColor', [.1 .1 .1]) % 坐标轴颜色
% 坐标轴刻度调整
set(gca, 'YTick', 0:0.2:2,...
'Ylim' , [0 1.8], ...
'Xlim' , [0.2 15.8], ...
'XTick', 1:15)
% 气泡图图例
blgd = bubblelegend('Location','southeastoutside',...
'Style','vertical',...
'BubbleSizeOrder','descending',...
'box','off',...
'NumBubbles',3,... ...
'FontName', 'Arial',...
'FontSize', 11);
% 气泡堆叠图图例
hLegend = legend(b1, ...
' A1', ' A2', ' A3', ' A4', ...
'Position',[0.79,0.35,0.11,0.15],...
'Orientation','vertical');
legend('boxoff');
% 字体和字号
set(gca, 'FontName', 'Arial', 'FontSize', 10)
set([hLegend, hXLabel, hYLabel], 'FontSize', 11, 'FontName', 'Arial')
set(hTitle, 'FontSize', 12, 'FontWeight' , 'bold')
% 背景颜色
set(gcf,'Color',[1 1 1])
% 添加上、右框线
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', []);
设置完毕后,以期刊所需分辨率、格式输出图片。
%% 图片输出
figW = figureWidth;
figH = figureHeight;
set(figureHandle,'PaperUnits',figureUnits);
set(figureHandle,'PaperPosition',[0 0 figW figH]);
fileout = 'test';
print(figureHandle,[fileout,'.png'],'-r300','-dpng');
以上。