是否有一个聚合函数可以计算列的非零元素

Question

我有一个数据集如下：

         Date        Hour    ID
         2014-01-01   0      0
         2014-01-01   1      0
         2014-01-01   10     0
         2014-01-01   11     0

我有一系列日期（2014 年的所有日子）和一天中的 24 小时。如果 ID 为零，则表示在相应的日期和时间没有接到任何呼叫。我想汇总 24 小时内每个日期的结果，并返回一个新的数据框，其中包括日期和呼叫的客户总数。我只需要对 ID 进行聚合，然后为此编写了以下代码行：

    SampleData <- aggregate(ID ~ Date, SampleData, length)

但是，结果不是我想要的。我需要计算聚合的非零 ID，但我不知道该怎么做。

Answer 1

您可以向aggregate 传递一个函数，该函数计算每天ID 非零的行数：

aggregate(ID~Date, data, function(x) sum(x != 0))
#         Date ID
# 1 2014-01-01  2
# 2 2014-01-02  0

数据（更新后有两个非零 ID 和两天）：

(data = read.table(text="Date        Hour    ID
          2014-01-01   0      0
          2014-01-01   1      1
          2014-01-01   10     2
          2014-01-02   11     0", header=T))
#         Date Hour ID
# 1 2014-01-01    0  0
# 2 2014-01-01    1  1
# 3 2014-01-01   10  2
# 4 2014-01-02   11  0