Что делает продукт важным?
Теперь, когда у нас есть рабочее определение важного продукта, давайте проверим, есть ли у таких продуктов взаимосвязанные свойства. Один из возможных вариантов — пара salesrank.from и salesrank.to. Интересно выяснить, tend ли важные продукты иметь более высокий рейтинг продаж по сравнению с продуктами, которые покупают вслед за ними. Для этого мы сначала выделим важные вершины, объединим их с исходным датафреймом и создадим новый датафрейм с помощью пакета dplyr. Затем построим новый граф и окрасим рёбра в синий цвет для направления от высокого рейтинга (1, 2, 3) к низкому (20, 21, 22), а в красный — для обратного направления. Если рейтинг коррелирует с последующими покупками, на графе будет преобладать синий цвет; если связи нет — синих и красных рёбер окажется примерно поровну.
Набор данных ip_df содержит информацию о важных продуктах.
Это упражнение является частью курса
Примеры из практики: анализ сетей в R
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
# Select the from and to columns from ip_df
ip_df_from_to <- ip_df[c(___,___)]
# Create a directed graph from the data frame
ip_g <- graph_from_data_frame(___, directed = ___)
# Set the edge color. If salesrank.from is less than or
# equal to salesrank.to then blue else red.
edge_color <- ifelse(
ip_df$___ <= ip_df$___,
yes = ___,
no = ___
)