* proc sort and proc transpose get the data in a shape to plot;
proc sort data=ma2612.asphalt out=sort_temp;
	by site type;
run;

proc transpose data=sort_temp prefix=wear_type 
		out=asphalt_split(drop=_Name_);
	var wear;
	by site;
run;

proc sgplot data=asphalt_split;
 series x=site y=wear_type1/markers MARKERATTRS=(color=red) lineattrs= (pattern=solid color=red);
 series x=site y=wear_type2/markers MARKERATTRS=(color=blue symbol=plus) lineattrs=(pattern=dashdashdot color=blue);
 series x=site y=wear_type3/markers MARKERATTRS=(color=green symbol=asterisk) lineattrs=(pattern=shortdash color=green);
 series x=site y=wear_type4/markers MARKERATTRS=(color=black symbol=diamond) lineattrs=(pattern=longdash color=black);
run;