Kontrola rozměrových měření
Zatím jsi odstranil/a 2 záznamy s výškou ústřice 0 mm, které byly chybně změřeny, a také 4 záznamy, kde shuckedWeight byl větší než wholeWeight – což je logicky nemožné a pravděpodobně jde o chyby při zadávání dat. Dataset abaloneKeep načtený pro toto cvičení teď obsahuje 4177 - 2 - 4 = 4171 záznamů.
Dále je potřeba zkontrolovat vzájemné vztahy rozměrových měření. Délka ústřice length (v mm) byla definována jako největší rozměr ulity – měla by tedy být vždy větší než height (výška) i diameter (průměr). Tuto podmínku teď ověříš pomocí bodového grafu s referenční přímkou Y=X a odstraníš záznamy, které ji nesplňují.
Dataset abaloneKeep a balíčky dplyr a ggplot2 jsou pro tebe již načteny.
Toto cvičení je součástí kurzu
R pro uživatele SAS
Pokyny k cvičení
- Vytvoř bodový graf s
lengthna ose x aheightna ose y a přidej referenční přímku Y=X s interceptem 0 a sklonem 1. - Vytvoř bodový graf s
lengthna ose x adiameterna ose y a přidej referenční přímku Y=X s interceptem 0 a sklonem 1. - Aktualizuj dataset
abaloneKeeptak, aby obsahoval pouze ústřice, u nichž jelengthvětší nežheightidiameter.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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((___) & (___))