Discussion :

[ali3529]

Bonjour,

Je travail sur R et je dois crée 2 nouvelles colonnes sous conditions d'autres colonnes.

En gros ma table se présente comme ceci :




et ce que je voudrais c'est crée 2 nouvelles colonnes qui renvoi le nombre de 1 et de 0 pour chaque client, mais la condition c'est que il faut aller chercher l'information dans la bonne colonne vacances_zone selon son appartenance dans la colonne Zone.

en gros ce que je voudrais comme sortit pour l'image que je vous ai joint ça serait :

ID_client	nb_vac	nb_hors_vac
100058	4	2
100068	2	1
100070	1	3

Je vous remercie d'avance pour votre aide.

Bien cordialement,

Ali

[ali3529]

Au final j'ai réussi à résoudre mon problème en passant par plusieurs étapes, même si j'aurais préféré faire une boucle mais je ne suis pas trop calé sur les boucles

Voici le code que j'ai utilisé :

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
19
20
21
22
23
24
25
26
## Afin de compter le nombre de commande passé pendant les vacances et hors vacances ##
## Je crée 3 nouvelles tables, chacune des tables contient les clients pour une zone donnée ##
Zone_A_client <- Table_11[Table_11$zone=="A",c(1,12,16)]
Zone_B_client <- Table_11[Table_11$zone=="B",c(1,13,16)]
Zone_C_client <- Table_11[Table_11$zone=="C",c(1,14,16)]
 
## Maintenant je compte le nombre de commande passé pendant les vac et hors vac pour la zone A##
zone_A_summary <- with(Zone_A_client, table(idclient_do, vacances_zone_a))
zone_A_summary <- as.data.frame.matrix(zone_A_summary) # Transformation de la table en data frame
setDT(zone_A_summary, keep.rownames = TRUE)[] # Transformation de l'index en colonne 
names(zone_A_summary) <- c("idclient_do", "Nb_hors_vac", "Nb_vac")
 
## Je répète la même chose pour la zone B A##
zone_B_summary <- with(Zone_B_client, table(idclient_do, vacances_zone_b))
zone_B_summary <- as.data.frame.matrix(zone_B_summary) # Transformation de la table en data frame
setDT(zone_B_summary, keep.rownames = TRUE)[] # Transformation de l'index en colonne 
names(zone_B_summary) <- c("idclient_do", "Nb_hors_vac", "Nb_vac")
 
## Et je finis par la zone C A##
zone_C_summary <- with(Zone_C_client, table(idclient_do, vacances_zone_c))
zone_C_summary <- as.data.frame.matrix(zone_C_summary) # Transformation de la table en data frame
setDT(zone_C_summary, keep.rownames = TRUE)[] # Transformation de l'index en colonne 
names(zone_C_summary) <- c("idclient_do", "Nb_hors_vac", "Nb_vac")
 
## Je rassemble les table zone_summary A, B et C en une seule ##
Zone_total_summary <- rbind(zone_A_summary, zone_B_summary, zone_C_summary)

Bien cordialement,

Ali

[tototode]

Bonjour,

Une possibilité avec tidyr et dplyr :

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
tab <- structure(list(zone = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 2L, 2L, 1L, 1L), .Label = c("A", "B"), class = "factor"), 
    vac_zone_a = c(1L, 1L, 1L, 0L, 0L, 1L, 1L, 0L, 1L, 1L, 0L, 
    1L), vac_zone_b = c(1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 
    1L, 1L), vac_zone_c = c(1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 
    1L, 1L, 1L), idclient = c(100058L, 100058L, 100058L, 100058L, 
    100058L, 100058L, 100068L, 100068L, 100059L, 100059L, 100069L, 
    100069L)), .Names = c("zone", "vac_zone_a", "vac_zone_b", 
"vac_zone_c", "idclient"), class = "data.frame", row.names = c(NA, 
-12L))
 
tab2 <- gather(tab, "vacs", "value", -zone, -idclient)
tab2$vacs <- toupper(sub("^.+_", "", tab2$vacs))
tab2 <- tab2[tab2$zone==tab2$vacs,]
tab2 %>% group_by(idclient) %>% summarise(nb_vac = sum(value), nb_hros_vac = sum(value!=1))

A toi d'adapter les noms en fonction de tes noms de colonne.

cdlt

[ali3529]

Merci pour ton retour tototode.
En adaptant ton code à mon cas, cela fonctionne bien.

Bien cordialement,

Ali