Discussion :

[Audrey3]

Bonjour,

J'ai une variable rassemblant plusieurs modalités (d$Protection)

[1] Casque non intégral Casque intégral;Dorsale;Blouson Casque non intégral
[4] Casque intégral;Blouson Casque intégral Autre
[...]
[28] Casque intégral Autre;Casque intégral Casque non intégral;Blouson
[31] Casque intégral;Dorsale Casque intégral;Dorsale Casque intégral;Blouson


J'aimerais créer à partir de cette variable d'autres variable, notamment :
- une variable "d$Casque" avec comme modalités : Casque intégral / Casque non intégral / Aucun
- une variable "d$Blouson" : Oui / Non
- Une variable "d$Dorsale" : Oui / Non


Du coup, j'ai commencé par écrire ce début de script qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
test <- function(x){
  if (grep(pattern = "Casque intégral", x, value = TRUE, fixed=FALSE))
    typecasque="Integral"  
  else return("pas casque")
  }
 
 x <- d$Protection
 
 test(x)

Quelqu'un pourrait m'aider ?

[mgdondon]

Bonjour,

Il n'est pas utile de faire une fonction si vous n'avez qu'une variable à transformer. Cette proposition utilise le package stringr, voir aussi cette page.

Code :

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

1
2
3
4
5
6
7
8
9
> d <- data.frame(Protection=c("Casque non intégral","Casque intégral;Dorsale;Blouson","Casque non intégral",
+                              "Casque intégral;Blouson","Casque intégral","Autre",
+                              "Casque intégral","Autre;Casque intégral","Casque non intégral;Blouson",
+                              "Casque intégral;Dorsale","Casque intégral;Dorsale","Casque intégral;Blouson"))
> library(stringr)
> d$Casque <- ifelse(str_detect(d$Protection,"Casque intégral"), "Casque intégral", 
+                    ifelse(str_detect(d$Protection,"Casque non intégral"), "Casque non intégral", "Aucun"))
> d$Blouson <- ifelse(str_detect(d$Protection,"Blouson"), "Oui", "Non")
> d$Dorsale <- ifelse(str_detect(d$Protection,"Dorsale"), "Oui", "Non")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
> d
                        Protection              Casque Blouson Dorsale
1              Casque non intégral Casque non intégral     Non     Non
2  Casque intégral;Dorsale;Blouson     Casque intégral     Oui     Oui
3              Casque non intégral Casque non intégral     Non     Non
4          Casque intégral;Blouson     Casque intégral     Oui     Non
5                  Casque intégral     Casque intégral     Non     Non
6                            Autre               Aucun     Non     Non
7                  Casque intégral     Casque intégral     Non     Non
8            Autre;Casque intégral     Casque intégral     Non     Non
9      Casque non intégral;Blouson Casque non intégral     Oui     Non
10         Casque intégral;Dorsale     Casque intégral     Non     Oui
11         Casque intégral;Dorsale     Casque intégral     Non     Oui
12         Casque intégral;Blouson     Casque intégral     Oui     Non

Cordialement,

[Audrey3]

Merci !

[Audrey3]

Bonjour,

J'ai une question concernant toujours sur la même base de données.

J'ai un certain nombre de lésion par individu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
> a=Donnees_1[, c(1,13)]
> head(a)
  numvictime             descrR
1  6020                   
2  042                   
3  116097                   
4  1001                   
5  084                 Membres inférieurs
6  084                              Cou
7  084                          Colonne
8  080                             Cou
9  080                Membres inférieurs
10 080                           Colonne

J'aimerais obtenir une ligne par individu avec une variable par région corporelle

Code :

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

1
2
3
4
5
6
7
8
 
  numvictime             Cou             Membres inférieurs          Colonne
1  6020                   
2  042                   
3  116097                   
4  1001                   
5  084                oui                         oui                              oui
6  080              oui                         oui                              oui

Comment est-ce que je pourrais faire cela ?

[mgdondon]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
> a <- data.frame(numvictime=c(6020,042,116097,1001,084,084,084,080,080,080),
+                 descrR=c("","","","","Membres inférieurs","Cou","Colonne","Cou","Membres inférieurs","Colonne"))
> library(reshape2)
> acast(a,numvictime~descrR,length,value.var="descrR")
         Colonne Cou Membres inférieurs
42     1       0   0                  0
80     0       1   1                  1
84     0       1   1                  1
1001   1       0   0                  0
6020   1       0   0                  0
116097 1       0   0                  0

Cordialement,

[Audrey3]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
> a <- data.frame(numvictime=c(6020,042,116097,1001,084,084,084,080,080,080),
+                 descrR=c("","","","","Membres inférieurs","Cou","Colonne","Cou","Membres inférieurs","Colonne"))
> library(reshape2)
> acast(a,numvictime~descrR,length,value.var="descrR")
         Colonne Cou Membres inférieurs
42     1       0   0                  0
80     0       1   1                  1
84     0       1   1                  1
1001   1       0   0                  0
6020   1       0   0                  0
116097 1       0   0                  0

Cordialement,

PS : Votre message a été enregistré 2 fois. Vous pouvez en effacer une version.

Merci !!