r - 将结果 R 数据框导出到 Excel 文件中

Question

任何人都可以帮助我如何将结果comparedf()从阿森纳包导出到 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'

标签： r

Answer 1

diffs函数返回'AsIs'列表类型的类的某些列。

unlist在将它们写入 Excel 之前，将这些列放入向量中。

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