始める無料で始める

不合理な重量

高さが 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 %>%
  ___
コードを編集して実行