Hi community, I'm using Base SAS 9.4 and would like to draw a graph like the posted..   I have generated a Sankey diagram by using proc sgrender, but I am unsure how to draw a rectangle with text to it, similar to the blue one overlaying the Sankey diagram. Does anyone have any suggestions on how I can achieve this? Any help would be greatly appreciated. Thank you!   Kind regards, John   ... View more

Hi Everyone,   I am using SAS 9.4 and attempting to generate all graphs, then present them collapsed under the Table of Contents. Here is my program ods graphics on; ods _all_ close; ods document name=WORK.CONTENTS(write); data FigureTitle; length no number $ 60 title item $ 200; infile CARDS dlm=':'; input no $ title $ number $ item $ @@; cards; 01:Safety:Figure 1 01:Safety:Figure 2 01:Safety:Figure 3 ; run; data FigureTitle; set FigureTitle; pp=1; run; proc report data=FigureTitle nowd colwidth=8 spacing=2 center headskip split='|' contents="Table of Contents"; columns pp no title number item; define pp / group noprint; define no / display noprint; define title / group left style=[cellwidth=40mm] '' '' flow; define number / display left style=[cellwidth=40mm] 'No.' ''; define item / display left style=[cellwidth=160mm] 'Item' '' flow; break before pp /page contents=''; title7 j=c h=9pt "Table of Contents"; run; title7; quit; proc lifetest data=SurvivalData1 plots=survival method=KM; time T * Status(0); strata Group; run; proc lifetest data=SurvivalData2 plots=survival method=KM; time T * Status(0); strata Group; run; ods graphics off; ods listing; ods document close; proc document name=WORK.CONTENTS; list / details levels=all; ods output Document.Properties=WORK.CONTENTS; run; quit; Then, I have a list of document properties as below.   Does anyone know how to move all documents with Type = Graph to the Report#1? I've tried '^(where=(_type_='Graph')) to Report#1' but not work..   Furthermore, is there a way to adjust the Label in the document properties list based on the title defined in the TOC?   Thanks! ... View more

Hi everyone,   Here is my program:   data _null_; %let url = //support.sas.com/documentation/onlinedoc/stat/ex_code/151; infile "http:&url/templft.html" device=url; file 'macros.tmp'; retain pre 0; input; _infile_ = tranwrd(_infile_, '&amp;', '&'); _infile_ = tranwrd(_infile_, '&lt;' , '<'); if index(_infile_, '</pre>') then pre = 0; if pre then put _infile_; if index(_infile_, '<pre>') then pre = 1; run; %inc 'macros.tmp' / nosource; %ProvideSurvivalMacros %let TitleText0 = " "; %let TitleText1 = " "; %let TitleText2 = " "; %let nTitles = 1; %let GraphOpts = DesignHeight=500px; %let yOptions = label="Survival Probability" labelattrs=(size=10pt weight=bold) tickvalueattrs=(size=8pt) linearopts=(viewmin=0 viewmax=1 tickvaluelist=(0 .2 .4 .6 .8 1.0)); %let xOptions = label="Time (Months)" shortlabel="Test" offsetmin=.05 labelattrs=(size=10pt weight=bold) tickvalueattrs=(size=8pt) linearopts=(viewmax=MAXTIME tickvaluelist=(0 6 12 18 24) tickvaluefitpolicy=XTICKVALFITPOL); %let InsetOpts = autoalign=(BottomLeft) border=true BackgroundColor=GraphWalls:Color Opaque=true; %let LegendOpts = ; %macro StmtsTop; referenceline y=0.5/lineattrs=(color=lightgray); %mend; %SurvivalSummaryTable %CompileSurvivalTemplates ods _all_ close; proc format; invalue bmtnum 'Yes' = 1 'No' = 2; value bmtfmt 1 = 'Yes' 2 = 'No'; run; data pcm_(drop=g); set pcm(rename=(group=g)); Group = input(g, bmtnum.); run; ods graphics on; ods html gpath="&outpath" image_dpi=300; ods graphics on / reset=index border=off width=10in height=5in imagename="FigureTest" noborder outputfmt=svg; proc lifetest data=pcm_ plots=survival(atrisk(maxlen=100)=0 to 24 by 6) method=KM; time T * Status(0); strata Group / order=internal; format group bmtfmt.; run; ods html close; And I found that the label in the summary table is too big. Does anyone know how to modify its font size? Thank you.   I've tried to modify the font size by adding (size=3pt) in the macro %SurvivalTable, below is the code %macro SurvivalTable; %local fmt r i t; %let fmt = bestd6.; %let r = halign = right; columnheaders; layout overlay / pad=(top=5); if(NSTRATA=1) layout gridded / columns=6 border=TRUE; dynamic PctMedianConfid NObs NEvent Median LowerMedian UpperMedian; %SurvTabHeader(0) entry &r NObs; entry &r NEvent; entry &r eval(NObs-NEvent); entry &r eval(put(Median,&fmt)); entry &r eval(put(LowerMedian,&fmt)); entry &r eval(put(UpperMedian,&fmt)); endlayout; else layout gridded / columns=7 border=TRUE; dynamic PctMedianConfid; %SurvTabHeader(1) %do i = 1 %to 10; %let t = / textattrs=GraphData&i(size=3pt); dynamic StrVal&i NObs&i NEvent&i Median&i LowerMedian&i UpperMedian&i; if (&i <= nstrata) entry &r StrVal&i &t; entry &r NObs&i &t; entry &r NEvent&i &t; entry &r eval(NObs&i-NEvent&i) &t; entry &r eval(put(Median&i,&fmt)) &t; entry &r eval(put(LowerMedian&i,&fmt)) &t; entry &r eval(put(UpperMedian&i,&fmt)) &t; endif; %end; endlayout; endif; endlayout; endcolumnheaders; %mend; And this is the output it became smaller...,but...the label is still truncated or covered..   ... View more

