Настройка «Sum» метка на addmargins функционируют

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