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

เพิ่ม rug plot ลงในกราฟ

กราฟที่สร้างไปดูดีทีเดียว แต่ยังสังเกตเห็นว่ามีลักษณะ bi-modality เล็กน้อยในช่วงชั่วโมงที่ 10 ถึง 15 เนื่องจากมองเห็นแค่กลุ่มก้อนของ density estimate จึงยากที่จะบอกได้ว่ารูปร่างนั้นน่าเชื่อถือแค่ไหน

แก้ปัญหานี้ด้วยสองวิธีดังนี้

แรกสุด ลดค่า alpha ของ density plot ลง เพื่อให้สามารถระบุตำแหน่งของยอดกราฟได้แม่นยำขึ้นโดยอ้างอิงจาก grid เส้นตาราง

จากนั้น เพิ่ม rug plot ไว้ใต้ density plot โดยใช้ geom_rug() และกำหนด alpha ของ rug plot เป็น 0.5 เพื่อแสดงจุดที่ข้อมูลซ้อนทับกัน

ชุดข้อมูล truck_speeding ที่สร้างไว้ในแบบฝึกหัดก่อนหน้าได้ถูกโหลดไว้ให้แล้ว

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

แนวทางปฏิบัติที่ดีที่สุดสำหรับการสร้างภาพข้อมูลใน R

ดูคอร์ส

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

  • กำหนด alpha ของ density plot เป็น 0.7
  • เพิ่ม geom_rug() เข้าไปในกราฟ
  • กำหนด alpha ของ rug plot เป็น 0.5

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

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

ggplot(truck_speeding, aes(x = hour_of_day)) +
    # Adjust opacity to see gridlines with alpha = 0.7
    geom_density(bw = 1.5, fill = 'steelblue', ___) +
    # add a rug plot using geom_rug to see individual data points, set alpha to 0.5.
    ___ +
    labs(title = 'Citations by hour', subtitle = "Gaussian kernel SD = 1.5")
แก้ไขและรันโค้ด