{"metadata":{"kernelspec":{"name":"ir","display_name":"R","language":"R"},"language_info":{"name":"R","codemirror_mode":"r","pygments_lexer":"r","mimetype":"text/x-r-source","file_extension":".r","version":"4.0.5"}},"nbformat_minor":4,"nbformat":4,"cells":[{"cell_type":"markdown","source":"# Recommend Items Purchased Together in R","metadata":{"papermill":{"duration":0.00742,"end_time":"2022-04-28T12:12:17.673764","exception":false,"start_time":"2022-04-28T12:12:17.666344","status":"completed"},"tags":[]}},{"cell_type":"code","source":"library(tidyverse)","metadata":{"_execution_state":"idle","_uuid":"051d70d956493feee0c6d64651c6a088724dca2a","papermill":{"duration":1.359149,"end_time":"2022-04-28T12:12:19.039303","exception":false,"start_time":"2022-04-28T12:12:17.680154","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:40:39.443242Z","iopub.execute_input":"2022-05-04T06:40:39.445427Z","iopub.status.idle":"2022-05-04T06:40:40.828772Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"transaction_train <- read_csv(\"../input/h-and-m-personalized-fashion-recommendations/transactions_train.csv\")","metadata":{"papermill":{"duration":44.870749,"end_time":"2022-04-28T12:13:03.916793","exception":false,"start_time":"2022-04-28T12:12:19.046044","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:40:40.831324Z","iopub.execute_input":"2022-05-04T06:40:40.864477Z","iopub.status.idle":"2022-05-04T06:41:30.283557Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"K <- 12\n\nmax_dat <- max(transaction_train$t_dat)","metadata":{"papermill":{"duration":1.29369,"end_time":"2022-04-28T12:13:05.217207","exception":false,"start_time":"2022-04-28T12:13:03.923517","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:41:30.286118Z","iopub.execute_input":"2022-05-04T06:41:30.287559Z","iopub.status.idle":"2022-05-04T06:41:31.904564Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"markdown","source":"## 1. Recommend Most Often Previously Purchased Items","metadata":{"papermill":{"duration":0.006655,"end_time":"2022-04-28T12:13:05.231941","exception":false,"start_time":"2022-04-28T12:13:05.225286","status":"completed"},"tags":[]}},{"cell_type":"code","source":"customer_max_dat <- transaction_train %>%\n  group_by(customer_id) %>%\n  summarise(max_dat = max(t_dat), .groups = \"drop\")","metadata":{"papermill":{"duration":66.094238,"end_time":"2022-04-28T12:14:11.332944","exception":false,"start_time":"2022-04-28T12:13:05.238706","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:41:31.907028Z","iopub.execute_input":"2022-05-04T06:41:31.908449Z","iopub.status.idle":"2022-05-04T06:42:42.565413Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"dday <- 7\n\ntransaction_recently <- transaction_train %>%\n  inner_join(customer_max_dat) %>%\n  mutate(diff_dat = max_dat - t_dat) %>%\n  filter(diff_dat < dday)","metadata":{"papermill":{"duration":20.344137,"end_time":"2022-04-28T12:14:31.686399","exception":false,"start_time":"2022-04-28T12:14:11.342262","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:42:42.568581Z","iopub.execute_input":"2022-05-04T06:42:42.570324Z","iopub.status.idle":"2022-05-04T06:43:02.083278Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"transaction_recently %>% head","metadata":{"papermill":{"duration":0.048298,"end_time":"2022-04-28T12:14:31.741673","exception":false,"start_time":"2022-04-28T12:14:31.693375","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:43:02.085801Z","iopub.execute_input":"2022-05-04T06:43:02.087215Z","iopub.status.idle":"2022-05-04T06:43:02.120229Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"purchased_counts <- transaction_recently %>%\n  count(customer_id, article_id)","metadata":{"papermill":{"duration":141.564145,"end_time":"2022-04-28T12:16:53.313115","exception":false,"start_time":"2022-04-28T12:14:31.74897","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:43:02.122725Z","iopub.execute_input":"2022-05-04T06:43:02.124143Z","iopub.status.idle":"2022-05-04T06:45:36.011221Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"purchased_counts %>% arrange(desc(n)) %>% head","metadata":{"papermill":{"duration":0.398801,"end_time":"2022-04-28T12:16:53.721946","exception":false,"start_time":"2022-04-28T12:16:53.323145","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:45:36.015791Z","iopub.execute_input":"2022-05-04T06:45:36.018299Z","iopub.status.idle":"2022-05-04T06:45:36.572195Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"markdown","source":"## 2. Recommend Items Purchased Together","metadata":{"papermill":{"duration":0.007961,"end_time":"2022-04-28T12:16:53.738269","exception":false,"start_time":"2022-04-28T12:16:53.730308","status":"completed"},"tags":[]}},{"cell_type":"code","source":"days_train <- 7\n\ncustomer_article <- transaction_train %>%\n  filter(t_dat > max_dat - days_train) %>%\n  distinct(customer_id, article_id)\n\npurchased_together_counts <- customer_article %>%\n  inner_join(customer_article, by = \"customer_id\", suffix = c(\"1\", \"2\")) %>%\n  filter(article_id1 != article_id2) %>%\n  count(article_id1, article_id2, name = \"count\") %>%\n  filter(count > 1)","metadata":{"papermill":{"duration":26.550791,"end_time":"2022-04-28T12:17:20.296883","exception":false,"start_time":"2022-04-28T12:16:53.746092","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:45:36.574673Z","iopub.execute_input":"2022-05-04T06:45:36.576045Z","iopub.status.idle":"2022-05-04T06:46:04.976013Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"purchased_together_counts %>% head","metadata":{"papermill":{"duration":0.034425,"end_time":"2022-04-28T12:17:20.339183","exception":false,"start_time":"2022-04-28T12:17:20.304758","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:46:04.980295Z","iopub.execute_input":"2022-05-04T06:46:04.982025Z","iopub.status.idle":"2022-05-04T06:46:05.006361Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"most_purchased_together <- purchased_together_counts %>%\n  group_by(article_id1) %>%\n  slice_max(order_by = count, n = 1, with_ties = FALSE)","metadata":{"papermill":{"duration":1.525467,"end_time":"2022-04-28T12:17:21.872194","exception":false,"start_time":"2022-04-28T12:17:20.346727","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:46:05.009124Z","iopub.execute_input":"2022-05-04T06:46:05.010685Z","iopub.status.idle":"2022-05-04T06:46:06.59964Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"most_purchased_together %>% head","metadata":{"papermill":{"duration":0.03944,"end_time":"2022-04-28T12:17:21.919279","exception":false,"start_time":"2022-04-28T12:17:21.879839","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:46:06.602243Z","iopub.execute_input":"2022-05-04T06:46:06.603744Z","iopub.status.idle":"2022-05-04T06:46:06.629978Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"markdown","source":"## 3. Recommend Last Week's Most Popular Items","metadata":{"papermill":{"duration":0.008042,"end_time":"2022-04-28T12:17:21.935227","exception":false,"start_time":"2022-04-28T12:17:21.927185","status":"completed"},"tags":[]}},{"cell_type":"code","source":"most_popular_articles <- function(transaction, k) {\n  transaction %>%\n    count(article_id, sort = TRUE) %>%\n    head(k) %>%\n    pull(article_id)\n}","metadata":{"papermill":{"duration":0.027083,"end_time":"2022-04-28T12:17:21.970221","exception":false,"start_time":"2022-04-28T12:17:21.943138","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:46:06.632537Z","iopub.execute_input":"2022-05-04T06:46:06.63398Z","iopub.status.idle":"2022-05-04T06:46:06.646393Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"popular_articles <- transaction_train %>%\n  filter(t_dat > max_dat - 7) %>%\n  most_popular_articles(K)","metadata":{"papermill":{"duration":0.7412,"end_time":"2022-04-28T12:17:22.719312","exception":false,"start_time":"2022-04-28T12:17:21.978112","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:46:06.648998Z","iopub.execute_input":"2022-05-04T06:46:06.650446Z","iopub.status.idle":"2022-05-04T06:46:07.402313Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"popular_articles","metadata":{"papermill":{"duration":0.030967,"end_time":"2022-04-28T12:17:22.758193","exception":false,"start_time":"2022-04-28T12:17:22.727226","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:46:07.40492Z","iopub.execute_input":"2022-05-04T06:46:07.406336Z","iopub.status.idle":"2022-05-04T06:46:07.422977Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"markdown","source":"## Write Submission CSV","metadata":{"papermill":{"duration":0.008375,"end_time":"2022-04-28T12:17:22.774613","exception":false,"start_time":"2022-04-28T12:17:22.766238","status":"completed"},"tags":[]}},{"cell_type":"code","source":"recommendations <- purchased_counts %>%\n  rename(purchased = article_id, n_purchase = n) %>%\n  left_join(most_purchased_together, by = c(\"purchased\" = \"article_id1\")) %>%\n  rename(purchased_together = article_id2) %>%\n  group_by(customer_id) %>%\n  slice_max(order_by = n_purchase, n = K, with_ties = FALSE) %>%\n  summarise(purchased = list(purchased), purchased_together = list(purchased_together))","metadata":{"papermill":{"duration":361.274177,"end_time":"2022-04-28T12:23:24.056927","exception":false,"start_time":"2022-04-28T12:17:22.78275","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:46:07.425429Z","iopub.execute_input":"2022-05-04T06:46:07.426835Z","iopub.status.idle":"2022-05-04T06:52:28.802023Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"recommendations %>% head","metadata":{"papermill":{"duration":0.046675,"end_time":"2022-04-28T12:23:24.118222","exception":false,"start_time":"2022-04-28T12:23:24.071547","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:52:28.804955Z","iopub.execute_input":"2022-05-04T06:52:28.806546Z","iopub.status.idle":"2022-05-04T06:52:28.832306Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"sample_submission <- read_csv(\"../input/h-and-m-personalized-fashion-recommendations/sample_submission.csv\")","metadata":{"papermill":{"duration":2.569051,"end_time":"2022-04-28T12:23:26.695577","exception":false,"start_time":"2022-04-28T12:23:24.126526","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:52:28.835004Z","iopub.execute_input":"2022-05-04T06:52:28.836508Z","iopub.status.idle":"2022-05-04T06:52:31.432423Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"my_submission <- sample_submission %>%\n  select(customer_id) %>%\n  left_join(recommendations) %>%\n  rowwise() %>%\n  mutate(prediction = str_c(head(c(purchased,\n                                   na.omit(purchased_together),\n                                   popular_articles),\n                                 K),\n                            collapse = \" \")) %>%\n  select(customer_id, prediction)","metadata":{"papermill":{"duration":61.395892,"end_time":"2022-04-28T12:24:28.10048","exception":false,"start_time":"2022-04-28T12:23:26.704588","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:52:31.436345Z","iopub.execute_input":"2022-05-04T06:52:31.438013Z","iopub.status.idle":"2022-05-04T06:53:35.335433Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"my_submission %>% head","metadata":{"papermill":{"duration":0.03856,"end_time":"2022-04-28T12:24:28.148706","exception":false,"start_time":"2022-04-28T12:24:28.110146","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:53:35.339746Z","iopub.execute_input":"2022-05-04T06:53:35.341639Z","iopub.status.idle":"2022-05-04T06:53:35.368965Z"},"trusted":true},"execution_count":null,"outputs":[]},{"cell_type":"code","source":"my_submission %>% write_csv(\"submission.csv\")","metadata":{"papermill":{"duration":1.561737,"end_time":"2022-04-28T12:24:29.719525","exception":false,"start_time":"2022-04-28T12:24:28.157788","status":"completed"},"tags":[],"execution":{"iopub.status.busy":"2022-05-04T06:53:35.371697Z","iopub.execute_input":"2022-05-04T06:53:35.373227Z","iopub.status.idle":"2022-05-04T06:53:36.385827Z"},"trusted":true},"execution_count":null,"outputs":[]}]}