r - 是否可以将百分比添加到列联表中

Question

我对 R 中的 table() 函数有疑问。我想添加一个额外的列来显示 table() 计数的百分比。我有一个像这样的数据框:

delta=data.frame(x1=c("x001","x001","x002","x002","x001","x001","x002"),x2=c(1,2,1,1,1,1,1))

当我计算这个数据框的table()时，我得到了这个:

table(delta$x1,delta$x2)

       1 2
  x001 3 1
  x002 3 0

可以在此表中添加百分比，或者 R 中有任何函数或包可以计算如下内容:

       1 2  Number Percentage
  x001 3 1    4     0.5714286
  x002 3 0    3     0.4285714

感谢您的帮助。

Answer 1

您可以使用prop.table和addmargins

tbl <- table(delta$x1,delta$x2)

prop.table(tbl)

# 1         2
# x001 0.4285714 0.1428571 
# x002 0.4285714 0.0000000

addmargins(tbl)

# 1 2 Sum
# x001 3 1   4
# x002 3 0   3
# Sum  6 1   7

编辑

当然你可以做类似的事情

rowSums(prop.table(tbl)) 
     x001      x002 
0.5714286 0.4285714 

但我的回答是，R 中有一些内置函数可以完成 table 功能。