data one ; length sample $ 9 ; input sample $ n ; do i = 1 to n ; input area @@ ; output ; end ; cards ; judgement 10 2 8 5 9 6 7 9 5 6 7 random 10 4 7 6 8 5 7 6 8 5 7 ; proc sort ; by sample ; proc means ; by sample ; proc insight data = one ; window 50 0 50 50; by sample ; bar area / yaxis = 2 12 2 1 0 14 xaxis = 1 8 1 0 0 8 ; run ;