transactions <- get_transactions() promotions <- get_promotions()
data(“demographics”) data(“products”) data(“coupons”) data(“coupon_redemptions”) data(“campaigns”) data(“campaign_descriptions”)
Visualization 1 transactions_products <- transactions %>% inner_join(products, by = “product_id”)
complete_data <- transactions_products %>% inner_join(demographics, by = “household_id”)
households_with_children <- complete_data %>% filter(kids_count > 0)
top_product_types_sales <- complete_data %>% group_by(product_type) %>% summarise(total_sales = sum(sales_value) / 1000) %>% arrange(desc(total_sales)) %>% slice_head(n = 10)
```
ggplot(top_product_types_sales, aes(x = reorder(product_type, -total_sales), y = total_sales)) + geom_bar(stat = “identity”, fill = “steelblue”) + labs(title = “Top 10 Product Types by Total Sales (in Thousands) for Households with Children”, x = “Product Type”, y = “Total Sales (in Thousands)”) + theme_minimal() + theme(axis.text.x = element_text(angle = 45, hjust = 1))