Discussion :

[abaretti]

Bonjour,

J'aimerais faire la différence entre deux valeurs numérique, pour chaque identifiant et suivant des dates.
Par exemple dans la PJ : différence 2016 - 2008 de flux0 pour AGENCOUR22NA1
différence 2016 - 2008 de flux0 pour AIGNAY3re1...

Sachant qui suivant les identifiants, les dates varient mais je veux toujours la différence entre l'année max et l'année mini.

Si qqun peut m'aider. Merci

[olivier.decourt]

Bonjour.
Un peu de {dplyr} peut nous sortir d'affaire. L'idée est de faire dans cet ordre :
1) calculer les années min et max par identifiant (group_by + mutate. Pas summarise ici parce que je veux garder le détail des lignes et toutes les autres colonnes)
2) ne conserver que ces lignes (filter) --> on n'a plus que 2 observations par identifiant
3) calculer l'écart sur flux0 avec max(flux0)-min(flux0) cette fois dans un summarise pour n'avoir qu'une ligne par identifiant en sortie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
evol <- flux_8455_15_20 %>%
   group_by(IDENTIFICATION) %>%
   mutate(annee_min = min(ANNEE),
              annee_max = max(ANNEE)) %>%
   filter(ANNEE == annee_min | ANNEE == annee_max) %>%
   summarise(flux0 = max(flux0)-min(flux0))

[abaretti]

Bonsoir,

Merci pour l'aide c'est déjà mieux le seul petit problème et lors du calcul de différence, je ne veux pas forcement la différence flux0max - flux0min mais la différence entre les dates. Donc si mon flux0max en 2008 et mon flux0min en 2018, je souhaite un résultat négatif qui correspond bien à valeur18 - valeur08. Je pense que c'est de la que j'ai encore une erreur.
Si vous avez une solution pour ça ^^
Merci

[mgdondon]

Bonjour,

Une proposition "à la main" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
df <- read.table(header = TRUE, text = "
ANNEE flux0 IDENTIFICATION
2008 0.00 AGENCOUR21NA1
2012 2.53 AGENCOUR21NA1
2014 0.53 AGENCOUR21NA1
2016 0.53 AGENCOUR21NA1
2012 1.68 AIGNAY3r1
2014 2.00 AIGNAY3r1
2016 0.02 AIGNAY3r1
")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
df_date_min <- aggregate(ANNEE~IDENTIFICATION,df,min)
df_date_min <- merge(df,df_date_min,by=c("IDENTIFICATION","ANNEE"))[,-2]
names(df_date_min)=c("IDENTIFICATION","flux0_ANNEE_min")
 
df_date_max <- aggregate(ANNEE~IDENTIFICATION,df,max)
df_date_max <- merge(df,df_date_max,by=c("IDENTIFICATION","ANNEE"))[,-2]
names(df_date_max)=c("IDENTIFICATION","flux0_ANNEE_max")
 
evol <- merge(df_date_min,df_date_max,by="IDENTIFICATION")
evol$diff_flux0 <- evol$flux0_ANNEE_max - evol$flux0_ANNEE_min

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
> evol
  IDENTIFICATION flux0_ANNEE_min flux0_ANNEE_max diff_flux0
1  AGENCOUR21NA1            0.00            0.53       0.53
2      AIGNAY3r1            1.68            0.02      -1.66

Cordialement,

[olivier.decourt]

Bonjour.
On peut aussi remplacer dans mon code précédent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

summarise(flux0 = max(flux0)-min(flux0))

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mutate(diff_flux0 = flux0[2L] - flux0[1L])

Peut-être qu'il restera des lignes en doublon à éliminer (avec la fonction distinct)... je n'ai pas testé.

[abaretti]

Merci à vous deux
AB