Discussion :

[krefkref]

Bonjour à tous,

J'ai un petit problème pour gérer une base assez importante. Je dispose d'une extraction en lignes et voudrais transformer les modalités de la variables LIBELLE en noms de colonnes avec les valeurs (RESULTAT) correspondantes.

ID1 DDN LIBELLE RESULTAT
1 17/04/1990 Fumeur Oui
1 17/04/1990 Sexe 1
1 17/04/1990 Niveau 2
2 16/05/1987 Sexe 1
3 14/02/1980 Fumeur Oui
3 14/02/1980 Sexe 1
3 14/02/1980 Niveau 1
...

ID1 DDN Fumeur Sexe Niveau
1 17/04/1990 Oui 1 2
2 16/05/1987 1
3 14/02/1980 Oui 1 1

Merci pour votre aide

[A. D.]

Bonjour,

Une solution à l'aide des packages "dplyr" et "tidyr" :

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
 
D <- data.frame(ID1 = c(1, 1, 1, 2, 3, 3, 3), DDN = c("17/04/1990", "17/04/1990", "17/04/1990", "16/05/1987", "14/02/1980", "14/02/1980", "14/02/1980"), LIBELLE = c("Fumeur", "Sexe", "Niveau", "Sexe", "Fumeur", "Sexe", "Niveau"), RESULTAT = c("Oui", "1", "2", "1", "Oui", "1", "1"))
D
  ID1        DDN LIBELLE RESULTAT
1   1 17/04/1990  Fumeur      Oui
2   1 17/04/1990    Sexe        1
3   1 17/04/1990  Niveau        2
4   2 16/05/1987    Sexe        1
5   3 14/02/1980  Fumeur      Oui
6   3 14/02/1980    Sexe        1
7   3 14/02/1980  Niveau        1
 
 
library(dplyr)
library(tidyr)
 
Dnew <- D %>% spread(LIBELLE, RESULTAT)
Dnew
  ID1        DDN Fumeur Niveau Sexe
1   1 17/04/1990    Oui      2    1
2   2 16/05/1987   <NA>   <NA>    1
3   3 14/02/1980    Oui      1    1

Bonne continuation


Cordialement,


A.D.

[krefkref]

Excellent, je ne connaissais pas cette fonction !
A installer également :

Code :

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

1
2
3
4
library(DBI)
library(assertthat)
library(magrittr)
library(R6)

Merci encore