Transformation de data frame

Version imprimable

Bonjour,

J'ai un data frame qui a une certaine forme et j'aimerais remodeler la forme du data frame. J'ai par exemple utilisé la fonction cast() qui me donne déjà un bon résultat cependant ce n'est pas exactement ce que j'attends. Pour être plus clair je vais vous montrer un exemple de mon data frame :

Code:

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
27
28
29
30
31
32
 
df <- data.frame("Periode"  = c("2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01",
                                "2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01",
                                "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01",
                                "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01",
                                "2019-01-01", "2019-01-01", "2019-01-01", "2019-01-01"),
                 "Action"   = c(1, 2, 3, 4,
                                5, 6, 7, 8, 9, 10,
                                1, 2, 3, 4,
                                5, 6, 7, 8, 9, 10,
                                1, 2, 3, 4),
                 "Nom"      = c("A", "A", "A", "A",
                                "A", "A", "A", "A", "A", "A",
                                "A", "A", "A", "A",
                                "A", "A", "A", "A", "A", "A",
                                "A", "A", "A", "A"),
                 "Sous_Nom" = c("a", "a", "a", "a",
                                "a", "a", "a", "a", "a", "a",
                                "a", "a", "a", "a",
                                "a", "a", "a", "a", "a", "a",
                                "b", "b", "b", "b"),
                 "Nombre"   = c(4637, 4637, 4637, 4637,
                                500, 500, 500, 500, 500, 500,
                                3000, 3000, 3000, 3000,
                                30, 30, 30, 30, 30, 30,
                                2000, 2000, 2000, 2000),
                 "Temps"    = c(5, 5, 120, 20,
                                30, 0, 1, 0, 0, 1,
                                2, 2, 120, 10,
                                10, 0, 1, 0, 0, 1,
                                5, 5, 10, 5),
                 stringsAsFactors = FALSE)

Voici un exemple du résultat attendu :

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
result <- data.frame("Nom"      = c("A", "A"),
                     "Sous_Nom" = c("a", "b"),
                     "Nb_1"     = c(NA, 2000),
                     "Nbr_1"    = c(NA, NA),
                     "Temps_1"  = c(NA, 25),
                     "Nb_2"     = c(NA, NA),
                     "Nbr_2"    = c(NA, NA),
                     "Temps_2"  = c(NA, NA),
                     "Nb_3"     = c(NA, NA),
                     "Nbr_3"    = c(NA, NA),
                     "Temps_3"  = c(NA, NA),
                     "Nb_4"     = c(NA, NA),
                     "Nbr_4"    = c(NA, NA),
                     "Temps_4"  = c(NA, NA),
                     "Nb_5"     = c(4637, NA),
                     "Nbr_5"    = c(500, NA),
                     "Temps_5"  = c(182, NA),
                     "Nb_6"     = c(3000, NA),
                     "Nbr_6"    = c(30, NA),
                     "Temps_6"  = c(146, NA),
                     "Nb_7"     = c(NA, NA),
                     "Nbr_7"    = c(NA, NA),
                     "Temps_7"  = c(NA, NA),
                     "Nb_8"     = c(NA, NA),
                     "Nbr_8"    = c(NA, NA),
                     "Temps_8"  = c(NA, NA),
                     "Nb_9"     = c(NA, NA),
                     "Nbr_9"    = c(NA, NA),
                     "Temps_9"  = c(NA, NA),
                     "Nb_10"    = c(NA, NA),
                     "Nbr_10"   = c(NA, NA),
                     "Temps_10" = c(NA, NA),
                     "Nb_11"    = c(NA, NA),
                     "Nbr_11"   = c(NA, NA),
                     "Temps_11" = c(NA, NA),
                     "Nb_12"    = c(NA, NA),
                     "Nbr_12"   = c(NA, NA),
                     "Temps_12" = c(NA, NA),
                     stringsAsFactors = FALSE)

La colonne "Nb_X" (le X correspond au mois) correspond à la colonne "Nombre" du data frame "df" cependant il faut récupérer la valeur d'une ligne dont la colonne "Action" est comprise entre 1 et 4.

La colonne "Nbr_X" (le X correspond au mois) correspond à la colonne "Nombre" du data frame "df" cependant il faut récupérer la valeur d'une ligne dont la colonne "Action" est comprise entre 5 et 10.

La colonne "Temps_X" (le X correspond au mois) correspond au total de la colonne "Temps" du data frame "df" est ceci quelque soit la valeur de "Action" il faut seulement cumuler la donnée qui fait partie du même mois.

J'espère avoir exprimer mon problème/besoin assez clairement si quoi que se soit vous paraisses ambiguë n'hésitez pas à m'en informer j'essayerai de vous expliquer plus clairement si besoin.

