Comment merger deux data frame avec des conditions spécifiques ?

Version imprimable

02/05/2019, 17h17
Arkning

Comment merger deux data frame avec des conditions spécifiques ?

Bonjour,

J'aimerais merger deux data frame selon le schéma suivant :

voici le data frame df1 :

Numéro - Nom - Quantité

001 - Azer - 2
001 - Azer - 5
004 - Zert - 10
008 - Erty - 4

Et un autre df2 :

Numéro - Nom - Prix

001 - Azer - 34
004 - Abc - 35
006 - Erty - 36
007 - Yopy - 37

Et mon résultat attendu est le suivant :

001 - Azer - 2 - 34
001 - Azer - 5 - 34
004 - Zert - 10 - 35
008 - Erty - 4 - 36

Il faut en fait que soit au moins le Numéro ou le Nom du data frame df1 correspondent à celui de df2 et ainsi rajouter la colonne prix.

J'ai déjà essaye d'utiliser la fonction merge cependant j'obtiens seulement les lignes qui ont à la fois le numéro et le nom en commun pas celles ou seulement soit le numéro soit le nom correspond.

Merci de votre compréhension,

Arkning.

merge update

Bonjour,

Voici une proposition :

• Création des dataframes

Code:

1
2
3
4
5
6
7
8
9
> df1 <- data.frame(Numero=c(001,001,004,008),
+                   Nom=c("Azer","Azer","Zert","Erty"),
+                   Quantite=c(2,5,10,4))
> df1
  Numero  Nom Quantite
1      1 Azer        2
2      1 Azer        5
3      4 Zert       10
4      8 Erty        4

Code:

1
2
3
4
5
6
7
8
9
> df2 <- data.frame(Numero=c(001,004,006,007),
+                   Nom=c("Azer","Abc","Erty","Yopy"),
+                   Prix=c(34,35,36,36))
> df2
  Numero  Nom Prix
1      1 Azer   34
2      4  Abc   35
3      6 Erty   36
4      7 Yopy   36

• Merge sur le numéro

Code:

1
2
3
4
5
6
> dfa <- merge(df1,df2[,c("Numero","Prix")],by="Numero")
> dfa
  Numero  Nom Quantite Prix
1      1 Azer        2   34
2      1 Azer        5   34
3      4 Zert       10   35

• Merge sur le nom

Code:

1
2
3
4
5
6
> dfb <- merge(df1,df2[,c("Nom","Prix")],by="Nom")
> dfb
  Numero  Nom Quantite Prix
1      1 Azer        2   34
2      1 Azer        5   34
3      8 Erty        4   36

• Merge global

Code:

1
2
3
4
5
6
7
> df <- merge(dfa,dfb,by=c("Numero","Nom","Quantite"),all=T, suffixes=c("",".update"))
> df
  Numero  Nom Quantite Prix Prix.update
1      1 Azer        2   34          34
2      1 Azer        5   34          34
3      4 Zert       10   35          NA
4      8 Erty        4   NA          36

• Mise à jour des données

Code:

1
2
3
4
5
6
7
8
> df$Prix <- ifelse(!is.na(df$Prix.update),df$Prix.update,df$Prix)
> df$Prix.update <- NULL
> df
  Numero  Nom Quantite Prix
1      1 Azer        2   34
2      1 Azer        5   34
3      4 Zert       10   35
4      8 Erty        4   36

Voir aussi cette discussion.

Cordialement,

bonsoir

Code:

1
2
3
4
 
library(tydiverse)
 
df<- df1%>% inner_join(df2, by = c("Numéro",  "Nom"))

merge inner_join

Bonjour,

Vous avez répondu un peu rapidement il me semble.

Votre code correspond à un merge strict :
Code:

1 2 3 4 > merge(df1,df2,by=c("Numero","Nom")) Numero Nom Quantite Prix 1 1 Azer 2 34 2 1 Azer 5 34
Code:

1 2 3 4 5 > library(tidyverse) > df1 %>% inner_join(df2,by=c("Numero","Nom")) Numero Nom Quantite Prix 1 1 Azer 2 34 2 1 Azer 5 34
De plus la demande est de faire un merge sur la variable Numero OU sur la variable Nom.

