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

Question

У меня есть dataframe, и я хотел бы подсчитать количество строк в каждой группе. Я reguarly использовать функцию 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)) 

Answer 1

Существует также df2 <- count(x, c('Year','Month')) (plyr пакет)

Answer 2

После @ предложение Джошуа, вот один из способов вы можете подсчитать количество наблюдений в вашем df dataframe где Year = 2007 и Month = ноябрь (при условии, что они являются столбцами):

nrow(df[,df$YEAR == 2007 & df$Month == "Nov"]) 

и aggregate после @GregSnow:

aggregate(x ~ Year + Month, data = df, FUN = length) 

Answer 3

Простой вариант для использования с aggregate является length функция, которая даст вам длину вектора в подмножестве. Иногда немного более надежным является использование function(x) sum(!is.na(x)).

Answer 4

В качестве альтернативы функции aggregate() в этом случае будет table() с as.data.frame(), которые также указывают, какие комбинации год и месяц связаны с нулем вхождений

df<-data.frame(x=rep(1:6,rep(c(1,2,3),2)),year=1993:2004,month=c(1,1:11)) 

myAns<-as.data.frame(table(df[,c("year","month")])) 

А без нулевой встречающихся комбинаций

myAns[which(myAns$Freq>0),] 

Answer 5

Создать новую переменную Count со значением 1 для каждой строки:

df1["Count"] <-1 

Тогда совокупный dataframe, суммируя по Count колонке:

df2 <- aggregate(df1[c("Count")], by=list(year=df1$year, month=df1$month), FUN=sum, na.rm=TRUE) 

Answer 6

старый вопрос без data.table раствора. Так здесь идет ...

Использования .N

library(data.table) 
DT <- data.table(df) 
DT[, .N, by = list(year, month)] 

Answer 7

Для моих агрегатов я обычно в конечном итоге хочу видеть в виду и «насколько велика эта группа» (а.к.а. длина). Итак, это мой удобный фрагмент для этих случаев;

agg.mean <- aggregate(columnToMean ~ columnToAggregateOn1*columnToAggregateOn2, yourDataFrame, FUN="mean") 
agg.count <- aggregate(columnToMean ~ columnToAggregateOn1*columnToAggregateOn2, yourDataFrame, FUN="length") 
aggcount <- agg.count$columnToMean 
agg <- cbind(aggcount, agg.mean) 

Answer 8

Мы также можем использовать dplyr.

Во-первых, некоторые данные:

df <- data.frame(x = rep(1:6, rep(c(1, 2, 3), 2)), year = 1993:2004, month = c(1, 1:11)) 

Теперь отсчет:

library(dplyr) 
count(df, year, month) 
#piping 
df %>% count(year, month) 

Мы также можем использовать немного длиннее версию с трубопроводами и функцию n():

df %>% 
    group_by(year, month) %>% 
    summarise(number = n()) 

или функция «tally»:

df %>% 
    group_by(year, month) %>% 
    tally() 

Answer 9

lw<- function(x){length(which(df$variable==someValue))} 

agg<- aggregate(Var1~Var2+Var3, data=df, FUN=lw) 

names(agg)<- c("Some", "Pretty", "Names", "Here") 

View(agg) 

Answer 10

Учитывая @Ben ответа, R будет выдавать ошибку, если df1 не содержит x столбца. Но она может быть решена элегантно с paste:

aggregate(paste(Year, Month) ~ Year + Month, data = df1, FUN = NROW) 

Аналогично, можно обобщить, если более чем две переменные используются в группировке:

aggregate(paste(Year, Month, Day) ~ Year + Month + Day, data = df1, FUN = NROW)