Cordialement,

Arkning.

Transformation de data frame

Bonjour,

Une proposition :

Code:

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
27
28
29
30
31
df <- data.frame("Periode"  = c("2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01",
                                "2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01", "2019-05-01",
                                "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01",
                                "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01", "2019-06-01",
                                "2019-01-01", "2019-01-01", "2019-01-01", "2019-01-01"),
                 "Action"   = c(1, 2, 3, 4,
                                5, 6, 7, 8, 9, 10,
                                1, 2, 3, 4,
                                5, 6, 7, 8, 9, 10,
                                1, 2, 3, 4),
                 "Nom"      = c("A", "A", "A", "A",
                                "A", "A", "A", "A", "A", "A",
                                "A", "A", "A", "A",
                                "A", "A", "A", "A", "A", "A",
                                "A", "A", "A", "A"),
                 "Sous_Nom" = c("a", "a", "a", "a",
                                "a", "a", "a", "a", "a", "a",
                                "a", "a", "a", "a",
                                "a", "a", "a", "a", "a", "a",
                                "b", "b", "b", "b"),
                 "Nombre"   = c(4637, 4637, 4637, 4637,
                                500, 500, 500, 500, 500, 500,
                                3000, 3000, 3000, 3000,
                                30, 30, 30, 30, 30, 30,
                                2000, 2000, 2000, 2000),
                 "Temps"    = c(5, 5, 120, 20,
                                30, 0, 1, 0, 0, 1,
                                2, 2, 120, 10,
                                10, 0, 1, 0, 0, 1,
                                5, 5, 10, 5),
                 stringsAsFactors = FALSE)

Code:

1
2
3
df$Mois <- as.numeric(substr(df$Periode,6,7))
df$Action_cat <- ifelse(df$Action <= 4,1,2)
df$Mois2 <- df$Mois + df$Action_cat/10

Code:

1
2
3
4
5
6
df_temps <- aggregate(Temps ~ Nom+Sous_Nom+Mois, data = df, FUN = sum)
df_temps <- reshape(data=df_temps[order(df_temps$Mois),],
                         idvar=c("Nom","Sous_Nom"),
                         v.names=c("Temps"),
                         timevar=c("Mois"),
                         direction="wide")

Code:

1
2
3
4
> df_temps
  Nom Sous_Nom Temps.1 Temps.5 Temps.6
1   A        b      25      NA      NA
2   A        a      NA     182     146

Code:

1
2
3
4
5
6
7
8
df_nombre <- df
df_nombre$RepNo <- sequence(rle(as.vector(paste(df$Nom, df$Sous_Nom, df$Mois2)))$lengths)
df_nombre <- df_nombre[which(df_nombre$RepNo == 1),c("Nom","Sous_Nom","Nombre","Mois2")]
df_nombre <- reshape(data=df_nombre[order(df_nombre$Mois2),],
                          idvar=c("Nom","Sous_Nom"),
                          v.names=c("Nombre"),
                          timevar=c("Mois2"),
                          direction="wide")

Code:

1
2
3
4
> df_nombre
   Nom Sous_Nom Nombre.1.1 Nombre.5.1 Nombre.5.2 Nombre.6.1 Nombre.6.2
21   A        b       2000         NA         NA         NA         NA
1    A        a         NA       4637        500       3000         30

Je vous laisse terminer.

Cordialement,

12/07/2019, 10h05
Arkning
Bonjour,

Merci beaucoup de votre solution qui marche à merveille, pour la suite j'ai mergé les data frames df_temps et df_nombre par "Nom" et "Sous_Nom". J'avais juste une dernière question à ce sujet comment puis-je mettre les colonnes dans l'ordre comme celui du data frame "result" ?

Je sais qu'il est possible de changer l'ordre des colonnes de cette manière :
Code:

1 2 df <- df[, c(1, 3, 2, 4, 5)
Mais j'aimerais savoir s'il était possible de lui passer un vecteur ou une autre manière pour organiser les colonnes dans l'ordre croissant des mois et par ordre "Nombre.X.1", "Nombre.X.2", "TempsX".

Dois-je rajouter une colonne qui me permettrait d'effectuer ce tri ?

Cordialement,

Arkning

Réordonner les variables

Bonjour,

Vous pouvez utiliser le nom des variables plutôt que leur numéro :

Code:

1
2
3
4
5
df_tot <- merge(df_nombre,df_temps,by=c("Nom","Sous_Nom"))
listvar <- c("Nom","Sous_Nom","Nombre.1.1","Temps.1",
                              "Nombre.5.1","Nombre.5.2","Temps.5",
                              "Nombre.6.1","Nombre.6.2","Temps.6")
df_tot <- df_tot[, listvar]

Cordialement,