Cordialement,

03/05/2019, 07h29
xavier-Pierre
bonjour , oui j'ai répondu trop rapidement mais surtout j'ai lu trop rapidement et mal lu...
un autre essai pour me rattraper
Code:

1 2 3 4 5 library(tidyverse) df <- df1 %>% inner_join(df2 %>% select(-Nom),by=c("Numero")) %>% bind_rows(df1 %>% inner_join(df2%>% select(-Numero),by=c("Nom"))) %>% distinct()
juste une petite remarque : je pense qu'il faudrait revoir la structuration des données
cordialement

Citation:

Envoyé par mgdondon

Bonjour,

Voici une proposition :

• Création des dataframes

Code:

1
2
3
4
5
6
7
8
9
> df1 <- data.frame(Numero=c(001,001,004,008),
+                   Nom=c("Azer","Azer","Zert","Erty"),
+                   Quantite=c(2,5,10,4))
> df1
  Numero  Nom Quantite
1      1 Azer        2
2      1 Azer        5
3      4 Zert       10
4      8 Erty        4

Code:

1
2
3
4
5
6
7
8
9
> df2 <- data.frame(Numero=c(001,004,006,007),
+                   Nom=c("Azer","Abc","Erty","Yopy"),
+                   Prix=c(34,35,36,36))
> df2
  Numero  Nom Prix
1      1 Azer   34
2      4  Abc   35
3      6 Erty   36
4      7 Yopy   36

• Merge sur le numéro

Code:

1
2
3
4
5
6
> dfa <- merge(df1,df2[,c("Numero","Prix")],by="Numero")
> dfa
  Numero  Nom Quantite Prix
1      1 Azer        2   34
2      1 Azer        5   34
3      4 Zert       10   35

• Merge sur le nom

Code:

1
2
3
4
5
6
> dfb <- merge(df1,df2[,c("Nom","Prix")],by="Nom")
> dfb
  Numero  Nom Quantite Prix
1      1 Azer        2   34
2      1 Azer        5   34
3      8 Erty        4   36

• Merge global

Code:

1
2
3
4
5
6
7
> df <- merge(dfa,dfb,by=c("Numero","Nom","Quantite"),all=T, suffixes=c("",".update"))
> df
  Numero  Nom Quantite Prix Prix.update
1      1 Azer        2   34          34
2      1 Azer        5   34          34
3      4 Zert       10   35          NA
4      8 Erty        4   NA          36

• Mise à jour des données

Code:

1
2
3
4
5
6
7
8
> df$Prix <- ifelse(!is.na(df$Prix.update),df$Prix.update,df$Prix)
> df$Prix.update <- NULL
> df
  Numero  Nom Quantite Prix
1      1 Azer        2   34
2      1 Azer        5   34
3      4 Zert       10   35
4      8 Erty        4   36

Voir aussi cette discussion.

Cordialement,

Bonjour,

Tout d'abord je vous remercie de votre réponse, j'avais pensé à le faire en deux étapes comme vous mais je pensais que c'était possible en une seule mais cette solution me convient très bien.
Juste une dernière chose, est-il toujours possible de merger mais j'aimerais maintenant (sans modifier le résultat de fin) comparer les "Numéro" sans les 0 qui pourrait se situer au début et de comparer les "Nom" sans espaces et tout en majuscules.

Bien à vous,

Arkning

03/05/2019, 12h28
mgdondon

Nettoyage de données
Bonjour,

Citation:

Envoyé par Arkning

Juste une dernière chose, est-il toujours possible de merger mais j'aimerais maintenant (sans modifier le résultat de fin) comparer les "Numéro" sans les 0 qui pourrait se situer au début et de comparer les "Nom" sans espaces et tout en majuscules.

Là c'est du nettoyage de données :
Code:

1 2 3 > Numero <- "01" > as.numeric(as.character(Numero)) [1] 1
Code:

1 2 3 4 5 > Nom <- " Az er" > stringr:::str_trim(toupper(Nom)) [1] "AZ ER" > stringr:::str_replace_all(toupper(Nom)," ", "") [1] "AZER"
Cordialement,
03/05/2019, 14h05
Arkning
Citation:
Envoyé par mgdondon

