File Exchange

version 1.0.1 (10.5 KB) by
An adjusted_boxplot for skewed data & a comparable whisker_boxplot. Based on Huberta, M. & Vandervieren, E. (2007)

Updated 11 Jul 2019

The built in boxplot for matlab seems unusable so I made my own. Then I heard about an adjusted_boxplot for skewed data so I coded one of those up too, along with the medcouple algorithm it uses. (citation at bottom)

I have made two additions that can improve the visual appearance of the adjusted boxplots. They are described in the code.

i presume this will be a "work in progress" so I welcome constructive feed-back.

"An adjusted boxplot for skewed distributions":
Huberta, M. & Vandervieren, E. (2007) Computational Statistics & Data Analysis
Volume 52, Issue 12, 15 August 2008, Pages 5186-5201
https://www.sciencedirect.com/science/article/pii/S0167947307004434

Cite As

Brian C Coe (2020). adjusted_boxplot (https://www.mathworks.com/matlabcentral/fileexchange/72110-adjusted_boxplot), MATLAB Central File Exchange. Retrieved .

Brian C Coe

% script to show different ways to use adjusted_boxplot
% with built in data sets
%%
clear
XTickLabels={'test A','test B','test C','test D','test E'};
colors=lines(groupcount);
cc=mat2cell(colors,ones(groupcount,1),3);
figure(4321);clf
subplot(2,2,1);hold on;title('whisker_boxplot')
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)

subplot(2,2,3);hold on;title('whisker_boxplot, with bubbles & saturation set to white')
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)
subplot(2,2,4);hold on;title('adjusted_boxplot, with bubbles & saturation set to white')
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)

%%
clear
XTickLabels=strtrim(mat2cell(categories,ones(size(categories,1),1),size(categories,2)))';
namecount=size(names,1);
cc=strtrim(mat2cell(names,ones(namecount,1),43));
C=cellfun(@(x) strsplit(x,', '),cc,'uni',0);
simplestate=cellfun(@(x) upper(x{end}(1:2)),C,'uni',0);
[ustate,order]=unique(sort(simplestate));
statecount=diff([order; length(simplestate)+1]);
bigstates=ustate(statecount>15); %find only states with >15 scores/cities
runthese=ismember(simplestate,bigstates);
xs=.4/3; %the best half width for a 'group or catagory' is .4 and there are 3 big states
width=xs*.85;% width of each box with a small gap between subgroups
sgxs=[-xs 0 xs]*2;% SubGroups X Shift (twice the half width)
cc={[0 0 1],[1 .5 0],[1 0 0]};% subgroups color (blue orange red)
figure(2314);clf
subplot(2,1,1);hold on;title('whisker_boxplot')
for ii=1:length(bigstates)
for jj=1:length(XTickLabels)
ratings(ismember(simplestate,bigstates(ii)),jj);
h1{ii}=whisker_boxplot(jj+sgxs(ii),ratings(ismember(simplestate,bigstates(ii)),jj), cc{ii},'width',width);
end
end
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)
legend([h1{1}(1) h1{2}(1) h1{3}(1)],bigstates)

for ii=1:length(bigstates)
for jj=1:length(XTickLabels)
ratings(ismember(simplestate,bigstates(ii)),jj);
end
end
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)
legend([h1{1}(1) h1{2}(1) h1{3}(1)],bigstates)

%%
clear
namecount=size(hospital,1);
shiftxs=hospital.Age-min(hospital.Age);
shiftxs=shiftxs/max(shiftxs)*2-1; % set range for shifting each point to -1:1 based on age
Sex=strtrim(mat2cell(char(hospital.Sex),ones(namecount,1),6));
male=strcmpi(Sex,'male');

xs=.4/2; %the best half width for a 'group or catagory' is .4 and there are 2 subgroups (male/female)
width=xs*.85;% width of each box with a small gap between subgroups

%
% plot weight, then plot pressure(1), then pressure(2)
XTickLabels={'weight' 'systolic' 'diastolic'};
figure(8134);clf;
subplot(2,2,1);hold on;title('whisker_boxplot')
l1=whisker_boxplot(1-xs,hospital.Weight( male),[0 0 1],'shiftxs',shiftxs*width,'width',width);
l2=whisker_boxplot(1+xs,hospital.Weight(~male),[1 0 0],'shiftxs',shiftxs*width,'width',width);

whisker_boxplot(2-xs,hospital.BloodPressure( male,1),[0 0 1],'shiftxs',shiftxs*width,'width',width);
whisker_boxplot(2+xs,hospital.BloodPressure(~male,1),[1 0 0],'shiftxs',shiftxs*width,'width',width);

whisker_boxplot(3-xs,hospital.BloodPressure( male,2),[0 0 1],'shiftxs',shiftxs*width,'width',width);
whisker_boxplot(3+xs,hospital.BloodPressure(~male,2),[1 0 0],'shiftxs',shiftxs*width,'width',width);
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)
legend([l1(1) l2(1)],{'male','female'});

set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)

subplot(2,2,3);hold on;title('whisker_boxplot, with bubbles & saturation set to white')
whisker_boxplot(1-xs,hospital.Weight( male),[0 0 1],'shiftxs',shiftxs*width,'width',width,'bub',1,'sat',0);
whisker_boxplot(1+xs,hospital.Weight(~male),[1 0 0],'shiftxs',shiftxs*width,'width',width,'bub',1,'sat',0);

whisker_boxplot(2-xs,hospital.BloodPressure( male,1),[0 0 1],'shiftxs',shiftxs*width,'width',width,'bub',1,'sat',0);
whisker_boxplot(2+xs,hospital.BloodPressure(~male,1),[1 0 0],'shiftxs',shiftxs*width,'width',width,'bub',1,'sat',0);

whisker_boxplot(3-xs,hospital.BloodPressure( male,2),[0 0 1],'shiftxs',shiftxs*width,'width',width,'bub',1,'sat',0);
whisker_boxplot(3+xs,hospital.BloodPressure(~male,2),[1 0 0],'shiftxs',shiftxs*width,'width',width,'bub',1,'sat',0);
set(gca,'XTick',1:length(XTickLabels),'XTickLabels',XTickLabels)

subplot(2,2,4);hold on;title('adjusted_boxplot, with bubbles & saturation set to white')