IF, ELSE, ELSE IF izjava u R

Naredba if else u R-u

An ako drugo Naredba izvršava jedan blok koda kada je uvjet TRUE, a drugi kada je FALSE. U R-u sintaksa je:

if (condition) {
    Expr1 
} else {
    Expr2
}

Provjerite je li varijabla pod nazivom količina veća od 20. Ako jest, kod ispisuje „Prodali ste puno!“, inače ispisuje „Nedovoljno za danas“.

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

Izlaz:

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

bilješkeUvlačenje ne mijenja način na koji R izvršava kod, ali dosljedno uvlačenje održava dugi lanac uvjeta čitljivim. Također imajte na umu da zatvarajuća zagrada i ključna riječ else moraju biti u istom retku, inače R tretira if blok kao dovršen i izbacuje grešku.

Naredba else if u R-u

Lančajte daljnje testove s inače akoR nema ključnu riječ elif, tj. Python; u R-u pišete dvije riječi odvojeno i možete dodati onoliko grana koliko vam je potrebno. Sintaksa je:

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

Pretpostavimo da želite tri ishoda: ispod 20 otisaka „Nedovoljno za danas“, između 20 i 30 otisaka „Prosječan dan“ i iznad 30 otisaka „Kakav sjajan dan!“.

Možete pokušati promijeniti količinu količine.

# Create the variable quantity
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!')
}

Izlaz:

## [1] "Not enough for today"

Primjer 2:

Stope PDV-a razlikuju se ovisno o kategoriji proizvoda. Zamislite tri kategorije, svaka sa svojom stopom:

Inače, lanac primjenjuje ispravnu stopu na sve što je kupac kupio:

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

Izlaz:

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

Vektorizirana funkcija ifelse() u R-u

Naredba if obrađuje točno jednu vrijednost. Ako joj date vektor, R 4.2 ili noviji će izazvati grešku jer uvjet mora biti jedan TRUE ili FALSE. ifelse() rješava ovaj problem testiranjem svakog elementa odjednom i vraćanjem vektora iste duljine.

quantities <- c(10, 25, 40, 18)

# if cannot do this
result <- ifelse(quantities > 20, 'You sold a lot!', 'Not enough for today')
result

Izlaz:

## [1] "Not enough for today" "You sold a lot!"      "You sold a lot!"      
## [4] "Not enough for today"

Tri argumenta su test, vrijednost vraćena kada je test TRUE i vrijednost vraćena kada je FALSE. Sva tri se recikliraju na istu duljinu.

Ugniježđivanjem funkcije ifelse() reproducira se lanac else if preko cijelog vektora:

ifelse(quantities < 20, 'Not enough for today',
    ifelse(quantities <= 30, 'Average day', 'What a great day!'))

Vrijedi znati dva ograničenja. ifelse() iz rezultata izbacuje atribute poput razina faktora i klase datuma te procjenjuje obje grane za svaki element, pa je rasipno kada je jedna grana skupa. Alternativa dplyr-u slučaj_kada() u potpunosti izbjegava ugniježđivanje i čuva tipove netaknutima:

library(dplyr)
case_when(
    quantities < 20  ~ 'Not enough for today',
    quantities <= 30 ~ 'Average day',
    TRUE             ~ 'What a great day!'
)

Naredba switch() u R-u

Kada svaka grana testira istu varijablu na jednakost, dugi else if lanac postaje teško čitljiv. switch() ga zamjenjuje jednom pretragom.

category <- 'A'
price <- 10

vat <- switch(category,
    'A' = 1.08,
    'B' = 1.10,
    'C' = 1.20,
    1.20)          # the unnamed last value is the default

cat('The total price is', price * vat)

Tri pravila reguliraju njegovo ponašanje:

• S argumentom znaka, switch() točno odgovara nazivu. Nema djelomičnog podudaranja niti podudaranja uzoraka.
• Neimenovani završni element djeluje kao zadani. Bez njega, neusklađena vrijednost nevidljivo vraća NULL, što je čest izvor tihih grešaka.
• S cijelim brojem argumenta, switch() umjesto toga odabire po poziciji: switch(2, “a”, “b”, “c”) vraća “b”.

Koristite switch() za točna podudaranja s fiksnim skupom vrijednosti, a else if zadržite za raspone i složene uvjete koje switch() ne može izraziti. Da biste uvjet više puta primijenili na niz, kombinirajte ga s za petlju ili dok petlje.

logičan Operatori u R uvjetima

Operatori koji izgrađuju uvjet ponašaju se različito jedan od drugoga, a ta razlika je važna.

Zašto je kratki spoj važan. Dvostruki oblik se zaustavlja čim je odgovor određen, tako da se desna strana nikada ne procjenjuje kada lijeva već određuje ishod. To omogućuje sigurno pisanje zaštitne klauzule:

# Safe: length() is checked before x[1] is touched
if (length(x) > 0 && x[1] > 10) print('ok')

Uspoređivanje s nekoliko vrijednosti. Posegnite za %in% umjesto ulančavanja testova jednakosti, što je i kraće i teže ih je pogrešno napisati:

if (category %in% c('A', 'B')) {
    print('Reduced VAT rate applies')
}

Još jedno upozorenje: jedan znak jednakosti dodjeljuje vrijednost, ne uspoređuje. Uvijek pišite == unutar uvjeta.

Uvjetne naredbe u R-u: Kratki vodič

Svaka konstrukcija korištena u ovom tutorijalu navedena je u nastavku:

if (cond) { a } else { b }

if (c1) { a } else if (c2) { b } else { c }

ifelse(test, yes, no)

case_when(c1 ~ a, c2 ~ b, TRUE ~ c)

switch(x, "A" = 1, "B" = 2, 0)

if (x %in% c("A", "B")) { }

Pitanja i odgovori