Да, вы можете включить верхний и нижний колонтитулы, используя офисный пакет
library(officer)
my_doc <- read_docx()
my_doc <- my_doc %>%
body_add_par("Header 1 ", style = "centered") %>%
body_add_par("Header 2 ", style = "centered") %>%
body_add_par("Header 3 ", style = "centered") %>%
body_add_par("Header 4", style = "Normal") %>%
body_add_table(dataframe, style = "Normal Table") %>%
cursor_forward() %>%
body_add_par("Footer 1,
OTH=Other", style = "toc 1") %>%
body_end_section(landscape = TRUE)
print(my_doc, target = "output.docx")