Question

我有一个如下所示的数据集：

data have;
    input category $ type $ percent order;
datalines;
X Full 1 1
X B -.04 .
X A -.02 .
X E 0 .
X D .03 .
X C .01 .
;
run;

我想创建一个瀑布，显示修改A-E后的“剩余”。下面的代码成功完成了此操作。

我有两个问题：

我希望从“Leftover”酒吧进一步探索瀑布。假设另一个修改F的值为.60。我希望从“Leftover”中减去这个值，得到“Leftover 2”（见图http://tinypic.com/r/mb4tat/8）。我不知道这是否可行，但我真的希望两个剩饭剩下的都显示出来。
下面的代码很乱。我不得不创建一些变通方法，以便按照我想要的顺序显示条形图。是否有更好的方法来决定这些价值观？

谢谢！

proc sort data=have(where=(percent<0)) 
    out=neg;
    by percent;
run;

data neg;
    set neg;
    order=_N_+1;
run;

proc sql noprint;
    select max(order) into :max_order from neg;
quit;

proc sort data=have(where=(percent>0 and type not in ("Full"))) 
    out=pos;
    by descending percent;
run;

data pos;
    set pos;
    order=_N_+&max_order.;
run;

data x_have;
    set have(where=(type="Full")) neg pos;
run;

proc sort data=x_have;
by order;
run;

proc sgplot data=have(where=(percent ne 0)) noautolegend;
waterfall category=type response=percent  / colorgroup=type dataskin=sheen datalabel name='a'
finalbartickvalue='Leftover';
;
xaxis display=(nolabel);
yaxis grid display=(nolabel) offsetmin=0;
run;

Answer 1

感谢@Joe和Sanjay Matange，我开始通过高流量的情节而不是瀑布来解决这个问题。操纵数据是有点混乱所以它是可重复的（我可以回去清理一些），但这是任何感兴趣的人的解决方案。

data have;
  input category $ type $ percent order;
datalines;
X Full 1 1
X B -.04 .
X A -.02 .
X E 0 .
X D .03 .
X C .01 .
X F .6 .
X sum1 . .
X sum2 . .
;
run;


proc sql noprint;
  select sum(percent)
  into :sum
  from have
  where type in ('A','B','C','D','E');
  select percent
  into :F
  from have
  where type='F';
  select percent
  into :maxperc
  from have
  where type="Full";
quit;


data have_mod;
  set have;
  if type='sum1' then percent=1+&sum.;
  if type='sum2' then percent=1+&sum.-&F.;
run;


proc sort data=have_mod(where=(percent<0)) 
  out=neg;
  by percent;
run;


data neg;
  set neg;
  order=_N_+1;
run;


proc sql noprint;
  select max(order) into :max_neg from neg;
quit;


proc sort data=have_mod(where=(percent>0 and type not in ("Full","sum1","sum2","F"))) 
  out=pos;
  by descending percent;
run;


data pos;
  set pos;
  order=_N_+&max_neg.;
run;


proc sql noprint;
  select max(order) into :max_pos from pos;
quit;


data x_have;
  set have_mod(where=(type in ("Full", "F", "sum1", "sum2"))) neg pos;
  if type='sum1' then order=1+&max_pos.;
  if type='F' then order=2+&max_pos.;
  if type='sum2' then order=3+&max_pos.;
run;


proc sort data=x_have;
  by order;
run;


proc sql noprint;
  select percent, order
  into :sum1, :ordersum1
  from x_have
  where type='sum1';
quit;


data want;
  set x_have;
  by category;
  if first.category then sumpercent=0;
  sumpercent+percent;
  if type in ('sum1','F','sum2') then sumpercent=percent;
  if type in ('Full','sum1','sum2') then high=sumpercent;
  else if type='F' then high=&sum1.;
  else if order=&ordersum1.-1 then high=&sum1.;
  else if order=2 then high=&maxperc.;
  else if percent>0 then high=sumpercent;
  else if percent<0 then high=sumpercent+abs(percent);
  if type in ('Full','sum1','sum2') then low=0;
  else if percent<0 then low=sumpercent;
  else if type='F' then low=high-sumpercent;
  else if percent>0 then low=sumpercent-percent;
run;


proc sgplot data=want;
  highlow x=type high=high low=low / group=type type=bar 
  groupdisplay=cluster highlabel=percent lineattrs=graphoutlines
  dataskin=matte;
  xaxis display=(nolabel noticks);
  yaxis offsetmin=0;
run;

SAS“双”瀑布sgplot

1 个答案: