Re: Combining multiple PDF graphs into one combined PDF

bts · Posted 04-26-2016 03:56 PM

Hello

I've written code that creates multiple PDF pages of graphs, but I'm now looking to see if there's a way to combine the sheets in SAS. Below is my code. The first proc and datastep are setting up the chi-square statistics that will go into the graph footnotes. After that, I set up 6 graphs per page. I have 18 pages (macro_1 to macro_18) that I would prefer to combine in SAS if possible. I tried to add an additional ods pdf file that opens before the graphs and ends after them, but all my formatting in between is lost.

Thanks!

%macro proc_code(var,i,title);

ods output chisq=chi&i;

proc freq data=pd.griffin_collapsed_values;

tables &var*(gender agecat_coll race_coll edu_coll2 income_coll2

employ_coll2)/chisq;

where &var not in (.,99);

run;

quit;

data _null_;set chi&i;

format tmp $40.;

if Statistic="Chi-Square" and Table="Table &var * Gender"

then do;

tmp1=cat("Chi-Square Results CHISQ","(",DF,")=",round(value,.01)," p",ifc(prob <.001,"<.001",strip(round(prob,.001))));

call symputx("chia&i",tmp1, 'G');

end;

if Statistic="Chi-Square" and Table="Table &var * agecat_coll"

then do;

tmp2=cat("Chi-Square Results CHISQ","(",DF,")=",round(value,.01)," p",ifc(prob <.001,"<.001",strip(round(prob,.001))));

call symputx("chib&i",tmp2, 'G');

end;

if Statistic="Chi-Square" and Table="Table &var * race_coll"

then do;

tmp3=cat("Chi-Square Results CHISQ","(",DF,")=",round(value,.01)," p",ifc(prob <.001,"<.001",strip(round(prob,.001))));

call symputx("chic&i",tmp3, 'G');

end;

if Statistic="Chi-Square" and Table="Table &var * edu_coll2"

then do;

tmp4=cat("Chi-Square Results CHISQ","(",DF,")=",round(value,.01)," p",ifc(prob <.001,"<.001",strip(round(prob,.001))));

call symputx("chid&i",tmp4, 'G');

end;

if Statistic="Chi-Square" and Table="Table &var * income_coll2"

then do;

tmp5=cat("Chi-Square Results CHISQ","(",DF,")=",round(value,.01)," p",ifc(prob <.001,"<.001",strip(round(prob,.001))));

call symputx("chie&i",tmp5, 'G');

end;

if Statistic="Chi-Square" and Table="Table &var * employ_coll2"

then do;

tmp6=cat("Chi-Square Results CHISQ","(",DF,")=",round(value,.01)," p",ifc(prob <.001,"<.001",strip(round(prob,.001))));

call symputx("chif&i",tmp6, 'G');

end;

RUN;

***************************************************************************;

GOPTIONS RESET=ALL ftext="Albany AMT";

ods pdf file="\\vmware-host\Shared Folders\Documents\My Documents\PreDict\Hospital Reports\macro_&i .pdf" startpage=never ;

goptions htitle=11pt;

options nodate nonumber;

options leftmargin=0.5in rightmargin=0.5in;

proc gslide;

title1 "Q&i. &title" lspace=.5in f="bold";

run;quit;

*Bar chart #1;

goptions horigin=0 vorigin=6.75 hsize=3 vsize=3 htext=7pt htitle=9pt ftitle="bold" gsfmode=append;

axis1 label=(a=90 f="Albany AMT" "Frequency") order=(0 to 220 by 40) minor=none;

axis2 label=none value=none;

axis3 label=none ;

legend1

label=("Response" h=2 pt position=left j=c)

position=(top inside left) mode=share;

pattern1 v=solid color=CX93BFBF;

pattern2 v=solid color=CX4791ED;

proc gchart data=pd.griffin_collapsed_values;

vbar &var/DISCRETE

OUTSIDE=PERCENT

