data rating;

format name $10.      project $10.      estimate $10.;

input name $      project $      estimate $;

cards;

TOM   A     中等

TOM   B     优秀

TOM   C     中等

TOM   D     良好

Mary  A     中等

Mary  B     良好

Jack  A     中等;

run;

proc format;

value $r

'优秀'=1

'良好'=2

'中等'=3;

run;

data r2;

set rating;

level =put(estimate,$r.)*1;

run;

proc sort data = r2;

by name level;

run;

data result;setr2;

by name;

if first.name;

keep name estimate;

run;