Module 5 Lab

Prerequities

Plot 1: Who spends the most

ggplot(df1, aes(x = age, y= total_sales_age)) +
  geom_segment( aes(x= age,xend= age, y=0, yend= total_sales_age))+
  geom_point(color= 'blue', size = 3) + 
  scale_y_log10(name = "Total Money Spend", labels = scales::dollar) +
  scale_x_discrete(name= "Age Group")+
  labs( title = "Relationship between Age and Spending",
        subtitle = "This plot shows the spending of each age group ",
         caption = "http://https://github.com/bradleyboehmke/completejourney")

Plot 2: Total Sales Value of Each Department

Plot 3: Coupon Redemption of Each Department

ggplot(df3,aes(fct_reorder(department,total_department), total_department, fill= department)) +
  geom_bar(stat = "identity") +
  coord_flip()+
  geom_text(aes(label = total_department), nudge_y = -1, color = "black", size=2.5)+
  scale_y_log10(name= "Number of redemped coupons")+
  scale_x_discrete(name= "Department", drop= FALSE)+
  guides(fill = guide_legend(reverse = TRUE)) +
  labs(fill = "department",
       title = "Number of redemped coupons of each department",
        caption = "http://https://github.com/bradleyboehmke/completejourney")