Hi,
I am having trouble implementing SEGLABELS for each segment and total above the bars in a stacked column chart. Could I get some assistance on how to implement this inside my code? The code prints 2 charts as you will see, the latter chart is the main chart in-use once the previous code completes it's final sort. Thank you for your time.
Code:
/* Set the graphics environment */
goptions reset=all cback=white border htitle=12pt htext=12pt;
/* Calculate totals for Closed_Date and Close_Reason */
proc means data=work.dailyclosures noprint;
by Closed_Date;
class Close_Reason;
var Closures;
output out=closure1(where=(_type_=1)) sum=;
run;
/* Within Closed_Date (the midpoint) make highest sales come first */
proc sort data=closure1;
by Closed_Date descending Closures Close_Reason;
run;
/* The code below generates the default results. */
title1 'MTD Closures October 19, 2018';
legend1 label=('Close Reason') ;
pattern1 color=CX66A5A0 value=l3;
pattern2 color=CX7C95CA value=solid;
pattern3 color=CX94BDE1 value=solid;
pattern4 color=CXDE7E6F value=solid;
pattern5 color=CXA9865B value=r3;
pattern6 color=CXBABC5C value=solid;
pattern7 color=CXB689CD value=solid;
pattern8 color=CXCD7BA1 value=solid;
axis1 label=none split='/' value=(height=1)
value=(height=.7 "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19");
axis2 minor=(number=3) label=(angle=90 height=1 "Total Closures")
value=(height=1 "0" "10" "20" "30" "40" "50" "60" "70" "80" "90" "100");
proc gchart data=closure1;
vbar Closed_Date / sumvar=Closures subgroup=Close_Reason legend=legend1
maxis=axis1 raxis=axis2 space=8
type = sum midpoints=('01oct2018'd to '19oct2018'd);
run;
quit;
/* The code below reorders the subgroups. */
goptions reset=all cback=white border htitle=12pt htext=12pt;
/* Create a RANK variable. This will be used as the SUMVAR= */
/* variable to ensure that the Close_Reason with the highest sales */
/* is drawn at the bottom of each bar. */
/* Assign a color and pattern value for each Close_Reason. */
/* Assign color and pattern values to a macro variable. Each */
/* observation creates one macro variable. This ensures that */
/* each Close_Reason has the same color and pattern across midpoints */
/* even though the RANK value is different for each Close_Reason. */
data closure2;
set closure1 end=eof;
by Closed_Date descending Closures Close_Reason;
length color $20 value $5;
Closed_Date = tranwrd(strip(Closed_Date)," ","/");
rank + 1;
select;
when (Close_Reason="Test") do;
color="CX66A5A0";
value="L3";
end;
when (Close_Reason="Test1") do;
color="CX7C95CA";
value="solid";
end;
when (Close_Reason="Test2") do;
color="CX94BDE1";
value="solid";
end;
when (Close_Reason="Test3") do;
color="CX9B58A6";
value="R3";
end;
when (Close_Reason="Test4") do;
color="CXBDB2BF";
value="solid";
end;
otherwise;
end;
if eof then call symput('tot',trim(left(put(_n_,8.))));
call symput('pattern'||trim(left(put(_n_,8.))),'color=' || color || ' value=' || value ||';');
run;
/* Define and execute the macro to create the PATTERN statements */
%macro pattern;
%do j=1 %to &tot;
pattern&j &&pattern&j;
%end;
%mend pattern;
%pattern;
/* Keep one observation for each Close_Reason */
proc sort data=closure2 out=unqshoes nodupkey;
by Close_Reason;
run;
/* Create macro variables to use in the legend. */
/* ORD contains the list of ranks that will be */
/* used in the ORDER= option. */
/* VAL contains the list of Close_Reason names that */
/* will be used in the VALUE= option. */
data _null_;
set unqshoes end=eof;
length ord val $600;
retain ord val ' ';
ord = trim(left(ord)) || ' ' || trim(left(put(rank,12.)));
val = trim(left(val)) || ' "' || Close_Reason || '"';
if eof then do;
call symput('ord', ord);
call symput('val', val);
end;
run;
title1 "MTD Closures October 19, 2018";
legend1 label=('Close Reason') order=(&ord) value=(j=l &val);
axis1 label=none split='/' value=(height=1)
value=(height=.7 "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19");
;
axis2 minor=(number=3) label=(angle=90 height=1.25 "Total Closures")
value=(height=1 "0" "10" "20" "30" "40" "50" "60" "70" "80" "90" "100");
proc gchart data=closure2;
vbar Closed_Date / sumvar=Closures subgroup=rank legend=legend1
maxis=axis1 raxis=axis2 space=.5
type = sum midpoints=('01oct2018'd to '19oct2018'd);
run;
quit;
