예제 7.4: 더 예쁜 지터가 가미된 산점도

7.3절에서 발생한 그래프 문제점 7.3절에서 그려진 그래프에는 몇 가지 문제가 있습니다. 최소한, 지터(jitter) 값은 0과 1 사이에 있어야 하며, 이렇게 하면 부드러운 선이 보다 잘 맞아떨어집니다. 다시 한 번 7.2절에서 생성한 데이터를 예제로 사용합니다. SAS와 R 모두에서 조건부(1.11.2절)를 사용하여 지터가 0~1 범위 내에서 발생하도록 합니다. SAS 구현 SAS에서는 축 tick marks와 레이블을 정리하기 위해 axis 문(5.3.8절)을 사용합니다. data lp1; set test; jitter = uniform(0) * 0.075; if ytest eq 1 then yplot = ytest - jitter; else if ytest eq 0 then yplot = ytest + jitter; run; axis1 minor = none label = ("xtest"); axis2 minor = none label = (angle=270 rotate=90 "ytest"); symbol1 i=sm50s v=none c = blue; symbol2 i=none v=dot h = .2 c = blue; proc gplot data = lp1; plot (ytest yplot) * xtest / overlay haxis=axis1 vaxis=axis2; run; quit; 위 코드 실행 결과는 다음과 같습니다. R 구현 R에서는 y축에 ylab 옵션(5.3.8절)을 사용하여 라벨을 추가합니다. 또한, 스무더를 데이터에 조금 덜 민감하게 하기 위해 더 넓은 창(window)을 사용하도록 수정합니다(5.2.6절 참조).