Isoler date min/max d'une data

[Haine Nathan]

Bonjour ,

Encore une question d'un débutant sur R , merci d'avance de me donner un coup de main.

J'ai une data avec des dates d'inventaires et des auteurs , j'aimerais sélectionner la date maximum et la date minimum


Exemple reproductible.

Code : Tout sélectionner

library(dplyr)
library(lubridate)
v1<-c("06/08/2013","08/08/2013","09/08/2013","09/08/2013","08/04/2012","08/04/2012","04/03/2019","05/03/2019","27/04/2019","27/04/2019","28/04/2019","05/05/2012","05/05/2012","24/01/2013")
v2<-c("Jean Pierre" , "Christian","Michel","Michel" ,"Dupont",  "Dupont" , "Jean" , "Bernard" , "Christian" , "Christian" , "Bob"  ,"Dupont" , "Dupont" , "Michel" )
df<-data.frame(v1,v2)
names(df)=c("Date","Auteur")
df$Date<-dmy(df$Date)


Pour l'instant j'ai essayé ça :

Code : Tout sélectionner

temps_participation<-data.frame(matrix(nrow=1,ncol=3))
names(temps_participation)=c("Auteur","Min","Max")

for (i in unique(df$Auteur)){
  tab_tempo <- df %>%
    filter(Auteur==i)
  mini=min(ymd(tab_tempo$Date))
  maxi=max(ymd(tab_tempo$Date))
  temps_participation<-rbind(temps_participation,c(i,mini,maxi))

ça marche bien , mais ... ça ne marche pas. R me sort des données chiffrés complètement déconnecté des dates et donc inexploitable pour moi.
Ex:
Auteur Min Max
Dupont 15438 15465

Je pense que c'est une question de format mais les formulations

mini=min(tab_tempo$Date)
mini=min(As.Date(tab_tempo$Date))
mini=min(ymd(tab_tempo$Date))

ne semble pas changer grand chose.

Si vous avez une idée pour me débloquer , je vous en remercie chaleureusement.

[Eric Casellas]

Bonjour,

A priori le soucis viens de ta dernière ligne de la boucle

Code : Tout sélectionner

c(i,mini,maxi)

, la fonction c génère un vecteur qui n'as qu'un seul type pour tous les éléments, c'est pourquoi tes dates mini et maxi ne sont plus au format date à partir de là...

Eric

[Logez Maxime]

Bonjour,

Code : Tout sélectionner

df %>%
  mutate(date = ymd(Date)) %>%
  group_by(Auteur) %>%
  summarise(mini = min(date), maxi = max(date))

Cordialement,
Maxime