Подсчитайте количество строк в каждой группе

У меня есть фрейм данных, и я хотел бы подсчитать количество строк в каждой группе. Я регулярно использую функцию aggregateдля суммирования данных следующим образом:

df2 <- aggregate(x ~ Year + Month, data = df1, sum)

Теперь я хотел бы подсчитать наблюдения, но не могу найти правильный аргумент для FUN. Интуитивно я думал, что это будет следующим образом:

df2 <- aggregate(x ~ Year + Month, data = df1, count)

Но не тут-то было.

Есть идеи?

Немного игрушечных данных:

set.seed(2)
df1 <- data.frame(x = 1:20,
                  Year = sample(2012:2014, 20, replace = TRUE),
                  Month = sample(month.abb[1:3], 20, replace = TRUE))