G100

GROUP=gender

SUBGROUP=&var

RAXIS=axis1

maxis=axis2

gaxis=axis3

legend=legend1

space=0

width=6

coutline=white;

where &var not =. and &var ne 99 and gender in (1,2);

format gender genderf. &var yesno.;

title1 "Gender" f="bold" ;

footnote1 j=c h=.75 f=Albany "&chia&i";

run;

quit;

*Bar chart #2;

goptions horigin=4.5 vorigin=6.75 hsize=3 vsize=3 htext=7pt htitle=9pt ftitle="bold" gsfmode=append;

axis1 label=(a=90 f="Albany AMT" "Frequency") order=(0 to 220 by 40) minor=none;

axis2 label=none value=none;

axis3 label=none ;

legend1

label=("Response" h=2 pt position=left j=c)

position=(top inside left) mode=share;

pattern1 v=solid color=CX93BFBF;

pattern2 v=solid color=CX4791ED;

proc gchart data=pd.griffin_collapsed_values;

vbar &var/DISCRETE

OUTSIDE=PERCENT

G100

GROUP=agecat_coll

SUBGROUP=&var

RAXIS=axis1

maxis=axis2

gaxis=axis3

legend=legend1

space=0

width=5

coutline=white;

where &var ne . and &var ne 99;

format agecat_coll agec. &var yesno.;

title1 "Age Categories" f=bold;

footnote1 j=c h=.75 f=Albany "&chib&i";

run;

quit;

*Bar chart #3;

goptions horigin=0 vorigin=3.5 hsize=3 vsize=3 htext=7pt htitle=9pt ftitle="bold" gsfmode=append;

axis1 label=(a=90 f="Albany AMT" "Frequency") order=(0 to 240 by 40) minor=none;

axis2 label=none value=none;

axis3 label=none ;

legend1

label=("Response" h=2 pt position=left j=c)

position=(top inside left) mode=share;

pattern1 v=solid color=CX93BFBF;

pattern2 v=solid color=CX4791ED;

proc gchart data=pd.griffin_collapsed_values;

vbar &var/DISCRETE

OUTSIDE=PERCENT

G100

GROUP=race_coll

SUBGROUP=&var

RAXIS=axis1

maxis=axis2

gaxis=axis3

legend=legend1

space=0

width=6

coutline=white;

where &var ne . and &var ne 99;

format race_coll racec. &var yesno.;

title1 "Race" f=bold;

footnote1 j=c h=.75 f=Albany "&chic&i";

run;

quit;

*Bar chart #4;

goptions horigin=4.5 vorigin=3.5 hsize=3 vsize=3 htext=7pt htitle=9pt ftitle="bold" gsfmode=append;

axis1 label=(a=90 f="Albany AMT" "Frequency") order=(0 to 220 by 40) minor=none;

axis2 label=none value=none;

axis3 label=none ;

legend1

label=("Response" h=2 pt position=left j=c)

position=(top inside left) mode=share;

pattern1 v=solid color=CX93BFBF;

pattern2 v=solid color=CX4791ED;

proc gchart data=pd.griffin_collapsed_values;

vbar &var/DISCRETE

OUTSIDE=PERCENT

G100

GROUP=edu_coll2

SUBGROUP=&var

RAXIS=axis1

maxis=axis2

gaxis=axis3

legend=legend1

space=0

width=6

coutline=white;

where &var ne . and &var ne 99 and edu_coll2 ne .;

format edu_coll2 educc. &var yesno.;

title1 "Education" f=bold;

footnote1 j=c h=.75 f=Albany "&chid&i";

run;

quit;

*Bar chart #5;

goptions horigin=0 vorigin=0 hsize=3 vsize=3 htext=7pt htitle=9pt ftitle="bold" gsfmode=append;

axis1 label=(a=90 f="Albany AMT" "Frequency") order=(0 to 220 by 40) minor=none;

axis2 label=none value=none;

