Discussion :

[justine59670]

Bonjour à tous,


En ce moment je travaille sur l'automatisation d'un cleaning d'une feuille excel sur R. J'ai réussi à faire tout ce que je voulais sauf deux points, j'aimerais donc que l'on m'oriente sur la démarche ou la manière de penser le script.

Dataframe : 5 colonnes : Code_client_acheteurs, Code_client_livraison, code_contrat, Date_contrat, Date_facture.
Code_client_acheteurs = client qui paye
Code_client_livraison = client qui est livrée

1er problème : J'ai besoin de supprimer les lignes si : 1 Code_client_livraison est égale à plus d'un Code_client_acheteurs (en gardant le contrat le plus récent ).
logique : ce n'est pas normal qu'un livrée à deux payeurs..

Voilà je n'ai aucune idée sur la manière de faire... je suis désespérée...



2eme problème : J'ai besoin de supprimer les lignes si 1 Code_client_acheteurs est égale à plus de 1 Code_client_livraison si sa facture à plus de 5 ans.
logique : c'est un client alors dit inactifs


Je me doute que lorsque l'un sera résolu, je vais facilement résoudre le deuxième car c'est le même résonnement mais comment identifier le "si un variable égale 2 fois la deuxième variable).
Je ne veux pas forcement que l'on me donne une réponse mais j'aimerais être orienté pour éviter de devoir faire ce travail à la main... ( le cas 1 apparaît en moyenne 700 fois d'après un tb dynamique sur excel... et je voudrais tout avoir sur R car mon "traitement" n'est pas terminé)


Merci d'avance

[A. D.]

Bonjour,

Je ne suis pas sûre d'avoir complètement compris votre problématique, mais voici une piste qui pourra peut-être vous aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Code_client_livraison <- factor(c("a", "b", "c", "a")) # vecteur de codes clients livraisons (ici des lettres)
Code_client_acheteurs <- c("a", "b", "d", "e", "c")  # vecteur de codes clients acheteurs (ici des lettres)
 
# dans ce vecteur on récupère les codes clients communs entre acheteurs et livraisons (pour pouvoir ensuite faire la comparaison)
Code_client_acheteurs_livres <- Code_client_acheteurs[ which( Code_client_acheteurs %in% levels(Code_client_livraison) ) ]
 
# la fonction "table" renvoie un tableau d'effectif
tab1 <- table(Code_client_livraison)
tab1
# Code_client_livraison
# a b c 
# 2 1 1 
tab2 <- table(Code_client_acheteurs_livres)
 
# comparaison (par exemple) :
tab1 > tab2
#     a     b     c 
#  TRUE FALSE FALSE

HTH !


Cordialement,


A.D.