Analiza koszyka zakupowego w R
Christopher Bruffaerts
Statistician
Co jest w sklepie?

Koszyk 1: {"Bread", "Cheese"}
Koszyk 2: {"Bread", "Wine" , "Cheese"}
Wiele koszyków
Jeśli 100 klientów odwiedza sklep spożywczy, czy można znaleźć powiązania między często kupowanymi razem produktami?
Przykład: Bread i Cheese

Wynik: „jeśli to, to tamto"
Uczenie się z wielu koszyków

Różne zastosowania
Utwórz zbiór danych zawierający wiele koszyków!
my_baskets = data.frame(
"Basket" = c(1,1,1,1, 2,2,2, 3,3, 4,4,4, 5,5, 6,6, 7,7),
"Product" = c("Bread", "Cheese", "Cheese", "Cheese",
"Bread", "Butter", "Wine",
"Butter", "Butter",
"Butter", "Wine", "Wine",
"Butter", "Cheese",
"Cheese", "Wine",
"Wine", "Wine")
)
Podgląd koszyków
head(my_baskets)
Basket Product
1 1 Bread
2 1 Cheese
3 1 Cheese
4 1 Cheese
5 2 Bread
6 2 Butter
Pytania
n_distinct(my_baskets$Product)
[1] 4
n_distinct(my_baskets$Basket)
[1] 7
df_basket =
my_baskets %>%
group_by(Basket) %>%
summarize(
n_total = n(),
n_items = n_distinct(Product))
Basket n_total n_items
<dbl> <int> <int>
1 1 4 2
2 2 3 3
Średnia wielkość koszyka
basket_size %>%
summarize(
avg_total_items = mean(n_total),
avg_dist_items = mean(n_items))
# A tibble: 1 x 2
avg_total_items avg_dist_items
<dbl> <dbl>
1 2.57 1.86
Rozkład wielkości koszyka
# Distribution of distinct items
ggplot(df_basket, aes(n_items)) +
geom_bar()

Który produkt jest analizowany?
Ile razy produkt pojawia się we wszystkich koszykach?
Ile koszyków zawiera ten produkt?
Przykład:

Filtrowanie dla Cheese w R
# Number of baskets containing Cheese
my_baskets %>%
filter(Product == "Cheese") %>%
summarize(
n_tot_items = n(),
n_basket_item = n_distinct(Basket))
n_tot_items n_basket_item
1 5 3
Eksploracja reguł asocjacyjnych: znajdowanie często współwystępujących powiązań między produktami.

Przykłady wyodrębnionych reguł:
Plan pozostałej części kursu:

Analiza koszyka zakupowego w R