library(mschart)
library(officer)
chart_01 <- ms_barchart(
data = browser_data, x = "browser",
y = "value", group = "serie"
)
chart_01 <- chart_theme(chart_01,
grid_major_line_x = fp_border(width = 0),
grid_minor_line_x = fp_border(width = 0)
)
chart_02 <- chart_settings(
x = chart_01,
grouping = "stacked", overlap = 100
)
chart_03 <- ms_areachart(
data = browser_ts, x = "date",
y = "freq", group = "browser"
)
chart_03 <- chart_settings(chart_03,
grouping = "percentStacked"
)
Run the code above in your browser using DataCamp Workspace