Discussion :

[kataway]

Bonjour à tous,

Je découvre R et je suis en difficultés pour créer une variable "dépression au cours d'au moins un des trois temps".
Je m'explique :

J'ai constitué un sous-groupe data2 de mon dataframe.
J'ai les variables data2$EPDSseuil12_4 --> dépression au 4ème mois, data2$EPDSseuil12_8-->dépression au 8ème mois, et data2$EPDSseuil12_PP ->dépression après l'accouchement.

Je souhaite créer la variable dépression si au moins un des 3 temps est positif.

J'ai tenté :

Code :

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

1
2
3
4
5
if(data2$EPDSseuil12_4=1 | data2$EPDSseuil12_8=1 |data2$EPDSseuil12_PP=1){data2$depression = 1}
 
data2$depression <- ifelse((data2$EPDSseuil12_4 == "oui" | data2$EPDSseuil12_8 =="oui"| data2$EPDSseuil12_PP =="oui"),1,0)  
 
data2$depression <- ifelse((data2$EPDSseuil12_4 ==1 | data2$EPDSseuil12_8 ==1| data2$EPDSseuil12_PP ==1),1,0)

Mais aucun ne marche.

Auriez-vous des idées?

Je vous remercie par avance.

[A. D.]

Bonjour,

A priori l'utilisation du "ifelse" me semble pertinente.

Le problème vient peut-être du contenu et/ou format de vos variables : les valeurs sont-elles 1 ou "oui" ? Quels sont les types des variables considérées (numeric, factor, ...) ?

Et enfin, quand vous dîtes que "ça ne marche" pas, c'est-à-dire ? Avez-vous un message d'erreur quelconque ? Que contient votre variable "data2$depression" après exécution ?


Cordialement,


A.D.

[faubry]

Code :

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

if(data2$EPDSseuil12_4=1 | data2$EPDSseuil12_8=1 |data2$EPDSseuil12_PP=1){data2$depression = 1}

C'est normal que cela ne marche pas, le code est faux :
1) data2$EPDSseuil12_4=1 est une affectation de valeur et non un test logique,
2) l'argument d'un if est une valeur non un vecteur contrairement à ifelse
3) if est préférable d'utiliser ||
=> le if doit être dans une boucle d'où la justification du ifelse.

Pour les autres codes, d'abord répondre aux questions de A.D.

[kataway]

Bonjour,

Merci de vos réponses. Je débute sur R alors je ne comprends pas tous les termes.

1)
Mes variables sont des facteurs

Code :

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

1
2
str(data2$EPDSseuil12_4)
Factor w/ 2 levels "Non","Oui": 1 1 1 1 1 1 1 1 1 1 ...

Mais je voulais remplacer les "non" en "0" et "oui" en "1" mais la formule ne semble pas marcher :

Code :

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

1
2
3
data2$EPDSseuil12_4 <- ifelse(data2$EPDSseuil12_4_cor == "non",0,1)
Error in `$<-.data.frame`(`*tmp*`, EPDSseuil12_4, value = logical(0)) : 
  replacement has 0 rows, data has 253

--> Je veux bien de l'aide sur cette première partie


2) Pour la formule cela m'affiche cela (considérant non et oui vu que je n'ai pas réussi à convertir en 0 et 1)

Code :

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

1
2
3
4
5
6
data2$depression <- ifelse((data2$EPDSseuil12_4 == "oui" | data2$EPDSseuil12_8 =="oui"| data2$EPDSseuil12_PP =="oui"),1,0)
 
> table(data2$depression)
 
  0 
153

Merci de votre aide

[kataway]

Je me suis trompée dans la première partie de ma réponse précédent, j'ai marqué un "cor" en trop mais cela ne marche pas quand même quand je l'enlève.

Code :

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

1
2
3
4
5
data2$EPDSseuil12_4 <- ifelse(data2$EPDSseuil12_4 == "Non",0,1)
> table(data2$EPDSseuil12_4)
 
  1 
253

[faubry]

1) R est sensible à la casse donc "non" et "Non" sont différents.
2) Que donne donne table( data2$EPDSseuil12_4) avant la tentative de transformation ? Cette variable est un facteur à deux niveaux mais un seul niveau est peut-être peuplé. str n'est pas suffisant pour le déterminer car si la fonction décrit la variable, elle ne donne que les premières valeurs du vecteur. De plus, une solution est d'utiliser le codage interne du facteur puisqu'en absence de réordonnancement, "Non" est le premier niveau et "Oui", le second. Donc, la solution devient :

Code :

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

data2$EPDSseuil12_4 <- as.numeric( data2$EPDSseuil12_4) - 1