r 按字符和日期对数字求和

Question

我正在尝试将每个月的数值与这些数据相加：

我的数据

char  numb date
cat   1    21-01-01
cat   1    21-01-01
cat   1    21-03-01
bird  2    21-01-01
bird  2    21-01-01
bird  2    21-02-01
dog   3    21-01-01
dog   3    21-01-01
dog   3    21-02-01
dog   3    21-02-01
dog   3    21-03-01
dog   3    21-03-01

。 . .而且我似乎无法按月对每个字符进行汇总和 cbind 的总和。会导致：

char  numb  date
cat   2     21-01-01
cat   1     21-02-01
bird  4     21-01-01
bird  2     21-02-01
dog   6     21-01-01
dog   6     21-02-01
dog   6     21-03-01

我知道如何使用 numcolwise(sum) 按字符或日期对数字求和，但不能同时使用两者。 （我对如何使用 dplyr 进行分组和收集也有点模糊。）有什么想法吗？

Answer 1

通过使用dplyr 或plyr 或data.table，

数据

df <- read.table(text = "char  numb date
cat   1    21-01-01
cat   1    21-01-01
cat   1    21-03-01
bird  2    21-01-01
bird  2    21-01-01
bird  2    21-02-01
dog   3    21-01-01
dog   3    21-01-01
dog   3    21-02-01
dog   3    21-02-01
dog   3    21-03-01
dog   3    21-03-01", header = T)

代码dplyr

library(dplyr)

df %>%
  group_by(char, date) %>%
  summarize(numb = sum(numb))

  char  date      numb
  <chr> <chr>    <int>
1 bird  21-01-01     4
2 bird  21-02-01     2
3 cat   21-01-01     2
4 cat   21-03-01     1
5 dog   21-01-01     6
6 dog   21-02-01     6
7 dog   21-03-01     6

plyr

ddply(df, c("char", "date"), summarise, numb = sum(numb))

  char     date numb
1 bird 21-01-01    4
2 bird 21-02-01    2
3  cat 21-01-01    2
4  cat 21-03-01    1
5  dog 21-01-01    6
6  dog 21-02-01    6
7  dog 21-03-01    6

data.table

library(data.table)

setDT(df)
df[, .(numb = sum(numb)), by = c("char", "date")]

   char     date numb
1:  cat 21-01-01    2
2:  cat 21-03-01    1
3: bird 21-01-01    4
4: bird 21-02-01    2
5:  dog 21-01-01    6
6:  dog 21-02-01    6
7:  dog 21-03-01    6