有没有一种方法可以将flextable对象导出到Excel？

Question

我想尝试将flextable对象导出到Excel电子表格，但是我找不到任何解决方案。根据这个文档 (https://davidgohel.github.io/flextable/reference/index.html)，该软件包允许用户将formattable对象导出为pdf、doc和ppt。

其中一个解决方法是将其保存为其中一个格式，然后保存到Excel电子表格，但我正在寻找一种不那么hackish并且可扩展到多个表的解决方案。

- atirvine88

---

我真的不知道 csv 怎么能起作用... 因为 flextable 的很多功能都是关于格式化的，而 CSV 文件根据定义没有任何格式。 - Gregor Thomas

我已经编辑了原始问题，以指定Excel。 - atirvine88

如何将其保存到Excel电子表格中？是作为格式化的电子表格还是作为粘贴到电子表格中的图片？CSV文件只是一个纯文本文件；逗号分隔更多地是约定而非特定于文件类型。 - camille

我已经从你的问题中删除了其他关于CSV的提及。 - Gregor Thomas

作为一种格式化的电子表格，'xlsx'软件包允许R用户将数据导出到Excel中。问题是是否可以对formattable进行相同的操作。 - atirvine88

Answer 1

更新（2023年1月）：与此同时，Sebastian发布了一个名为YesSiR的包，其中包含一个名为exportxlsx()的好用函数。

安装：

install.packages("remotes")
remotes::install_github("Sebastien-Le/YesSiR")
library(YesSiR) # to export a flextable into MS Excel: exportxlsx() function

这里有一个不错的例子：

## Not run: 
ft <- flextable::flextable(head(mtcars))
ft
# color some cells in blue
ft <- flextable::bg(ft, i=ft$body$dataset$disp>200, j=3, bg = "#7ed6df", part = "body")
# color a few cells in yellow
ft <- flextable::bg(ft, i=ft$body$dataset$vs==0, j=8, bg = "#FCEC20", part = "body")
# export your flextable as a .xlsx in the current working directory
exportxlsx(ft, path = "X:/temp_del/excel_file.xlsx")

也许这可以帮助你。

- gmoeser