결제 유형별 요금 분포 비교
현금 결제에서는 팁이 없다는 것을 확인했어요. 이것이 현금 결제자는 팁을 주지 않는다는 뜻일까요, 아니면 현금 결제 시 팁이 기록되지 않는다는 뜻일까요? 비슷한 경로라면 결제 유형과 관계없이 총 요금의 분포가 동일하리라고 예상할 수 있습니다. 이 연습에서는 결제 유형별 총 요금 분포를 비교하는 분위수 플롯을 만들고, 원래 플롯과는 다른 패싯에 배치해 비교해 보겠습니다.
payment_type, amount, amount_type 변수를 포함한 amount_compare 데이터셋이 준비되어 있습니다. amount_type은 총 지불 금액을 반영하는 값인지, 팁이 없는 지불 금액인지를 구분합니다.
이 연습은 강의의 일부입니다
R에서 Trelliscope로 빅데이터 시각화하기
연습 안내
- 플롯을 지정하기 전에
amount_compare를 콘솔에 출력해 구조를 확인하고, 플롯 설정에 도움이 되도록 살펴보세요. geom_qq()를 사용해 총 요금amount의 분위수 플롯을 만드세요.distribution = stats::qunif를 꼭 지정합니다.- 각 결제 유형별로 분리된 분위수 플롯이 같은 플롯에 겹쳐 보이도록
color를 결제 유형으로 지정하세요. - 각
amount_type에 대한 분포 비교가 보이도록 패싯을 사용하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
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))