将行添加到数据框中，每列的总和为 [英] Add row to a data frame with total sum for each column

问题描述

我有一个数据框，我想在其中添加一个额外的行，以总计每一列的值。例如，假设我有以下数据：

I have a data frame where I would like to add an additional row that totals up the values for each column. For example, Let's say I have this data:

x <- data.frame(Language=c("C++", "Java", "Python"), 
                Files=c(4009, 210, 35), 
                LOC=c(15328,876, 200), 
                stringsAsFactors=FALSE)    

数据如下：

  Language Files   LOC
1      C++  4009 15328
2     Java   210   876
3   Python    35   200

我的直觉是这样做：

y <- rbind(x, c("Total", colSums(x[,2:3])))

这可行，则计算总计：

> y
  Language Files   LOC
1      C++  4009 15328
2     Java   210   876
3   Python    35   200
4    Total  4254 16404

问题是文件和LOC列都已转换为字符串：

The problem is that the Files and LOC columns have all been converted to strings:

> y$LOC
[1] "15328" "876"   "200"   "16404"

我知道发生这种情况是因为我创建了一个向量为 c（ Total，colSums（x [，2：3]）的输入，该输入既是数字又是字符串，然后将所有元素转换为通用类型，以便所有矢量元素都相同。然后，​​Files和LOC列也会发生相同的情况。

I understand that this is happening because I created a vector c("Total", colSums(x[,2:3]) with inputs that are both numbers and strings, and it's converting all the elements to a common type so that all of the vector elements are the same. Then the same thing happens to the Files and LOC columns.

什么是a更好的方法吗？

What's a better way to do this?

推荐答案

请参见 adorn_totals（）管理员软件包：

library(janitor)
x %>%
  adorn_totals("row")

#>  Language Files   LOC
#>       C++  4009 15328
#>      Java   210   876
#>    Python    35   200
#>     Total  4254 16404

数字列仍为数值类。

免责声明：我创建了此程序包，其中包括 adorn_totals（），这是为便于说明而设计的结束这项任务。

Disclaimer: I created this package, including adorn_totals() which is made for precisely this task.

这篇关于将行添加到数据框中，每列的总和为的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！