寸法測定の確認
これまでに、0mm のアワビの height(高さ)が誤って測定されていた 2 ケースを除外しました。また、記録ミスと思われる shuckedWeight が wholeWeight より大きい 4 ケースも除外しました。この演習で読み込まれている abaloneKeep データセットは、4177 - 2 - 4 = 4171 ケースになっています。
さらに、寸法測定の関係も確認する必要があります。アワビの length(mm)は、殻の最長辺として定義されています。したがって、length は常に height や diameter よりも大きいはずです。ここでは、Y=X の参照線を持つ散布図を使ってこの条件を確認します。その後、この length 条件に合致しないケースを除外します。
abaloneKeep データセットと、dplyr および ggplot2 パッケージはすでに読み込まれています。
この演習はコースの一部です
SAS ユーザーのための R
演習の手順
- x 軸に
length、y 軸にheightをとった散布図を作成し、切片 0、傾き 1 の Y=X 参照線を追加してください。 - x 軸に
length、y 軸にdiameterをとった散布図を作成し、切片 0、傾き 1 の Y=X 参照線を追加してください。 lengthがheightとdiameterの両方より大きいアワビのみを残すようにabaloneKeepを更新してください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Make scatterplot of height by length add y=x line
ggplot(___) +
___ +
___
# Make scatterplot of diameter by length add y=x line
ggplot(___) +
___ +
___
# Keep abalones with length > both height and diameter
abaloneKeep <- abaloneKeep %>%
filter((___) & (___))