topic Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling? in ODS and Base Reporting

SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

morglum — Fri, 15 Jan 2016 20:59:44 GMT

Hi Everyone,

I'm generating png's using Proc SGPLOT insert them inside a proc report through "preimage".

However, the image quality is reduced inside the produced PDF. How can I avoid this loss of quality?

Attached, the SAS program used to generate the three PNG and the report.

thanks!

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Reeza — Sat, 16 Jan 2016 03:22:00 GMT

Justing the code inline to make it easier for others to help debug.


ODS HTML GPATH = 'c:\temp\'  style=styles.custom ; 

title;
footnote;

data temp;
do x =1 to 20;
	y1= 2*(x+ranuni(1));
	y2= 2*(x+ranuni(2))-x;
	y3= 2*(x+ranuni(3))-x;

output;
end;
run;
ods graphics on / reset=all width=2in height=1in imagename="Graph1";
proc sgplot data=temp noautolegend  ;
series x=x y=y1 /lineattrs=(thickness=2.5)    ;
xaxis label="time"  values=(1 to 20 by 1) ;
yaxis label="($)" min=0  ;
title "Graph 1";

run;

ods graphics on / reset=all width=2in height=1in imagename="Graph2";
proc sgplot data=temp noautolegend  ;
series x=x y=y2 /lineattrs=(thickness=2.5)    ;
xaxis label="time"  values=(1 to 20 by 1) ;
yaxis label="($)" min=0  ;
title "Graph 2";

run;

ods graphics on / reset=all width=2in height=1in imagename="Graph3";
proc sgplot data=temp noautolegend  ;
series x=x y=y3 /lineattrs=(thickness=2.5)    ;
xaxis label="time"  values=(1 to 20 by 1) ;
yaxis label="($)" min=0  ;
title "Graph 3";

run;

data images;
image1="c:\temp\graph1.png";
image2="c:\temp\graph2.png";
image3="c:\temp\graph3.png";
run;

ods pdf file= "c:\temp\report.pdf";
title "3 graphs";
proc report data=images nofs ; 
 column image1 image2 image3;
 define image1 / "" display style={cellwidth=2.5in};
 define image2 / "" display style={cellwidth=2.5in};
 define image3 / "" display style={cellwidth=2.5in};
 compute image1;
 call define(_col_,"Style","Style=[PREimage='"!!image1!!"']"); 
 image1=""; *<<< Avoid image location being printed; 
 endcomp;
  compute image2;
 call define(_col_,"Style","Style=[PREimage='"!!image2!!"']"); 
 image2=""; *<<< Avoid image location being printed; 
 endcomp;

  compute image3;
 call define(_col_,"Style","Style=[PREimage='"!!image3!!"']"); 
 image3=""; *<<< Avoid image location being printed; 
 endcomp;

run; 

ods pdf close;

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Ksharp — Mon, 18 Jan 2016 02:37:16 GMT

Make dpi of picture and PDF bigger .

ODS listing GPATH = '/folders/myfolders/' image_dpi=1000;

title;
footnote;

data temp;
do x =1 to 20;
y1= 2*(x+ranuni(1));
y2= 2*(x+ranuni(2))-x;
y3= 2*(x+ranuni(3))-x;

output;
end;
run;
ods graphics on / reset=all width=2in height=1in imagename="Graph1";
proc sgplot data=temp noautolegend ;
series x=x y=y1 /lineattrs=(thickness=2.5) ;
xaxis label="time" values=(1 to 20 by 1) ;
yaxis label="($)" min=0 ;
title "Graph 1";

run;

ods graphics on / reset=all width=2in height=1in imagename="Graph2";
proc sgplot data=temp noautolegend ;
series x=x y=y2 /lineattrs=(thickness=2.5) ;
xaxis label="time" values=(1 to 20 by 1) ;
yaxis label="($)" min=0 ;
title "Graph 2";

run;

ods graphics on / reset=all width=2in height=1in imagename="Graph3";
proc sgplot data=temp noautolegend ;
series x=x y=y3 /lineattrs=(thickness=2.5) ;
xaxis label="time" values=(1 to 20 by 1) ;
yaxis label="($)" min=0 ;
title "Graph 3";

run;

data images;
image1="/folders/myfolders/graph1.png";
image2="/folders/myfolders/graph2.png";
image3="/folders/myfolders/graph3.png";
run;

