Finden Sie das niedrigste Datum in jeder Gruppe

Question

Hallo dort: Ich versuche, das niedrigste Datum in jeder Gruppe zu finden. Der Zweck besteht darin, zu finden, welches Datum für jede von mehreren Zeitreihen gemeinsam ist. Derzeit sehen die Daten so aus.

library(tidyr) 
library(dplyr) 
grouping_variable<-sample(c('a', 'b', 'c'), 500, replace=TRUE) 
date<-sample(seq(as.Date('1999/01/01'), as.Date('2015/01/01'), by="day"), 500) 
numeric_variable<-rnorm(500, 50, sd=2) 
df<-data.frame(grouping_variable, date, numeric_variable) 

Und mein Arbeitsversuch ist im Grunde das.

df %>% 
group_by(grouping_variable)%>% 
min(date) 

Answer 1

Wir verwenden slice

df %>% 
    group_by(grouping_variable) %>% 
    slice(which.min(date))