Bonjour,

Là c'est du nettoyage de données :

Code:

1 2 3 4 5 6 7 > Numero <- "01" > as.numeric(as.character(Numero)) [1] 1 > > Nom <- " Azer" > stringr:::str_trim(toupper(Nom)) [1] "AZER"

Cordialement,
Non justement je ne veux pas nettoyer mes données je veux que cela se passe pendant la comparaison des données mais sans modifier la donnée en elle même. Example

Numéro - Nom - Quantité
0102 - Azer - 5

Numéro - Nom - Prix
102 - az er - 8

Résultat :
0102 - Azer - 5 - 8
03/05/2019, 15h01
mgdondon

Nettoyage de données

Remarquez que je n'ai pas modifié les données. Vous pouvez choisir de les modifier ou au contraire de créer des variables temporaires qui vous serviront pour le merge.

Cordialement,
03/05/2019, 15h25
Arkning

Citation:

Envoyé par mgdondon

Remarquez que je n'ai pas modifié les données. Vous pouvez choisir de les modifier ou au contraire de créer des variables temporaires qui vous serviront pour le merge.

Cordialement,

Bonjour,

Oui je le sais très bien je ne remets pas en cause ce que vous avez fait au contraire je vous remercie de m'avoir aider. Je voulais juste savoir si vous aviez une idée de comment merger avec les contraintes précédemment expliquées. En effet les données avec lesquelles je travail on cette particularité j'ai réussi à le faire mais j'ai du modifier les données or je veux justement obtenir le résultat sans modifier les données si c'est possible.
Donc d'après votre expertise je devrais créer des variables temporaires pour le merge pourriez-vous me donner un exemple ou m'expliquer un peu plus en détails si vous le voulez bien ?

Cordialement,

Arkning

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
> df1 <- data.frame(Numero=c("001","001","004","008"),
+                   Nom=c("Azer","Azer","Zert","Erty"),
+                   Quantite=c(2,5,10,4))
> df1$Numero_tmp <- as.numeric(as.character(df1$Numero))
> df2 <- data.frame(Numero=c("1","004","006","007"),
+                   Nom=c("Azer","Abc","Erty","Yopy"),
+                   Prix=c(34,35,36,36))
> df2$Numero_tmp <- as.numeric(as.character(df2$Numero))
> dfa <- merge(df1,df2[,c("Numero_tmp","Prix")],by="Numero_tmp")
> dfa
  Numero_tmp Numero  Nom Quantite Prix
1          1    001 Azer        2   34
2          1    001 Azer        5   34
3          4    004 Zert       10   35

Cordialement,

Citation:

Envoyé par mgdondon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
> df1 <- data.frame(Numero=c("001","001","004","008"),
+                   Nom=c("Azer","Azer","Zert","Erty"),
+                   Quantite=c(2,5,10,4))
> df1$Numero_tmp <- as.numeric(as.character(df1$Numero))
> df2 <- data.frame(Numero=c("1","004","006","007"),
+                   Nom=c("Azer","Abc","Erty","Yopy"),
+                   Prix=c(34,35,36,36))
> df2$Numero_tmp <- as.numeric(as.character(df2$Numero))
> dfa <- merge(df1,df2[,c("Numero_tmp","Prix")],by="Numero_tmp")
> dfa
  Numero_tmp Numero  Nom Quantite Prix
1          1    001 Azer        2   34
2          1    001 Azer        5   34
3          4    004 Zert       10   35

Cordialement,

Bonjour,

Merci de votre retour donc si je veux faire la même chose pour comparer les "Nom" en majuscules et sans espace je devrais faire quelque chose comme :

Code:

1
2
3
4
5
 
> df1 <- data.frame(Numero=c("001","001","004","008"),
+                   Nom=c("Azer","Azer","Zert","Erty"),
+                   Quantite=c(2,5,10,4))
> df1$Numero_tmp <- toupper(str_replace_all(df1$Numero, " ", ""))

Bien à vous,

Arkning