library(officer)
library(ggplot2)
p = ggplot(data=iris, aes(Sepal.Length, Petal.Length)) + geom_point()
crosstable_options(
units="cm",
style_image="centered"
)
doc = read_docx() %>%
body_add_normal("Text before") %>%
body_add_gg2(p, w=14, h=10, scale=1.5) %>% #or units="cm" instead of using options
body_add_normal("Text after")
write_and_open(doc)
Run the code above in your browser using DataLab