#Header 1 “Lab 5 Matt Burden”

products %>% inner_join(transactions, by = “product_id”) %>% filter(str_detect(product_category, regex(“ICE CREAM”, ignore_case = TRUE))) %>% group_by(month = month(transaction_timestamp, label = TRUE)) %>% summarize(total_sales = sum(sales_value)) %>% ggplot(aes(x = month, y = total_sales,color = month, fill = month)) + geom_col() + scale_x_discrete(“Month”) + scale_y_continuous(“Ice Cream Sales”, label = scales::dollar) + ggtitle(label = “Ice Cream Sales per Month”, subtitle = “July has the most ice cream sales”)