Discussion :

[davidhac]

Bonjour à tous,

Voici un exemple de mon dataframe :

Code :

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

1
2
3
4
5
 
df <- data.frame(parcelle = c(11, 12, 13, 14, 15, 16),
                 nb1  = c(0,1,3,0,4,9),
                 nb2 = c(5,4,1,5,6,0),
                 nb3 = c(1,0,2,0,6,0))

J'aimerai effectuer une boucle qui teste les colonnes nb1, nb2 et nb3 et qui retranscrit la valeur (soit 0, soit 1) dans une nouvelle colonne :

si (nb1 + nb 2) > 4 alors 1
ou si (nb1 + nb 2) > 2 et que nb3 >= 1 alors 1
ou si nb3>=2 alors 1
sinon 0


Voici ce vers quoi j'aimerai aboutir :

Code :

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

1
2
3
4
5
6
 
df2 <- data.frame(parcelle = c(11, 12, 13, 14, 15, 16),
                 nb1  = c(0,1,3,0,4,9),
                 nb2 = c(5,4,1,5,6,0),
                 nb3 = c(1,0,2,0,6,0),
                 resultat = c(0,1,1,1,1,0))

La colonne "resultat" correspond à la nouvelle colonne où la valeur du test y est retranscrite.

Merci.

Cordialement,
David

[marou1991]

Hello,

Ce bout de code peut t'aider à construire ta variable.

Code :

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

1
2
3
4
5
 
df$res <- ifelse( ( df$nb1 + df$nb2 ) > 4 
                      || (( df$nb1 + df$nb2 ) > 2 & df$nb3 >= 1) 
                      || df$nb3 >=2 
                  , 1 ,0   )

[davidhac]

Merci pour ce premier bout de code, ça à l'air de fonctionner.

Plus qu'à trouver le moyen de pouvoir effectuer ce code ligne par ligne. Pour l'instant cette partie de code effectue le test uniquement sur la première ligne et applique le résultat obtenu sur l'ensemble de la colonne.

Si vous avez une idée, je suis preneur....

Merci.


Bonne journée,
David

[mgdondon]

Bonjour,

Les opérations s'effectuent en parallèle sur les différentes lignes. Il faut une seule barre verticale pour l'opérateur OU.

Par ailleurs votre dataframe exemple n'est pas très satisfaisant puisqu'il ne permet pas de tester les différents cas.

Je vous propose celui-ci :

Code :

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

1
2
3
4
5
6
7
8
> df <- data.frame(parcelle = c(11, 12, 13, 14),
+                  nb1  = c(0,1,0,1),
+                  nb2 = c(5,2,0,2),
+                  nb3 = c(1,1,2,0))
> df$res <- ifelse((df$nb1 + df$nb2) > 4 
+                   | ((df$nb1 + df$nb2) > 2 & df$nb3 >= 1) 
+                   | df$nb3 >=2
+                   ,1 ,0)

Code :

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

1
2
3
4
5
6
> df
  parcelle nb1 nb2 nb3 res
1       11   0   5   1   1   --> nb1+nb2 > 4
2       12   1   2   1   1   --> nb1+nb2 > 2 & nb3 >= 1
3       13   0   0   2   1   --> nb3 >= 2
4       14   1   2   0   0   --> nb1+nb2 > 2 mais nb3 = 0

Cordialement,

[davidhac]

Super, merci beaucoup!

Bonne journée à vous,
David