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) |
Partager