Skip to contents

Generate competitor media spending as list prices data

Usage

generateCompetitorData(
  fromDate = Sys.Date() - 1 * 365,
  toDate = Sys.Date(),
  mynames = c("competitor_a", "competitor_b", "competitor_c")
)

Arguments

fromDate

the beginning of the time series

toDate

the end of the time series

mynames

the names to attach to the generated data

Value

a tibble with the generated data one column for each element in name

Examples

library(ggplot2)
library(dplyr)
#> 
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#> 
#>     filter, lag
#> The following objects are masked from ‘package:base’:
#> 
#>     intersect, setdiff, setequal, union
library(tidyr)
generateCompetitorData(Sys.Date() - 30, Sys.Date()) %>%
  gather(competitor, spend, -date) %>%
  ggplot(aes(y = spend, x = date, fill = competitor)) +
  geom_bar(stat = "identity", position = position_stack())