R - 在 Excel 输出中添加总计行

Question

我想在工作表中写入 data.frame 时添加总行(如 Excel 表格中所示)。这是我现在的代码(使用 openxlsx):

writeDataTable(wb=WB, sheet="Data", x=X, withFilter=F, bandedRows=F, firstColumn=T)

X 包含一个包含 8 个字符变量和 1 个数字变量的 data.frame。因此，总行应该只包含数字行的总计(如果我可以添加 Excel 总行功能，就像我在将表写入工作簿对象时使用firstColumn 所做的那样，而不是手动添加总行，那将是最好的) .

我在 StackOverflow 和 openxslx 官方文档中搜索了解决方案，但没有结果。请使用 openxlsx 建议解决方案。

编辑:

添加数据示例:

A  B  C  D  E  F  G  H  I
a  b  s  r  t  i  s  5  j
f  d  t  y  d  r  s  9  s
w  s  y  s  u  c  k  8  f

总计行之后:

    A  B  C  D  E  F  G  H  I
    a  b  s  r  t  i  s  5  j
    f  d  t  y  d  r  s  9  s
    w  s  y  s  u  c  k  8  f
    na na na na na na na 22 na

Answer 1

library(janitor)
adorn_totals(df, "row")

#>      A B C D E F G  H I
#>      a b s r t i s  5 j
#>      f d t y d r s  9 s
#>      w s y s u c k  8 f
#>  Total - - - - - - 22 -

如果您更喜欢空白而不是 -在字符列中您可以指定 fill = ""或fill = NA .