在 addmargins 函数上自定义“Sum”标签

Question

让下表：

x <- sample(1:2, 100, replace = T)
tabela <- table(x)

我添加边距的地方

> addmargins(tabela)
x
  1   2 Sum 
 51  49 100 

但是，我想将“Sum”标签更改为“Total”。我该怎么做？

我目前的解决方法是运行addmargins 来获取函数的源代码，将其复制到我的脚本中并将字符串"Sum" 更改为"Total"，但我想有一个更聪明的方法可以实现这一点。

Answer 1

快速查看addmargin 的源代码会发现，当它通过FUN= 参数显式传递一个函数时，它会通过解析提供的函数名称来命名边缘列。

因此，一个快速的解决方案是传入一个函数，该函数对元素求和，但具有您希望在此处打印的名称。

Total <- sum
addmargins(tabela, FUN = Total)
# x
#     1     2 Total 
#    49    51   100