Generate distribution data as absolute levels
Usage
generateDistributionData(
fromDate = Sys.Date() - 1 * 365,
toDate = Sys.Date(),
mynames = c("product_a", "product_b", "product_c"),
initDist = c(1000, 500, 800)
)
Arguments
- fromDate
the beginning of the time series
- toDate
the end of the time series
- mynames
the names to attach to the generated data
- initDist
the vector of initial distributions in total numbers
Value
a tibble with the generated data one column for each element in name
Examples
library(ggplot2)
library(dplyr)
library(tidyr)
generateDistributionData(
Sys.Date() - 30, Sys.Date(),
c("product_a", "product_b", "product_c"), c(20, 50, 10)
) %>%
gather(type, distribution, -date) %>%
ggplot(aes(y = distribution, x = date, color = type)) +
geom_line() +
theme_minimal()
