Fatal编程技术网
  • r/
  • R 定制"；Sum"；添加页边距函数上的标签

R 定制"；Sum"；添加页边距函数上的标签

r function

R 定制"；Sum"；添加页边距函数上的标签,r,function,customization,margins,totals,R,Function,Customization,Margins,Totals,让我们看下表： x <- sample(1:2, 100, replace = T) tabela <- table(x) 不过，我想将“总和”标签改为“总计”。我该怎么做 我目前的解决方法是运行addmargin获取函数的源代码，将其复制到脚本中，并将字符串“Sum”更改为“Total”，但我想有一种更聪明的方法来实现这一点。快速查看addmargin的源代码就会发现，当它通过函数的FUN=参数显式传递函数时，它会通过对提供的函数名称进行去粗化来命名边缘列 因此，一个快速的解决方

让我们看下表：

x <- sample(1:2, 100, replace = T)
tabela <- table(x)
不过，我想将“总和”标签改为“总计”。我该怎么做

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

快速查看
addmargin
的源代码就会发现，当它通过函数的
FUN=
参数显式传递函数时，它会通过对提供的函数名称进行去粗化来命名边缘列

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

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

Total您还可以更改
attr（t1，“dimnames”）$x[3]

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