R语言将结果输入、输出到word和PPT

将语言结果输出到word和ppt中

安装包

flextable包有很多功能, 它能将xtable的格式转化为flextable, 进行图表的可视化和结果输出, 并且输出word和PPT格式

install.packages("xtable")
install.packages("flextable")

过程实现

docx_file <- tempfile(fileext = ".docx")
ft <- flextable(head(iris))
save_as_docx("my table" = ft, path = docx_file)
getwd()##查看文件等会放置的路径
print(ft, preview = "docx") ##将文件结果输出到word中并打开

最后，在windows的临时文件路径中进行查找。

同理可输出到ppt

pptx_file <- tempfile(fileext = ".pptx")
save_as_docx("my table" = ft, path = pptx_file)

案例

library(officer)
myft <- flextable( head(iris, n = 10 ))

myft <- compose( myft, j = 1,
  value = as_paragraph(
    minibar(value = Sepal.Length, max = max(Sepal.Length)),
    " ",
    as_chunk( Sepal.Length, formater = formatC,
             props = fp_text(color = "orange") ),
    " blah blah"
  ),
  part = "body")

autofit(myft)

输出结果为：