自定义＆＃34; Sum＆＃34; addmargins函数上的标签

Question

让下表：

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

我添加了边距

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

但是，我想改变＆＃34; Sum＆＃34;标签为＆＃34; Total＆＃34;。我该怎么做？

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

Answer 1

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

然后，一个快速的解决方案是传递一个函数，该函数对元素求和，但具有您希望在那里打印的名称。

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