Začněte nyníZačněte zdarma

Porovnání rozdělení jízdného podle způsobu platby

Viděli jsme, že u plateb v hotovosti není žádné spropitné. Znamená to, že lidé platící hotovostí spropitné nedávají, nebo že se spropitné při hotovostní platbě jednoduše nezaznamenává? U podobných tras bychom očekávali, že rozdělení celkového jízdného bude stejné bez ohledu na způsob platby. V tomto cvičení vytvoříš kvantilový graf porovnávající rozdělení celkového jízdného podle způsobu platby a porovnáš ho s původním grafem v samostatném facetu.

Dataset amount_compare je pro tebe připravený a obsahuje proměnné payment_type, amount a amount_type. Proměnná amount_type rozlišuje mezi hodnotami odpovídajícími celkové platbě a platbě bez spropitného.

Toto cvičení je součástí kurzu

Vizualizace velkých dat s Trelliscope v R

Zobrazit kurz

Pokyny k cvičení

  • Před dokončením cvičení si prohlédni dataset amount_compare – vypiš ho do konzole a zjisti jeho strukturu, která ti pomůže se specifikací grafu.
  • Pomocí geom_qq() vytvoř kvantilový graf celkového jízdného amount. Nezapomeň nastavit distribution = stats::qunif.
  • Zajisti, aby byl pro každý způsob platby vytvořen samostatný kvantilový graf – použij color podle způsobu platby tak, aby se jednotlivá rozdělení zobrazila přes sebe ve stejném grafu.
  • Porovnání rozdělení pro každý amount_type zobraz pomocí facetování.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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))
Upravit a spustit kód