VisualizationChunk6.Rmd

```{r, echo = TRUE, warning = FALSE, message = FALSE}
# now I'll try out this function on the filtered data
#------------------------------------------------------
sales_bar = mutate(sales_f, Bin_Number = bin_numbers(DateTime, 13)) %>%
            group_by(., Bin_Number) %>%
            summarise(., Bin_Sale_Total = sum(Sale_Total))

# now, I'll plot the result
ggplot(data = sales_bar, aes(x = Bin_Number)) +
  geom_bar(aes(weight = Bin_Sale_Total)) +
  theme_bw() +
  labs(title = "Revenue vs. Time (clean data)",
       x = "Time (6-month bins)",
       y = "Revenue ($)"
  ) +
  theme(
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank()
  ) +
  scale_y_continuous(limits = c(0, 7e5))
```