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

ตรวจสอบการวัดขนาด

จนถึงตอนนี้ได้ลบ 2 กรณีที่ความสูงของหอยเป๋าฮื้อวัดได้ 0mm ซึ่งเป็นข้อมูลที่วัดผิดพลาด และลบอีก 4 กรณีที่ shuckedWeight มีค่ามากกว่า wholeWeight ซึ่งไม่สมเหตุสมผลและน่าจะเกิดจากการบันทึกข้อมูลผิด ชุดข้อมูล abaloneKeep ที่โหลดสำหรับแบบฝึกหัดนี้จึงเหลือเพียง 4177 - 2 - 4 = 4171 กรณี

นอกจากนี้ ความสัมพันธ์ระหว่างการวัดขนาดต่าง ๆ ก็ต้องได้รับการตรวจสอบด้วย โดย length ของหอยเป๋าฮื้อ (หน่วยเป็น mm) ถูกกำหนดให้เป็นการวัดเปลือกที่ยาวที่สุด ดังนั้น length ควรมีค่ามากกว่า height และ diameter เสมอ ในแบบฝึกหัดนี้จะตรวจสอบเงื่อนไขดังกล่าวโดยใช้ scatterplot ร่วมกับเส้นอ้างอิง Y=X จากนั้นจะลบกรณีที่ไม่ผ่านเงื่อนไข length นี้ออก

ชุดข้อมูล abaloneKeep รวมถึงแพ็กเกจ dplyr และ ggplot2 ได้ถูกโหลดไว้ให้แล้ว

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

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

ดูคอร์ส

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

  • สร้าง scatterplot โดยให้ length อยู่บนแกน x และ height อยู่บนแกน y แล้วเพิ่มเส้นอ้างอิง Y=X ที่มี intercept เป็น 0 และ slope เป็น 1
  • สร้าง scatterplot โดยให้ length อยู่บนแกน x และ diameter อยู่บนแกน y แล้วเพิ่มเส้นอ้างอิง Y=X ที่มี intercept เป็น 0 และ slope เป็น 1
  • อัปเดต abaloneKeep ให้เก็บเฉพาะหอยเป๋าฮื้อที่มีค่า length มากกว่าทั้ง height และ diameter

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

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

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