Différence de valeur suivant une variable / "SOMME.SI"

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

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:

---

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

---

Bonsoir,

Merci pour l'aide c'est déjà mieux :D 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

Bonjour,

Une proposition "à la main" :

Code:

---

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:

---

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:

---

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,

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

Code:

---

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

---

par

Code:

---

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é.

Merci à vous deux
AB