PK Parameter Box Plot Program

PK Parameter Box Plots

***************************************************************************
** Program: pkparmboxplot.sas
** Author: DataCeutics, Inc.
** Language/Version: SAS/9.4
** CR Toolkit Version: 2.5.3
** Copyright DataCeutics, Inc 2018
** Description: PK parameter box plots
** Macro Calls: %formatm %table4
*****************************************************************************;
options mprint nobyline nodate;
ods proclabel="PK Parameter Box and Whisker Plot";

%macro gopts;
goptions
	gsfmode= replace
	reset = global
	gunit = cells
	htext = 1.25
	htitle = 1.25
	cback = white
	colors = (black green yellow blue red orange cyan pink brown magenta grey)
	reset = symbol;
	
	pattern1 v=s  color=black;
	pattern2 v=x1 color=green;
	pattern3 v=s  color=yellow;
	pattern4 v=r3 color=blue;
	pattern5 v=s  color=red;
	pattern6 v=l3 color=orange;
	pattern7 v=s  color=cyan;
	pattern8 v=x3 color=pink;
	pattern9 v=s  color=brown;
	
	symbol1 value=dot      color=black width=1 height=1;
	symbol2 value=square   color=black width=1 height=1;
	symbol3 value=circle   color=black width=1 height=1;
	symbol4 value=triangle color=black width=1 height=1;
	symbol5 value=star     color=black width=1 height=1;
	symbol6 value=diamond  color=black width=1 height=1;
	symbol7 value=hash     color=black width=1 height=1;
	
axis2 order=(0 to 3) minor=none major=none value=(tick=1 "" tick= 2 "Treatment A" tick= 3 "Treatment B" tick= 4 "");
run;
%mend gopts;
%gopts;

data adpp;set adam2.adpp;
	where aperiod = 1;
	aval = round(aval, .1);
	label trtpn = 'Treatment Group';
run;

%graph4(in=adpp,
	dose=trtpn,
	dosefmt=trtp,
	pageby=param,
	gtype=,
	v_var=aval,
	h_var=trtpn,
	interpol=boxt width = 1.3 bwidth = 3,
	dsp_n=n,
	dsp_size=1.2,
	opts=haxis=axis2 noframe ,
	opts2= noaxis,
	suffix=01,
	type=l,
	ods_dest=pdf8,
	docline=lastfoot,
	driver=titles.txt
	);