IF, ELSE, ELSE IF Instruction dans R

L'instruction if else

Une instruction if-else est un excellent outil pour le développeur qui tente de renvoyer une sortie basée sur une condition. En R, la syntaxe est :

if (condition) {
    Expr1 
} else {
    Expr2
}

Nous voulons examiner si une variable stockée sous « quantité » est supérieure à 20. Si la quantité est supérieure à 20, le code affichera « Vous avez vendu beaucoup ! » sinon Pas assez pour aujourd'hui.

# Create vector quantity
quantity <-  25
# Set the is-else statement
if (quantity > 20) {
    print('You sold a lot!')
} else {
    print('Not enough for today')  
}

Sortie :

## [1] "You sold a lot!"

Note: Assurez-vous d'écrire correctement les retraits. Un code avec plusieurs conditions peut devenir illisible lorsque les indentations ne sont pas dans la bonne position.

L'instruction else if

Nous pouvons personnaliser davantage le niveau de contrôle avec l'instruction else if. Avec elif, vous pouvez ajouter autant de conditions que nous le souhaitons. La syntaxe est :

if (condition1) { 
    expr1
    } else if (condition2) {
    expr2
    } else if  (condition3) {
    expr3
    } else {
    expr4
}

Nous souhaitons savoir si nous avons vendu des quantités comprises entre 20 et 30. Si nous le faisons, alors la pinte moyenne par jour. Si la quantité est > 30, nous imprimons Quelle belle journée !, sinon Pas assez pour aujourd'hui.

Vous pouvez essayer de modifier le montant de la quantité.

# Create vector quantiy
quantity <-  10
# Create multiple condition statement
if (quantity <20) {
      print('Not enough for today')
} else if (quantity > 20  &quantity <= 30) {
     print('Average day')
} else {
      print('What a great day!')
}

Sortie :

## [1] "Not enough for today"

2 Exemple:

La TVA a un taux différent selon le produit acheté. Imaginez que nous ayons trois types de produits différents avec une TVA différente appliquée :

Nous pouvons écrire une chaîne pour appliquer le taux de TVA correct au produit acheté par un client.

category <- 'A'
price <- 10
if (category =='A'){
  cat('A vat rate of 8% is applied.','The total price is',price *1.08)  
} else if (category =='B'){
    cat('A vat rate of 10% is applied.','The total price is',price *1.10)  
} else {
    cat('A vat rate of 20% is applied.','The total price is',price *1.20)  
}

Sortie :

# A vat rate of 8% is applied. The total price is 10.8