R – 在Excel输出中添加总行

我想在工作表中写入我的data.frame时添加一个总行（如在Excel表中）。 这是我现在的代码（使用openxlsx ）：

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

X包含一个包含8个字符variables和1个数字variables的data.frame。 因此，总行应该只包含数字行的总数（如果以某种方式我可以添加Excel总行数据function，那么最好的办法就是最好，就像我在将表写入工作簿对象时使用firstColumn一样，而不是手动添加总行） 。

我在StackOverflow和官方的openxslx文档中search了解决scheme，但无济于事。 请使用openxlsxbuild议解决scheme。

编辑：

添加数据示例：

 ABCDEFGHI absrtis 5 j fdtydrs 9 s wsysuck 8 f 

总排后：

  ABCDEFGHI absrtis 5 j fdtydrs 9 s wsysuck 8 f na na na na na na na 22 na 

Answer 1

假设你的数据存储在一个名为df的data.frame中：

 df <- read.table(text = "ABCDEFGHI absrtis 5 j fdtydrs 9 s wsysuck 8 f", header = TRUE, stringsAsFactors = FALSE) 

你可以使用lapply创build一个行

 totals <- lapply(df, function(col) { ifelse(!any(!is.numeric(col)), sum(col), NA) }) 

并使用rbind()将其添加到df

 df <- rbind(df, totals) head(df) ABCDEFGHI 1 absrtis 5 j 2 fdtydrs 9 s 3 wsysuck 8 f 4 <NA> <NA> <NA> <NA> <NA> <NA> <NA> 22 <NA>