使用r包';将多个表导出到word文档;flextable&x27;
我正在尝试在中导出两个(flex)表 相同的word文档。以下是我所拥有的:使用r包';将多个表导出到word文档;flextable&x27;,r,dataframe,export,document,R,Dataframe,Export,Document,我正在尝试在中导出两个(flex)表 相同的word文档。以下是我所拥有的: df1 <- data.frame(a = 1:3, b = 1:3) df2 <- data.frame(c = 11:13, d = 11:13) library(flextable) df1_ft <- regulartable(df1) df2_ft <- regulartable(df2) library(officer) word_export <- read_docx()
df1 <- data.frame(a = 1:3, b = 1:3)
df2 <- data.frame(c = 11:13, d = 11:13)
library(flextable)
df1_ft <- regulartable(df1)
df2_ft <- regulartable(df2)
library(officer)
word_export <- read_docx()
word_export <- body_add_flextable(word_export, df1_ft)
word_export <- body_add_flextable(word_export, df2_ft)
print(word_export, 'try.docx')
df1你可以试试
library(flextable)
library(tidyverse)
library(officer)
# write function
write_word_table <- function(var, doc){
doc %>%
body_add_flextable(var) %>%
body_add_break() }
# list of tables and the doc
my_list <- list(df1_ft <- regulartable(df1),
df2_ft <- regulartable(df2))
my_doc <- read_docx()
# use walk (the invisible function of map) to include all tables in one doc
walk(my_list, write_word_table, my_doc)
print(my_doc, target = "c:/Users/tremmel/Desktop/Doc1.docx") %>% invisible()
库(flextable)
图书馆(tidyverse)
图书馆(主任)
#写函数
写入单词表%
正文添加柔性表格(var)%>%
body_add_break()}
#表和文档列表
my_list这两个表一个接一个地输出到Word,由于它们之间没有换行符,因此它们看起来是一个。最简单的解决方案是在它们之间放置一段空白文本:
word_export <- read_docx()
body_add_flextable(word_export, df1_ft)
body_add_par(word_export, value = "")
body_add_flextable(word_export, df2_ft)
print(word_export, 'try.docx')
word\u导出不建议不分配结果。。。因为有一天我可能会在对象中添加可变信息:)