Liczba wierszy w każdej grupie

Question

Mam ramkę danych i chciałbym policzyć liczbę wierszy w każdej grupie. I reguarly użyć funkcji aggregate podsumować dane w następujący sposób:

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

Teraz chciałbym liczyć obserwacje, ale nie wydaje się znaleźć właściwą argument FUN. Intuicyjnie pomyślałem, że będzie to:

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

Ale nie ma szczęścia.

Wszelkie pomysły?

---

Niektóre dane zabawki:

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

Istnieje również df2 <- count(x, c('Year','Month')) (pakiet plyr)

Answer 2

Po @ sugestią Jozuego, oto jeden sposób można policzyć liczbę obserwacji w df dataframe gdzie Year = 2007 i Month = listopada (zakładając, że są kolumn)

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

i aggregate po @GregSnow:

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

Answer 3

Prostym rozwiązaniem, aby skorzystać z aggregate jest funkcja length który daje długość wektora w podgrupie. Czasem trochę bardziej odporne jest użycie function(x) sum(!is.na(x)).

Answer 4

Alternatywą do funkcji aggregate() w tym przypadku byłoby table() z as.data.frame(), które również wskazać, które kombinacje rok i miesiąc są związane z zera wystąpień

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

i bez kombinacji zerowej występujących

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

Answer 5

Tworzenie nowej zmiennej Count o wartości 1 dla każdego wiersza:

df1["Count"] <-1 

Łącznej dataframe, zsumowanie przez kolumnę Count:

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

Answer 6

Stary pytanie bez data.table rozwiązanie. Więc tu idzie ...

Korzystanie .N

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

Answer 7

dla moich skupisk I zazwyczaj kończy się chcąc zobaczyć myśli i „jak duża jest ta grupa” (długość a.k.a.). To jest mój przydatny fragment na te okazje;

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

Możemy również użyć dplyr.

Po pierwsze, niektóre dane:

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

Teraz count:

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

Możemy również użyć nieco dłuższą wersję z orurowaniem i funkcję n():

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

lub funkcja '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

Biorąc pod uwagę odpowiedź @Ben, R rzucał błąd, jeśli df1 nie zawiera x kolumnę. Ale to może być rozwiązany elegancko z paste:

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

Podobnie może być uogólnione, jeśli więcej niż dwie zmienne są wykorzystywane w ugrupowaniu:

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