# NOT RUN {
df <- data.frame(x = month.abb[7:12],
actual = rnorm(6, mean = 5, sd = 0.3),
budget = rnorm(6, mean = 4.5, sd = 0.7),
prev_year = rnorm(6, mean = 4))
column_chart_grouped(x = df$x,
foreground = df$actual,
background = df$budget,
markers = df$prev_year,
series_labels = c('AC', 'BU', 'PY'))
# }
Run the code above in your browser using DataLab