支払い方法別の運賃分布の比較
現金払いではチップが記録されていないことがわかりました。これは、現金払いの人がチップを渡さないからなのか、それとも現金払いの場合にチップが記録されないからなのでしょうか？同じような経路であれば、支払い方法に関わらず合計運賃の分布は同じになるはずです。この演習では、支払い方法別の合計運賃の分布を分位数プロットで比較し、元のプロットと並べて別のファセットで確認します。
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))