IF, ELSE, ELSE IF avaldus R-is

if else lause R-is

An kui veel Lause käivitab ühe koodiploki, kui tingimus on TÕENE, ja teise, kui see on VÄÄR. R-is on süntaks järgmine:

if (condition) {
    Expr1 
} else {
    Expr2
}

Kontrolli, kas muutuja nimega quantity on suurem kui 20. Kui on, siis kuvab kood teate „Müüsid palju!“, vastasel juhul „Tänaseks päevaks mitte piisavalt“.

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

Väljund:

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

märkusedTaandamine ei muuda seda, kuidas R koodi käivitab, kuid järjepidev taanemine on see, mis hoiab pika tingimuste ahela loetavana. Pane tähele, et sulgev sulg ja märksõna „else” peavad asuma samal real, vastasel juhul käsitleb R if-plokki täielikuna ja annab vea.

Else if lause R-is

Keti edasised testid koos muidu kuiR-il puudub märksõna elif, st PythonR-is kirjutad need kaks sõna eraldi ja võid lisada nii palju harusid kui vaja. Süntaks on:

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

Oletame, et soovite kolme tulemust: alla 20 pildi „Tänaseks päevaks ei piisa“, 20–30 pildi „Keskmine päev“ ja üle 30 pildi „Milline suurepärane päev!“.

Võite proovida kogust muuta.

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

Väljund:

## [1] "Not enough for today"

Näide 2:

Käibemaksumäärad erinevad tootekategooriate lõikes. Kujutage ette kolme kategooriat, millel kõigil on oma määr:

Elukorral rakendab ahel õiget määra kõigele, mida klient ostis:

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

Väljund:

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

Vektoriseeritud funktsioon ifelse() R-is

if-lause käsitleb täpselt ühte väärtust. Andke sellele vektor ja R 4.2 või uuem versioon tekitab vea, kuna tingimus peab olema üks TRUE või FALSE. ifelse() lahendab selle, testides iga elementi korraga ja tagastades sama pikkusega vektori.

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

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

Väljund:

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

Kolm argumenti on test, tagastatud väärtus, kui test on TÕENE, ja tagastatud väärtus, kui see on VÄÄR. Kõik kolm taaskasutatakse sama pikkusega.

Funktsiooni ifelse() pesastamine reprodutseerib else if ahela terve vektori ulatuses:

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

Tasub teada kahte piirangut. ifelse() jätab tulemusest välja sellised atribuudid nagu faktori tasemed ja kuupäevaklass ning hindab iga elemendi puhul mõlemat haru, seega on see raiskamine, kui üks haru on kallis. Alternatiiv on dplyr. juhtum_millal() väldib pesastamist täielikult ja hoiab tüübid puutumata:

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

R-i lüliti() lause

Kui iga haru kontrollib sama muutuja võrdsust, muutub pikk else if ahel raskesti loetavaks. switch() asendab selle ühe otsinguga.

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)

Selle käitumist reguleerivad kolm reeglit:

• Märkide argumendi korral leiab switch() nime täpselt. Osalist vastet ega mustri vastet ei leita.
• Vaikimisi toimib nimetu viimane element. Ilma selleta tagastab vasteta väärtus nähtamatult NULL-i, mis on vaiksete vigade levinud allikas.
• Täisarvulise argumendi korral valib switch() hoopis positsiooni järgi: switch(2, “a”, “b”, “c”) tagastab “b”.

Täpsete vastete leidmiseks fikseeritud väärtuste komplekti korral kasutage funktsiooni switch() ja hoidke else if alles vahemike ja liittingimuste puhul, mida switch() ei suuda väljendada. Tingimuse korduvaks rakendamiseks järjestusele kombineerige see funktsiooniga silmuse jaoks või samas silmus.

loogiline OperaR-tingimustes olevad tegurid

Tingimuse loovad operaatorid käituvad üksteisest erinevalt ja see erinevus on oluline.

Miks lühis on oluline. Topeltvorm peatub kohe, kui vastus on paigas, seega paremat poolt ei hinnata kunagi, kui vasak pool on juba tulemuse otsustanud. See teeb kaitsva lause kirjutamise ohutuks:

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

Võrdlemine mitme väärtusega. Võrdsustestide aheldamise asemel kasutage funktsiooni %in%, mis on nii lühem kui ka raskem valesti sisestada:

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

Veel üks viimane hoiatus: üks võrdusmärk määrab väärtuse, mitte ei võrdle. Kirjuta tingimuse sisse alati ==.

Tingimuslaused R-is: kiirjuhend

Kõik selles õpetuses kasutatud konstruktsioonid on loetletud allpool:

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

KKK