在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