topic Re: Proc sgplot or sgpanel to visual group and subgroup in Graphics Programming

Proc sgplot or sgpanel to visual group and subgroup

Ran_ — Tue, 22 Oct 2024 19:38:40 GMT

I want to generate a plot with SAS, like the upper picture. Any ideas or help are appreciated.

Panel by aeterm to show separate panels for each adverse event.
Cluster the bars by treatment.
Use aesev to differentiate colors within each cluster.

data mydata;
input aeterm $ treatment $ aesev $ percentage;
datalines;
ABDOMINAL TRT01 MILD 3
ABDOMINAL TRT01 MODERATE 1
ABDOMINAL TRT02 SEVERE 8
BRONCHITIS TRT01 SEVERE 22
BRONCHITIS TRT02 MILD 11
BRONCHITIS TRT01 MILD 25

COUGH TRT01 MILD 9

COUGH TRT02 MILD 23
;
run;

Proc sgplot or sgpanel to visual group and subgroup

Ran_ — Tue, 22 Oct 2024 19:45:48 GMT

I want to generate a plot with SAS, like the upper picture. Any ideas or help are appreciated.

Panel by aeterm to show separate panels for each adverse event.
Cluster the bars by treatment.
Use aesev to differentiate colors within each cluster.

COUGH TRT01 MILD 9

COUGH TRT02 MILD 23
;
run;

Re: Proc sgplot or sgpanel to visual group and subgroup

DanH_sas — Wed, 23 Oct 2024 02:11:57 GMT

Something like the following should work for you. By splitting the treatment into two bar charts, it gives you the opportunity to assign two different sets of colors to the severity variable:

data mydata;
length aeterm $ 10;
input aeterm $ treatment $  aesev $ percentage;
treatment1 = ifc(treatment ="TRT01", "TRT01", "     ");
treatment2 = ifc(treatment ="TRT02", "TRT02", "     ");
aesev2 = aesev;
datalines;
ABDOMINAL TRT01  MILD 3
ABDOMINAL TRT01 MODERATE 1
ABDOMINAL TRT02  SEVERE 8
BRONCHITIS TRT01  SEVERE 22
BRONCHITIS TRT02  MILD 11
BRONCHITIS TRT01  MILD 25
COUGH TRT01 MILD 9
COUGH TRT02 MILD 23
;
run;

data attrmap;
    length Value $ 8;
    input ID $ Value $ FillColor $ LineColor $;
    cards;
    t1 MILD     cxf8d4c1 cxe97132
    t1 MODERATE cxf2aa84 cxe97132
    t1 SEVERE   cxe97132 cxe97132
    t2 MILD     cxb5c5d9 cx143f82
    t2 MODERATE cx6c8cb4 cx143f82
    t2 SEVERE   cx143f82 cx143f82
    ;
run;

proc sgpanel data=mydata dattrmap=attrmap;
    panelby aeterm / layout=columnlattice noheaderborder noborder colheaderpos=bottom novarname;
    vbarparm category=treatment1 response=percentage / group=aesev seglabel seglabelattrs=(color=white sizze=8) attrid=t1 name="t1";
    vbarparm category=treatment2 response=percentage / group=aesev2 seglabel seglabelattrs=(color=white size=8) attrid=t2 name="t2";
    colaxis display=none;
    keylegend "t1" / title="Treatment 1";
    keylegend "t2" / title="Treatment 2";
run;

Re: Proc sgplot or sgpanel to visual group and subgroup

Ksharp — Wed, 23 Oct 2024 02:37:08 GMT

It looks like not really easy to get this kind of graph.

data mydata;
input aeterm $ treatment $  aesev $ percentage;
datalines;
ABDOMINAL TRT01  MILD 0
ABDOMINAL TRT01 MODERATE 18
ABDOMINAL TRT01 SEVERE 60
ABDOMINAL TRT02  MILD 30
ABDOMINAL TRT02 MODERATE 60
ABDOMINAL TRT02  SEVERE 28
BRONCHITIS TRT01  MILD 41
BRONCHITIS TRT01  MODERATE 10
BRONCHITIS TRT01  SEVERE 0
BRONCHITIS TRT02  MILD 4
BRONCHITIS TRT02  MODERATE 30
BRONCHITIS TRT02  SEVERE 30
COUGH TRT01  MILD 40
COUGH TRT01  MODERATE 10
COUGH TRT01  SEVERE 30
COUGH TRT02  MILD 2
COUGH TRT02  MODERATE 4
COUGH TRT02  SEVERE 3
;
run;

proc sort data=mydata;by aeterm aesev;run;
data have;
merge mydata(where=(treatment='TRT01') rename=(percentage=pct_TRT01))
      mydata(where=(treatment='TRT02') rename=(percentage=pct_TRT02));
by aeterm aesev;
drop treatment;
run;



proc sgplot data=have noborder ;
styleattrs datacolors=(CXFEE0D2 CXFC9272 CXDE2D26 CXDEEBF7 CX9ECAE1 CX3182BD)
           datacontrastcolors=(CXFEE0D2 CXFC9272 CXDE2D26 CXDEEBF7 CX9ECAE1 CX3182BD);
vbarparm category=aeterm response=pct_TRT01/group=aesev seglabel seglabelfitpolicy=noclip barwidth=0.4 discreteoffset=-0.22 name='a' ;
vbarparm category=aeterm response=pct_TRT02/group=aesev seglabel seglabelfitpolicy=noclip barwidth=0.4 discreteoffset= 0.22 name='b' ;
xaxis tickstyle=inbetween display=(nolabel);
yaxis label='Percent';
keylegend 'a' /title='treatment1' noborder position=ne  ;
keylegend 'b' /title='treatment2' noborder position=ne ;

run;

Re: Proc sgplot or sgpanel to visual group and subgroup

Ran_ — Wed, 23 Oct 2024 12:31:34 GMT

I really appreciate your help. I have been struggling with this for two days

Re: Proc sgplot or sgpanel to visual group and subgroup

Ran_ — Wed, 23 Oct 2024 12:33:09 GMT

I appreciate for your help.