비상식적인 무게 값
높이가 0 mm인 전복을 제거한 것은 시작에 불과했어요. 이번 연습 문제에서는 전복의 구성 요소 무게도 살펴보겠습니다. wholeWeight는 전복의 총 무게(그램)로, 살과 껍데기 무게를 모두 포함합니다. 따라서 wholeWeight는 shuckedWeight, visceraWeight, shellWeight보다 커야 합니다.
앞선 연습 문제에서 pctShucked 값 중 일부가 100%를 초과해 shuckedWeight가 wholeWeight보다 큰 경우가 있음을 보셨죠. 이번에는 이러한 사례를 검토하고 시각화한 뒤, 데이터셋 abaloneKeep에서 제거하겠습니다. abaloneKeep은 이전 연습 문제에서 불러온 상태이며, dplyr과 ggplot2 패키지도 로드되어 있습니다.
이 연습은 강의의 일부입니다
SAS 사용자를 위한 R
연습 안내
abaloneKeep을pctShucked기준으로 정렬하고,abaloneKeep에서pctShucked만 추출한 뒤 하단 6개 행을 확인하세요.- x축에
wholeWeight, y축에shuckedWeight를 두고scatterplot을 만든 다음, 절편 0, 기울기 1인geom_abline()을 추가하세요. dplyr패키지의filter()를 사용해shuckedWeight가wholeWeight보다 작은 경우만 남기세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Sort abaloneKeep by pctShucked, view largest 6 pctShucked
abaloneKeep %>%
___ %>%
___ %>%
___
# Scatterplot of shuckedWeight by wholeWeight add y=x line
ggplot(___) +
___ +
___
# Keep cases where shuckedWeight is less than wholeWeight
abaloneKeep <- abaloneKeep %>%
___