JEŚLI, ELSE, ELSE JEŻELI Instrukcja w R

Instrukcja if else

Instrukcja if-else jest doskonałym narzędziem dla programistów próbujących zwrócić wynik na podstawie warunku. W R składnia jest następująca:

if (condition) {
    Expr1 
} else {
    Expr2
}

Jeśli jest inaczej, oświadczenie

Chcemy sprawdzić, czy zmienna zapisana jako „ilość” jest większa niż 20. Jeśli ilość jest większa niż 20, kod wydrukuje „Sprzedałeś dużo!”, w przeciwnym razie Za mało na dziś.

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

Wyjście:

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

Note: Upewnij się, że poprawnie wpisałeś wcięcia. Kod z wieloma warunkami może stać się nieczytelny, gdy wcięcia nie będą w prawidłowej pozycji.

Instrukcja else if

Możemy dodatkowo dostosować poziom kontroli za pomocą instrukcji else if. Dzięki elif możesz dodać dowolną liczbę warunków. Składnia jest następująca:

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

Interesuje nas, czy sprzedaliśmy ilości pomiędzy 20 a 30. Jeśli tak, to pinta Średnia dzienna. Jeśli ilość jest > 30, drukujemy Co za wspaniały dzień!, w przeciwnym razie Nie wystarczy na dziś.

Możesz spróbować zmienić ilość.

# 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!')
}

Wyjście:

## [1] "Not enough for today"

2 przykład:

Podatek VAT ma różną stawkę w zależności od zakupionego produktu. Wyobraź sobie, że mamy trzy różne rodzaje produktów z różnymi stawkami podatku VAT:

Kategorie Produkty VAT
A Książka, czasopismo, gazeta itp. 8%
B Warzywa, mięso, napoje itp. 10%
C T-shirt, dżinsy, spodnie itp. 20%

Możemy napisać łańcuch, który zastosuje właściwą stawkę VAT na zakupiony przez klienta produkt.

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)  
}

Wyjście:

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