将结果 R 数据框导出到一个 Excel 文件中

Question

任何人都可以帮助我如何将 comparef comparedf()的结果从军火库package 导出到 Excel 文件？

这是我的脚本：

diff <- diffs(comparedf(mtcars[1:10, ], mtcars[2:11,]))
openxlsx::write.xlsx(diff, "diff.xlsx")

错误消息是Error in is.nan(tmp): default method not implemented for type 'list'

Answer 1

diffs function 返回列表类型的 class 'AsIs'某些列。

在将这些列写入unlist之前将它们取消列出到一个向量中。

diff[] <- lapply(diff, function(x) if(class(x) == 'AsIs') unlist(x) else x)
openxlsx::write.xlsx(diff, "diff.xlsx")