Manipulation et transformation des données

Bonjour,

J'ai un jeu de données de la forme suivante (voir tab1 ci-joint)Pièce jointe 426852Pièce jointe 426853 et je voulais construire le tableau de la forme suivante (voir l'image tab_build ci_joint). Comment peux-je s'il vous plaît faire sous R à l'aide des fonctions? Merci à vous.

Bien cordialement.

Bonjour,

c'est possible avec la fonction reshape mais tu peux obtenir un résultat plus propre directement avec les fonctions du package tidyr (et magrittr pour "%>%") :

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

# un exemple tab <- structure(list(CODE_IND = c("id1", "id2", "id3"), A.montant1 = c("V", "V21", "V31"), A.montant2 = c("X11", "X21", "X31"), B.montant1 = c("V12", "V22", "V32"), B.montant2 = c("X12", "X22", "X32"), C.montant1 = c("V13", "Na", "V33"), C.montant2 = c("X13", "Na", "X33")), class = "data.frame", row.names = c(NA, -3L))   library(magrittr) # ou library(dplyr) qui fait appel a magrittr library(tidyr) tab %>% gather(key = "key", "value", -1) %>% separate(key, c("RUBRIQUES", "Montant")) %>% spread(Montant, value)   CODE_IND RUBRIQUES montant1 montant2 1 id1 A V X11 2 id1 B V12 X12 3 id1 C V13 X13 4 id2 A V21 X21 5 id2 B V22 X22 6 id2 C Na Na 7 id3 A V31 X31 8 id3 B V32 X32 9 id3 C V33 X33

---

cdlt

Bonjour,

Merci pour votre réponse,en fait, j'ai inversé l'ordre des tableaux je suis désolé, ce que je veux c'est à partir de deuxième tableau dans la discussion (nommé tab1) construire le premier tableau (nommé tab_build) ?

re,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

tab2 <- structure(list(CODE_IND = c("id1", "id1", "id1", "id2", "id2", "id2", "id3", "id3", "id3"), RUBRIQUES = c("A", "B", "C", "A", "B", "C", "A", "B", "C"), montant1 = c("V", "V12", "V13", "V21", "V22", "Na", "V31", "V32", "V33"), montant2 = c("X11", "X12", "X13", "X21", "X22", "Na", "X31", "X32", "X33")), class = "data.frame", row.names = c(NA, -9L))   reshape(tab2, v.names = c("montant1", "montant2"), idvar = "CODE_IND", timevar = "RUBRIQUES", direction = "wide") # ou tab2 %>% gather("key", "value", -(1:2)) %>% unite(var, c("key", "RUBRIQUES"), sep = ".") %>% spread(var, value, -1)

---

cdlt