library(mscharts);library(officer)
test_data <- data.frame("Var1" = c(2,4,6,8), "Var2" = c(2,4,6,8), "Group" = c("A","B","A","B"))

my_barchart <- ms_barchart(data = test_data ,
                       x = "Var1", y = "Var2", group = "Group")

body_add_chart(chart = my_barchart, style = "centered")