Az if else utasítás
Az if-else utasítás nagyszerű eszköz a fejlesztő számára, aki egy feltétel alapján próbál kimenetet visszaadni. R-ben a szintaxis a következő:
if (condition) {Expr1} else {Expr2}
Meg akarjuk vizsgálni, hogy a "mennyiség" néven tárolt változó meghaladja-e a 20. Ha a mennyiség meghaladja a 20 értéket, a kód kinyomtatja: "Sokat értékesítettél!" különben Ma nem elég.
# Create vector quantityquantity <- 25# Set the is-else statementif (quantity > 20) {print('You sold a lot!')} else {print('Not enough for today')}
Kimenet:
## [1] "You sold a lot!"
Megjegyzés : Győződjön meg róla, hogy helyesen írta-e a behúzásokat. A több feltételt tartalmazó kód olvashatatlanná válhat, ha a behúzások nincsenek megfelelő helyzetben.
A másik, ha nyilatkozat
A testreszabási szintet tovább testreszabhatjuk az else if utasítással. Az elif segítségével annyi feltételt adhat hozzá, amennyit csak akarunk. A szintaxis a következő:
if (condition1) {expr1} else if (condition2) {expr2} else if (condition3) {expr3} else {expr4}
Érdekel, hogy 20 és 30 közötti mennyiségeket adtunk-e el. Ha mégis, akkor a pint Átlagos nap. Ha a mennyiség> 30, akkor kinyomtatjuk, milyen nagyszerű nap !, különben a mai napra nem elég.
Megpróbálhatja megváltoztatni a mennyiség mennyiségét.
# Create vector quantiyquantity <- 10# Create multiple condition statementif (quantity <20) {print('Not enough for today')} else if (quantity > 20 &quantity <= 30) {print('Average day')} else {print('What a great day!')}
Kimenet:
## [1] "Not enough for today"
2. példa:
Az áfa eltérő mértékű a vásárolt terméktől függően. Képzelje el, hogy három különböző termékünk van, eltérő áfával:
| Kategóriák | Termékek | áfa |
|---|---|---|
| A | Könyv, folyóirat, újság stb. | 8% |
| B | Zöldség, hús, ital stb. | 10% |
| C | Póló, farmer, nadrág, stb. | 20% |
Írhatunk egy láncot, hogy a helyes áfa-kulcsot alkalmazzuk az ügyfél által vásárolt termékre.
category <- 'A'price <- 10if (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)}
Kimenet:
# A vat rate of 8% is applied. The total price is 10.8