# NOT RUN {
my_barchart <- ms_barchart(data = browser_data,
x = "browser", y = "value", group = "serie")
my_barchart <- chart_settings( x = my_barchart,
dir="vertical", grouping="clustered", gap_width = 50 )
my_barchart <- chart_ax_x( x= my_barchart,
cross_between = 'between', major_tick_mark="out")
my_barchart <- chart_ax_y( x= my_barchart,
cross_between = "midCat", major_tick_mark="in")
# }
# NOT RUN {
library(officer)
doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- ph_with_chart(doc, chart = my_barchart)
fileout <- tempfile(fileext = ".pptx")
print(doc, target = fileout)
# }
Run the code above in your browser using DataLab