Code script R

Version imprimable

23/06/2017, 15h04
Audrey3

Code script R
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:

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 ?

Création de nouvelles variables

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:

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:

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,

27/06/2017, 09h39
Audrey3

Merci !

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:

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:

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 ?

Code script R

Bonjour,

Code:

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,

Citation:

Envoyé par mgdondon

Bonjour,

Code:

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 !!