Hi All,   I use SAS 9.4 and below is my code to superscript a registered mark: ods escapechar='^'; ^{super ^{unicode 24C7}};   But it is always presented as "subscript"... Does anyone have suggestion? ... View more

Hi everyone,   I found the Proc Template I used in SAS 9.3 seems not work on SAS 9.4. The right side of titles and footers in PDF output would be truncated. Below is my code: proc template; define style Styles.mystyle; parent = styles.Printer; replace fonts / 'TitleFont2' = ("Courier New",9pt,Bold Italic) 'TitleFont' = ("Courier New",9pt,Bold Italic) 'StrongFont' = ("Courier New",9pt,Bold) 'EmphasisFont' = ("Courier New",9pt, Bold) 'FixedEmphasisFont' = ("Courier New",9pt,Bold) 'FixedStrongFont' = ("Courier New",9pt,Bold) 'FixedHeadingFont' = ("Courier New",9pt,Bold) 'BatchFixedFont' = ("Courier New",9pt,Bold) 'FixedFont' = ("Courier New",9pt,Bold) 'headingEmphasisFont' = ("Courier New",9pt,Bold ) 'headingFont' = ("Courier New",9pt,Bold) 'docFont' = ("Courier New",9pt) 'footFont' = ("Courier New",9pt,Bold Italic); replace GraphFonts / 'GraphDataFont' = ("Courier New",9pt) 'GraphValueFont' = ("Courier New",9pt) 'GraphLabelFont' = ("Courier New",9pt,Bold) 'GraphFootnoteFont' = ("Courier New",9pt,Bold) 'GraphTitleFont' = ("Courier New",9pt,Bold); replace color_list / 'link' = blue 'bgH' = Lightgrey 'fg' = black 'bg' = _undef_; replace Table from Output / background = _undef_ frame = hsides rules = groups vjust = M cellpadding = 1pt cellspacing = 0.25pt borderwidth = 0.25pt; replace SystemFooter from TitlesAndFooters / just = L font = fonts('docFont'); end; run; options nodate nonumber papersize=A4 topmargin="0.75in" leftmargin="0.375in" bottommargin="0.375in" rightmargin="0.375in" orientation=landscape; ods escapechar='~'; footnote3 j=l;footnote4 j=l; ods proclabel="Report: xxx"; ods document name=WORK.CONTENTS(write); title1 j=l "~S={leftmargin=0in} Study: xxx" j=r "Report: xxx, Page ~{thispage} of ~{lastpage}"; title2 j=r "~S={leftmargin=0in} Date: &sysdate9."; title3 " "; In the attached table, you can find that the right side of title1 and footnote are truncated, but title2 is shown correctly.   Does anyone have idea on this? looking forward for any suggestions! ... View more