Discussion :

[preliator]

Bonjour,

Je dispose d'un dataframe qui représente :
- un identifiant de carreau
- une année (2006 ou 2012)
- une colonne de facteurs (A, B, ou C)
- une valeur numérique

Voici un code reproductible qui génère un dataframe semblable au miens :

Code :

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

1
2
 
df = data.frame(id_carreau = c("car1", "car1", "car1", "car1", "car2", "car2"), annee = c("2006", "2006", "2012", "2006", "2012", "2012"), facteur = c("A", "B", "A", "C", "A", "C"))

Ce dernier se présente de cette forme :
https://zupimages.net/viewer.php?id=20/47/wv3w.png

On remarque que les modalités de la colonne "facteur" sont répartis de manière aléatoire dans les années de mes carreaux. Certaines années dans certains carreaux, les 3 facteurs n'apparaissent pas. Je voudrais trouver un moyen d'afficher systématiquement tous les facteurs pour chaque année, et pour chaque carreau. L'idée, c'est d'arriver à cette forme :
https://zupimages.net/viewer.php?id=20/47/9pkk.png

Evidement, les valeurs non renseignées deviennent des NA.

Est-il possible de faire ceci dans R ?

Un grand merci.

[mgdondon]

Bonjour,

En jouant avec les transpositions :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
df1 <- read.table(header = TRUE, text = "
id_carreau annee facteur valeur
      car1  2006       A     22
      car1  2006       B     36
      car1  2012       A     45
      car1  2006       C     12
      car2  2012       A     45
      car2  2012       C     22")
 
id_carreau <- unique(df1$id_carreau)
annee <- unique(df1$annee)
df_cross <- tidyr::crossing(id_carreau, annee)
df_cross <- as.data.frame(df_cross)
df_cross
#>   id_carreau annee
#> 1       car1  2006
#> 2       car1  2012
#> 3       car2  2006
#> 4       car2  2012
 
df2 <- reshape2::dcast(df1, id_carreau + annee ~ facteur, value.var = "valeur")
df2 <- merge(df2, df_cross, by = c("id_carreau", "annee"), all = TRUE)
df2
#>   id_carreau annee  A  B  C
#> 1       car1  2006 22 36 12
#> 2       car1  2012 45 NA NA
#> 3       car2  2006 NA NA NA
#> 4       car2  2012 45 NA 22
 
df3 <- reshape2::melt(df2,
                      id.vars = c("id_carreau", "annee"),
                      mesure.vars = c("A":"C"),
                      variable.name = "facteur",
                      value.name = "valeur")
df3 <- df3[order(df3$id_carreau, df3$annee, df3$facteur),]
row.names(df3) <- 1:nrow(df3)
df3
#>    id_carreau annee facteur valeur
#> 1        car1  2006       A     22
#> 2        car1  2006       B     36
#> 3        car1  2006       C     12
#> 4        car1  2012       A     45
#> 5        car1  2012       B     NA
#> 6        car1  2012       C     NA
#> 7        car2  2006       A     NA
#> 8        car2  2006       B     NA
#> 9        car2  2006       C     NA
#> 10       car2  2012       A     45
#> 11       car2  2012       B     NA
#> 12       car2  2012       C     22
 
# Created on 2020-11-21 by the reprex package (v0.3.0)

Cordialement,

[preliator]

Bonjour, un grand merci pour votre réponse qui répond complètement mon problème