具有特定值计数的描述性统计

Question

大多数描述性统计函数（如Hmisc包中的describe）都会计算缺失值。在R中是否有一个描述性的函数可以给出特定值的计数，如零，以及其他聚合，如均值，中位数等。

Answer 1

我想不出一个完全正确的读取函数，但你可以很容易地自己创建一个函数。例如：

count_and_stats = function(x, count_value, 
                           summary_stats = c('mean', 'median', 'sd')) {
    no_of_counts = length(x[x == count_value])
    stats = sapply(summary_stats, function(s) do.call(s, list(x)))
    return(c(count = no_of_counts, stats))
}

x = rbinom(100, 3, .5)
count_and_stats(x, 0)
# count      mean    median        sd 
# 9.0000000 1.6000000 2.0000000 0.8287754 
count_and_stats(x, 0, c('mean', 'var'))
#     count      mean       var 
# 9.0000000 1.6000000 0.6868687 

添加summary_stats参数可使函数灵活显示汇总统计信息。

Answer 2

table做到了

>x = rbinom(100, 3, .5)
>table(x)
x
 0  1  2  3 
15 35 36 14