axis3 label=none ;

legend1

label=("Response" h=2 pt position=left j=c)

position=(top inside left) mode=share;

pattern1 v=solid color=CX93BFBF;

pattern2 v=solid color=CX4791ED;

proc gchart data=pd.griffin_collapsed_values;

vbar &var/DISCRETE

OUTSIDE=PERCENT

G100

GROUP=income_coll2

SUBGROUP=&var

RAXIS=axis1

maxis=axis2

gaxis=axis3

legend=legend1

space=0

width=6

coutline=white;

where &var ne . and &var ne 99;

format income_coll2 incc. &var yesno.;

title1 "Income" f=bold;

footnote1 j=c h=.75 f=Albany "&chie&i";

run;

quit;

*Bar chart #6;

goptions horigin=4.5 vorigin=0 hsize=3 vsize=3 htext=7pt htitle=9pt ftitle="bold" gsfmode=append;

axis1 label=(a=90 f="Albany AMT" "Frequency") order=(0 to 220 by 40) minor=none;

axis2 label=none value=none;

axis3 label=none ;

legend1

label=("Response" h=2 pt position=left j=c)

position=(top inside left) mode=share;

pattern1 v=solid color=CX93BFBF;

pattern2 v=solid color=CX4791ED;

proc gchart data=pd.griffin_collapsed_values;

vbar &var/DISCRETE

OUTSIDE=PERCENT

G100

GROUP=employ_coll2

SUBGROUP=&var

RAXIS=axis1

maxis=axis2

gaxis=axis3

legend=legend1

space=0

width=5

coutline=white;

where &var ne . and &var ne 99;

format employ_coll2 empc. &var yesno.;

title1 "Employment" f=bold;

footnote1 j=c h=.75 f=Albany "&chif&i";

run;

quit;

ods pdf close;

title;

footnote;

%mend;

%proc_code( discuss_pay,1,Hospital personnel came to my room to discuss payment );

%proc_code( doc_language,2,All hospital documents were available in the language I prefer to read );

%proc_code( undstd_docs,3,I understood all the documents I was asked to sign );

%proc_code( undstd_role,4,I understood the role of all hospital personnel entering my room );

%proc_code( questions_hosp,5, Someone explained what I should do if I had questions after leaving the hospital);

%proc_code( comf_read_write,6,Someone asked me how comfortable I am reading and writing in English );

%proc_code( mt_affordmeds,7,A doctor asked me if I could afford my discharge medication );

%proc_code( mt_DNR,8,A doctor and I talked about whether I would want them to try to save me if my heart stopped );

%proc_code( mt_responsib,9,A doctor asked me if I had any responsibilities that would make me need to leave the hospital as soon as possible (for example, child care, work) );

%proc_code( mt_negcom,10, I heard the doctors make negative comments about me);

%proc_code( nt_negcom,11, I heard the nurses make negative comments about me);

%proc_code( ss_negcom,12,I heard the support staff make negative comments about me );

%proc_code( mt_follow_dcins,13,The doctors asked if my day-to-day routine would prevent me from following their discharge care instructions );

%proc_code( mt_takemed,14, The doctors asked if I was taking my medication regularly before coming to the hospital);

%proc_code( mt_fakesymp,15,The doctors told me I was exaggerating or faking my symptoms );

%proc_code( hosp_rules,16,My friends and family had trouble seeing me because of hospital rules );

%proc_code( ss_unattended,17,I was left unattended for a long time when I was taken to have a test );

%proc_code( mt_seniorphys,18,The senior/attending doctor came to see me every day );

ballardw · Posted 04-26-2016 04:10 PM

Basically after the PDF's are generated then SAS is done with them.

If you want to create multiple graphs and/or tables and have them in a single PDF document then remove the ODS pdf bits from your macro (don't forget the CLOSE statement) and put all of the macro calls within a single ODS PDF sandwich.

ods PDF File= "<filestuf>.pdf" <pdf options>;