Market Basket Analysis v R
Christopher Bruffaerts
Statistician
Kurz analýzy nákupního košíku

Košík = soubor položek
Položky

Příklady košíků:
Váš košík v supermarketu
Váš nákupní košík na Amazonu
Vaše kurzy na DataCampu
Filmy, které jste sledovali na Netflixu
Co je v obchodě?

Co si dnes dáte?

Co je v obchodě?
store = c("Bread", "Butter",
"Cheese", "Wine")
set.seed(1234)
n_items = 4
my_basket = data.frame(
TID = rep(1,n_items),
Product = sample(
store, n_items,
replace = TRUE))
Výstup R
my_basket
TID Product
1 1 Bread
2 1 Cheese
3 1 Cheese
4 1 Cheese
Původní košík
Jeden záznam na zakoupený produkt
TID Product
1 1 Bread
2 1 Cheese
3 1 Cheese
4 1 Cheese
Upravený košík
Jeden záznam na jedinečný produkt
# A tibble: 2 x 3
TID Product Quantity
<dbl> <fct> <int>
1 1 Bread 1
2 1 Cheese 3
Transformace dat košíku
# Adjusting my basket
my_basket = my_basket %>%
add_count(Product) %>%
unique() %>%
rename(Quantity = n)
# Number of distinct items
n_distinct(my_basket$Product)
2
# Total basket size
my_basket %>% summarize(sum(Quantity))
4
Vizualizace položek v košíku
# Plotting items
ggplot(my_basket,
aes(x=reorder(Product, Quantity),
y = Quantity)) +
geom_col() +
coord_flip() +
xlab("Items") +
ggtitle("Summary of items
in my basket")

Otázka: Existuje nějaký vztah mezi položkami v košíku?

Zpět k příkladům
Váš košík v supermarketu, např. špagety a rajčatová omáčka
Váš nákupní košík na Amazonu, např. telefon a pouzdro na telefon
Vaše kurzy na DataCampu např. „Introduction to R" a „Intermediate R"
Market Basket Analysis v R