เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

น้ำหนักที่ไม่สมเหตุสมผล

การลบข้อมูลหอยเป๋าฮื้อที่มีความสูง 0 มม. เป็นเพียงจุดเริ่มต้นเท่านั้น ในแบบฝึกหัดนี้ จะมีการตรวจสอบน้ำหนักองค์ประกอบของหอยเป๋าฮื้อด้วย wholeWeight คือน้ำหนักรวมทั้งหมดของหอยเป๋าฮื้อในหน่วยกรัม ซึ่งรวมทั้งเนื้อและเปลือก ดังนั้น wholeWeight จึงควรมีค่ามากกว่า shuckedWeight, visceraWeight และ shellWeight เสมอ

จากแบบฝึกหัดก่อนหน้า พบว่ามีค่า pctShucked บางรายการที่มากกว่า 100% ซึ่งหมายความว่า shuckedWeight มีค่ามากกว่า wholeWeight ในแบบฝึกหัดนี้ จะทบทวนและแสดงภาพข้อมูลเหล่านี้ จากนั้นลบออกจากชุดข้อมูล abaloneKeep ซึ่งโหลดมาจากแบบฝึกหัดที่แล้ว พร้อมกับแพ็กเกจ dplyr และ ggplot2

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

R สำหรับผู้ใช้ SAS

ดูคอร์ส

คำแนะนำการฝึกหัด

  • เรียงลำดับ abaloneKeep ตาม pctShucked แล้วดึงค่า pctShucked จาก abaloneKeep และดู 6 แถวล่างสุด
  • สร้าง scatterplot โดยให้ wholeWeight อยู่บนแกน x และ shuckedWeight อยู่บนแกน y จากนั้นเพิ่ม geom_abline() โดยกำหนด intercept เป็น 0 และ slope เป็น 1
  • กรองเฉพาะรายการที่ shuckedWeight น้อยกว่า wholeWeight โดยใช้ filter() จากแพ็กเกจ dplyr

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# 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 %>%
  ___
แก้ไขและรันโค้ด