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

เปรียบเทียบการกระจายของค่าโดยสารตามประเภทการชำระเงิน

เราพบว่าการชำระเงินสดไม่มีการบันทึกทิป แต่นั่นหมายความว่าผู้ที่จ่ายด้วยเงินสดไม่ให้ทิปจริง ๆ หรือเป็นเพราะทิปไม่ได้ถูกบันทึกเมื่อชำระด้วยเงินสด? สำหรับเส้นทางที่ใกล้เคียงกัน เราคาดว่าการกระจายของค่าโดยสารรวมควรเหมือนกันโดยไม่ขึ้นกับประเภทการชำระเงิน ในแบบฝึกหัดนี้ จะสร้าง quantile plot เพื่อเปรียบเทียบการกระจายของค่าโดยสารรวมตามประเภทการชำระเงิน และนำไปเปรียบเทียบกับพล็อตเดิมในอีก facet หนึ่ง

ชุดข้อมูล amount_compare ถูกสร้างไว้ให้แล้ว ประกอบด้วยตัวแปร payment_type, amount และ amount_type โดย amount_type แยกความแตกต่างระหว่างค่าที่แสดงยอดชำระทั้งหมด กับค่าที่ไม่รวมทิป

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

การแสดงภาพข้อมูลขนาดใหญ่ด้วย Trelliscope ใน R

ดูคอร์ส

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

  • ตรวจสอบชุดข้อมูล amount_compare ก่อนทำแบบฝึกหัดโดยพิมพ์ออกมาที่คอนโซล เพื่อทำความเข้าใจโครงสร้างและช่วยในการกำหนดค่าพล็อต
  • ใช้ geom_qq() สร้าง quantile plot ของค่าโดยสารรวม amount โดยต้องระบุ distribution = stats::qunif ด้วย
  • กำหนดให้สร้าง quantile plot แยกตามประเภทการชำระเงินโดยใช้ color เพื่อให้แต่ละการกระจายแสดงทับกันในพล็อตเดียวกัน
  • แสดงการเปรียบเทียบการกระจายของแต่ละ amount_type โดยใช้ faceting

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

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

library(ggplot2)
library(dplyr)
library(tidyr)

# Get data ready to plot
amount_compare <- tx_pop %>%
  mutate(total_no_tip = total_amount - tip_amount) %>%
  select(total_amount, total_no_tip, payment_type) %>%
  pivot_longer(!payment_type, names_to = "amount_type", values_to = "amount")

# Quantile plot
ggplot(___, aes(sample = ___, color = ___)) +
  geom_qq(distribution = ___, shape = 21) +
  facet_wrap(~ ___) +
  ylim(c(3, 20))
แก้ไขและรันโค้ด