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

หมวดหมู่อายุตามหมวดหมู่น้ำหนักเปลือก

ในบทที่ 2 ก่อนหน้านี้ คุณได้สร้าง agecat สำหรับหอยเป๋าฮื้อที่มีอายุน้อยกว่า 10.5 ปี (กำหนดรหัสเป็น "< 10.5") และกลุ่มที่มีอายุ 10.5 ปีขึ้นไป (กำหนดรหัสเป็น "10.5 and older") คราวนี้ มาแบ่งน้ำหนักเปลือกหอยออกเป็น 2 หมวดหมู่ด้วย ได้แก่ กลุ่มที่มีน้ำหนักไม่เกิน 0.235 กรัม และกลุ่มที่มีน้ำหนักมากกว่า 0.235 กรัม

ชุดข้อมูล abaloneKeep ที่มี agecat พร้อมด้วยแพ็กเกจ dplyr ได้ถูกโหลดไว้ให้แล้ว

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

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

ดูคอร์ส

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

  • ใช้ฟังก์ชัน ifelse() เพื่อเพิ่ม shellcat ลงใน abaloneKeep โดยแบ่งน้ำหนักเปลือกออกเป็น 2 หมวดหมู่ คือ "<= 0.235g" และ "> 0.235g"
  • สร้างตารางความถี่ที่เรียกว่า tableageshell สำหรับ chisq.test() ของ agecat จำแนกตาม shellcat จากนั้นรัน chisq.test() บน tableageshell
  • สร้าง mosaic plot ของ agecat จำแนกตาม shellcat โดยใช้สี "light blue" และ "grey" และตั้งชื่อกราฟว่า "Mosaicplot of age by shell categories"

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

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

# Add shellcat to abaloneKeep
___ <- ___ %>%
  mutate(shellcat = ifelse(___, ___, ___))

# Run chisq.test of agecat by shellcat
tableageshell <- ___ %>% 
  with(___)

chisq.test(___)

# Make mosaicplot of agecat by shellcat
mosaicplot(___ ~ ___, data = ___,
           color = c(___, ___),
           main = ___)
แก้ไขและรันโค้ด