Discussion :

[alers]

Bonsoir à toutes est à tous,

Je programme en SAS tous les jours et je souhaite me mettre un peu à R. La philosophie n'a pas l'air d'être la même...
J'ai suivi quelques cours trouvés sur internet et je voudrais maintenant faire mes propres trucs, notamment du reporting de résultat avec ReporteRs, mais ça je verrais plus tard.

Là je bloque dès le début ! Je voudrais créer créer quelques variables toutes simples. Vu que j'ai vu que le package dplyr servait à faire pas mal de gestion de données je me suis dis pourquoi ne pas utiliser la fonction mutate() qui apparemment permet de faire des choses intéressantes. Sur un dataset tout simple je veux affecter une valeur selon une condition :

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
 
# Packages installation
install.packages("dplyr")
install.packages("tidyr")
 
# Loading packages
library(dplyr)
library(tidyr)
 
# Dataset - ChickWeight
View(ChickWeight)
 
 
# Class of weight and period
ChickWeight2 <- mutate(ChickWeight,
                       if (Time <= 10) {
                         Period == "Period 1"
                       } else if (Time > 10) {
                         Period == "Period 2"
                       }
                      )

Et je récupère directement ça comme message :

Warning message:
In if (Time <= 10) { :
the condition has length > 1 and only the first element will be used

J'ai cherché un peu sur internet mais je ne trouve pas de solution. Apparemment sur certaines choses ils proposent ifelse mais ça n'a pas l'air de fonctionner non plus.

Pourriez-vous m'aider avec ce petit problème ? Après ça je m'attèlerai à toutes les étapes de dérivations et programmations à coups de merges, transpose, retain...

Merci beaucoup !

alers

[Alpacky]

Hello,

L'erreur vient du fait que tu appliques une condition if sur un vecteur donc R te dit qu'il testera ta condition sur le premier élément du vecteur uniquement.
Il y a qqs autres erreurs dans ton code notamment dans l'utilisation de mutate pour créer la colonne Period et quand tu remplis Period:

Code :

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

1
2
3
4
5
6
7
8
 
ChickWeight2 <- mutate(ChickWeight,
                       if (Time <= 10) {
                         Period == "Period 1"
                       } else if (Time > 10) {
                         Period == "Period 2"
                       }
                      )

Avec mutate tu utilises une syntaxe

Code :

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

 mutate(data, newvar = ...)

Ici newvar est Period. Lorsque tu veux remplir Period selon ta condition tu utilises "==" or pour assigner en R c'est "<-", si tu utilises == tu réalises un test d'égalité.

Utiliser ifelse n'est pas une mauvaise idée, une possibilité ci-après :

Code :

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

1
2
 
ChickWeight2 <- mutate(ChickWeight, Period = ifelse(Time <= 10, yes = "Period 1", no = "Period 2")

en gros ifelse te permets d'appliquer le test Time <= 10 en chaque element de ton vecteur, si la réponse est oui alors tu mets period1 sinon period2.
De plus je nesais pas si tu devrais mettre des espaces dans tes noms de labels (Period_1 ou period1 seront plus simple à gérer je pense).

[tototode]

Bonjour,

Pour compléter la réponse de Alpacky, quand tu es dans un cas binaire comme celui-ci il est plus efficace de créer un vecteur qui contient les résultats d'une des deux conditions et de modifier les valeurs de ce vecteur quand la deuxième condition est vérifiée.

Code :

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

1
2
ChickWeight$Period  <- "Period 1"
ChickWeight$Period[ChickWeight$Time > 10] <- "Period 2"

cdlt