Set up "Sum" label on addmargins function
Let the following table:
x <- sample(1:2, 100, replace = T)
tabela <- table(x)
To which I add fields
> addmargins(tabela)
x
1 2 Sum
51 49 100
However, I would like to change the label "Sum" to "Total". How to do it?
My current workaround is to run addmargins
to get the source code of the function, copy it into my script and change the line "Sum"
to "Total"
, but I think there is a smarter way to accomplish this.
source to share
A quick look at the source addmargin
will reveal that when it explicitly passed a function through its argument FUN=
, it names the marginal column, overriding the name of the bundled function.
A quick solution is to pass in a function that sums the items, but has a name that you would like to print there.
Total <- sum
addmargins(tabela, FUN = Total)
# x
# 1 2 Total
# 49 51 100
source to share