使用flextable和officer库向表格添加标题

install.packages("flextable")
install.packages("officer")

library(flextable)
library(officer)

my_table <- flextable()

my_table <- add_header_row(my_table, values = "表格标题")

my_table <- theme(my_table, part = "header", 
                  border.bottom = fp_border(color = "black", width = 1),
                  bold = TRUE, italic = TRUE, font.size = 14)

# 添加表头
my_table <- add_header_row(my_table, values = c("列1", "列2", "列3"))

# 添加数据行
my_table <- add_body_rows(my_table, values = list("数据1", "数据2", "数据3"))

# 可以根据需要重复添加表头和数据行

# 创建一个空的Word文档
doc <- read_docx()

# 将表格添加到文档中
doc <- body_add_flextable(doc, value = my_table)

# 保存文档
print(doc, target = "path/to/output.docx")