R语言 addmargins()函数

在这篇文章中，我们将讨论R编程语言中的addmargins()函数及其工作实例。

addmargin()函数

R语言中的addmargins函数只是用来在一个多维表或数组上添加任意的边距。

语法： addmargins(A, margin = seq_along(dim(A)), FUN = sum, quiet = FALSE)

参数

A：这代表数组或表。
margin。这是一个维数的向量，要在这个维数上形成边际。
FUN：这是一个与margin参数相同长度的列表，列表中的每个元素都是一个函数或一个函数列表。
quiet：这是一个逻辑值，它可以抑制信息，并描述计算边距的顺序。

这个函数返回一个表或数组，其维数与传递给它的数组或表的维数相同，但维数的额外层次作为 margin 参数的值给定。

方法1：使用addmargins()函数将总保证金放到应急表中

在这种方法中，为了给或然率表加上总和保证金，用户需要调用addmargin()函数，这是一个基本的R函数，这里addmargins函数将把每一行和每一列的总和加入到创建的表格的保证金中，并把所用函数的特殊参数FUN传递给该函数，在R编程语言中，这种情况是传递给sum。

例子

在这个例子中，我们首先创建了数据框架，然后使用table函数将这个数据框架转换为表格，接着调用addmargin函数，并将其特殊参数FUN设置为sum，我们将每一行和每一列的总和添加到R语言中创建的表格的边距。

# Creating data
data <- data.frame(x = c("A","A","A","A",
                         "B","B","C","D",
                         "D","D","E","E","E")
                   ,y=letters[1:13])
  
# converting the dataframe to table
my_table <- table(data) 
  
# Apply addmargins function
table_sum <- addmargins(my_table, FUN = sum)      
table_sum

输出

     y
x      a  b  c  d  e  f  g  h  i  j  k  l  m sum
  A    1  1  1  1  0  0  0  0  0  0  0  0  0   4
  B    0  0  0  0  1  1  0  0  0  0  0  0  0   2
  C    0  0  0  0  0  0  1  0  0  0  0  0  0   1
  D    0  0  0  0  0  0  0  1  1  1  0  0  0   3
  E    0  0  0  0  0  0  0  0  0  0  1  1  1   3
  sum  1  1  1  1  1  1  1  1  1  1  1  1  1  13

方法2：使用addmargins()函数将平均差值放到或然率表中

在这种方法中，为了给或然率表加上平均利润，用户需要调用addmargin()函数，这是一个基本的R函数，这里addmargins函数将把每一行和每一列的平均数加到创建的表格的利润中，并将所用函数的特殊参数FUN传递给函数，在R编程语言中，这种情况是传递给平均数。

例子

在这个例子中，我们首先创建了数据框，然后使用table函数将这个数据框转换为表格，接着调用addmargin函数，并将其特殊参数FUN设置为mean，我们将每一行和每一列的平均值添加到R语言中创建的表格的空白处。

# Creating data
data <- data.frame(x = c("A","A","A","A","B",
                         "B","C","D","D","D",
                         "E","E","E"),
                   y = letters[1:13])
  
# converting the dataframe to table
my_table <- table(data) 
  
# Apply addmargins function
table_mean <- addmargins(my_table, FUN = mean)      
table_mean