Contare il numero di righe all'interno di ciascun gruppo

Question

Ho un dataframe e vorrei contare il numero di righe all'interno di ogni gruppo. Ho reguarly utilizzare la funzione aggregate per sommare i dati come segue:

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

Ora, vorrei contare le osservazioni, ma non riesco a trovare l'argomento appropriato per FUN. Intuitivamente, ho pensato che sarebbe stato il seguente:

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

Ma, senza fortuna del genere.

Qualche idea?

---

Alcuni dati giocattolo:

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

C'è anche df2 <- count(x, c('Year','Month')) (pacchetto plyr)

Answer 2

seguito @ suggerimento di Joshua, ecco un modo si potrebbe contare il numero di osservazioni nel vostro df dataframe dove Year = 2007 e Month = novembre (ammesso che sono colonne):

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

e con aggregate, seguendo @GregSnow:

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

Answer 3

L'opzione semplice da usare con aggregate è la funzione length che vi darà la lunghezza del vettore nel sottoinsieme. A volte un po 'più robusto è usare function(x) sum(!is.na(x)).

Answer 4

Un'alternativa alla funzione aggregate() in questo caso sarebbe table() con as.data.frame(), che sarebbe anche indicare quali combinazioni di Anno e mese sono associati a nessuna occorrenza

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")])) 

E senza le combinazioni zero verificano

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

Answer 5

Creare una nuova variabile Count con un valore di 1 per ogni riga:

df1["Count"] <-1 

dataframe Poi aggregato, sommando dalla colonna Count:

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

Answer 6

Un vecchio questione senza una data.table soluzione. Quindi ecco qui ...

Utilizzando .N

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

Answer 7

Per i miei aggregazioni Io di solito finiscono per voler vedere media e "quanto è grande questo gruppo" (lunghezza anche noto come). Quindi questo è il mio utile snippet per quelle occasioni;

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

Possiamo anche utilizzare dplyr.

In primo luogo, alcuni dati:

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

Ora il conteggio:

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

Si può anche utilizzare una versione leggermente più lungo con tubazioni e la funzione n():

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

o la funzione `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

Considerando risposta @ Ben, R getterebbe un errore se df1 non contiene x colonna. Ma può essere risolto con eleganza paste:

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

Analogamente, può essere generalizzata se si utilizzano più di due variabili nel gruppo:

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