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

Ridgeline Plot เบื้องต้น

โค้ดด้านล่างสร้าง ridgeline plot เพื่อดูเปอร์เซ็นต์ที่เกินขีดจำกัดความเร็วของผู้ขับขี่ที่ถูกจับ แยกตามวันในสัปดาห์

ปรับแก้โค้ดเพื่อกำหนดความกว้างของ kernel (bandwidth) ให้เป็นค่าที่ระบุ เปลี่ยนขอบเขตแกน x เพื่อตัดหางที่ยาวออก และเพิ่ม subtitle เพื่อแจ้งให้ผู้อ่านทราบค่า bandwidth ที่ใช้

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

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

ดูคอร์ส

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

  • เปลี่ยน bandwidth เป็น 3.5 ใน geom_density_ridges()
  • กำหนด limits ของแกน x ให้อยู่ในช่วง 0 ถึง 150
  • เพิ่ม subtitle ให้กับกราฟว่า 'Gaussian kernel SD = 3.5'

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

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

library(ggridges)

md_speeding %>% 
    mutate(day_of_week = factor(day_of_week, levels = c("Mon","Tues","Wed","Thu","Fri","Sat","Sun") )) %>% 
    ggplot(aes( x = percentage_over_limit, y = day_of_week)) + 
    # Set bandwidth to 3.5
    geom_density_ridges() +
    # add limits of 0 to 150 to x-scale
    scale_x_continuous() 
    # provide subtitle with bandwidth
แก้ไขและรันโค้ด