ods pdf file= "/folders/myfolders/report.pdf" dpi=1000;
title "3 graphs";
proc report data=images nofs nowd ;
column image1 image2 image3;
define image1 / "" display style={cellwidth=2.5in};
define image2 / "" display style={cellwidth=2.5in};
define image3 / "" display style={cellwidth=2.5in};
compute image1;
call define(_col_,"Style","Style=[PREimage='"!!image1!!"']");
image1=""; *<<< Avoid image location being printed;
endcomp;
compute image2;
call define(_col_,"Style","Style=[PREimage='"!!image2!!"']");
image2=""; *<<< Avoid image location being printed;
endcomp;

compute image3;
call define(_col_,"Style","Style=[PREimage='"!!image3!!"']");
image3=""; *<<< Avoid image location being printed;
endcomp;

run;

ods pdf close;

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

morglum — Mon, 18 Jan 2016 15:35:08 GMT

Hi Xia,

Thanks for replying! It worked.

For some reason, the naming scheme changed over the weekend..

I now get graph11.png graph21.png and graph31.png.

(The index starts at "1" instead of "no number") any idea what might be going on?

thanks!

Simon

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Ksharp — Tue, 19 Jan 2016 00:58:56 GMT

I would make a macro to make it happen if I were you . decide the naming rule of graph and assign it to a macro variable.

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

morglum — Tue, 19 Jan 2016 02:00:00 GMT

Hi Xia,

Thanks for replying! I dont think my issue requires a macro. What I mean is that the file created after I do a "reset=all" is named

"name1.png" instead of "name.png".

That's an unrelated issue, but I was wondering if you might know what is going on.

cheers!

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Ksharp — Tue, 19 Jan 2016 02:08:59 GMT

No. I have no any clue about it . SAS has itself naming rule .

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Reeza — Tue, 19 Jan 2016 02:39:20 GMT

http://support.sas.com/documentation/cdl/en/grstatproc/67909/HTML/default/viewer.htm#p0f8elds7dc3dnn1ahm2cep3n0ce.htm

Most likely it's starting with 1 because the other file already exists?

EDIT: you can specify where the index starts in the latest SAS releases, though I think a similar option existed in SAS 9.2

http://support.sas.com/documentation/cdl/en/grstatproc/67909/HTML/default/viewer.htm#p0kroq43yu0lspn16hk1u4c65lti.htm

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

morglum — Fri, 25 Nov 2016 07:23:01 GMT

Nope, i deleted everything. In the example code above from Xia, i get the
wrong file numbers.

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Ksharp — Tue, 19 Jan 2016 05:09:15 GMT

Did you start a fresh new SAS session to run the code ?

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Ksharp — Tue, 19 Jan 2016 08:09:36 GMT

Why not use ODS LAYOUT, that would not need to consider about file name ?

data temp;
do x =1 to 20;
	y1= 2*(x+ranuni(1));
	y2= 2*(x+ranuni(2))-x;
	y3= 2*(x+ranuni(3))-x;

output;
end;
run;
ods pdf file='/folders/myfolders/xx.pdf' ;
ods layout gridded advance=table COLUMNS=3;
ods graphics on / reset=all width=2in height=1in imagename="Graph1";
proc sgplot data=temp noautolegend  ;
series x=x y=y1 /lineattrs=(thickness=2.5)    ;
xaxis label="time"  values=(1 to 20 by 1) ;
yaxis label="($)" min=0  ;
title "Graph 1";

run;

ods graphics on / reset=all width=2in height=1in imagename="Graph2";
proc sgplot data=temp noautolegend  ;
series x=x y=y2 /lineattrs=(thickness=2.5)    ;
xaxis label="time"  values=(1 to 20 by 1) ;
yaxis label="($)" min=0  ;
title "Graph 2";

run;

ods graphics on / reset=all width=2in height=1in imagename="Graph3";
proc sgplot data=temp noautolegend  ;
series x=x y=y3 /lineattrs=(thickness=2.5)    ;
xaxis label="time"  values=(1 to 20 by 1) ;
yaxis label="($)" min=0  ;
title "Graph 3";

run;
ods pdf close;

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

morglum — Tue, 19 Jan 2016 13:05:18 GMT

Thanks Xia!

That's a good tip and I didnt know about it, but I need to know the exact filename of the png to attach it to an email generated using "filename email"

cheers!

Re: SGPLOT > PNG > Proc report PREIMAGE > Ods PDF how to avoid rescaling?

Reeza — Tue, 19 Jan 2016 15:41:15 GMT

Use the index and imagename option together so you'll know where it will start.