-
Notifications
You must be signed in to change notification settings - Fork 1
/
weekly-sales.Rmd
52 lines (40 loc) · 1.28 KB
/
weekly-sales.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
---
title: "HatsForCats.me - Last Week's Sales"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r, warning=FALSE, echo=FALSE, message=FALSE}
library(lubridate)
# Dynamically compute the previous week's boundaries.
dow <- lubridate::wday(Sys.Date())
end <- Sys.Date() - dow
start <- end - 6
rangeStr <- paste0(month(start, label=TRUE), " ", day(start), "-", month(end, label=TRUE), " ", day(end))
sales <- readRDS("sales.rds")
```
## Sales for `r rangeStr`
Below is last week's sales history for `r rangeStr`.
```{r, message=FALSE, echo=FALSE}
library(ggplot2)
library(dplyr)
```
```{r, echo=FALSE, warning=FALSE}
lw_sales <- sales %>%
filter(Date >= start & Date <= end)
sales_by_day <- lw_sales %>%
group_by(Date) %>%
tally()
ggplot(sales_by_day, aes(Date, n)) + geom_line() + geom_point() +
ylim(0, max(sales_by_day$n)) +
ylab("Total Daily Sales") + ggtitle("Sales Last Week By Day") +
ggplot2::geom_hline(yintercept = 0)
ggplot(lw_sales, aes(Product)) + geom_histogram(stat="count") + xlab("Product ID") + ylab("Sales") + ggtitle("Sales by Product Last Week")
```
```{r, warning=FALSE, message=FALSE, echo=FALSE}
library(leaflet)
leaflet(lw_sales) %>% addTiles() %>% addMarkers(
clusterOptions = markerClusterOptions()
)
```