Pernyataan IF, ELSE, ELSE IF pada R

Pernyataan if else

Pernyataan if-else adalah alat yang hebat bagi pengembang yang mencoba mengembalikan keluaran berdasarkan suatu kondisi. Di R, sintaksnya adalah:

if (condition) {
    Expr1 
} else {
    Expr2
}

Pernyataan Jika Lain

Kami ingin memeriksa apakah variabel yang disimpan sebagai "kuantitas" lebih dari 20. Jika kuantitas lebih besar dari 20, kode akan mencetak "Anda menjual banyak!" jika tidak, Tidak cukup untuk hari ini.

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

Keluaran:

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

Note: Pastikan Anda menulis lekukan dengan benar. Kode dengan beberapa kondisi bisa menjadi tidak terbaca jika lekukannya tidak pada posisi yang benar.

Pernyataan else if

Kita selanjutnya dapat menyesuaikan level kontrol dengan pernyataan else if. Dengan elif, Anda dapat menambahkan kondisi sebanyak yang kita inginkan. Sintaksnya adalah:

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

Kami tertarik untuk mengetahui apakah kami menjual dalam jumlah antara 20 dan 30. Jika ya, maka rata-rata pint per hari. Jika jumlahnya > 30, kami akan mencetak Hari yang luar biasa!, jika tidak, Tidak cukup untuk hari ini.

Anda dapat mencoba mengubah jumlah kuantitasnya.

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

Keluaran:

## [1] "Not enough for today"

Contoh 2:

PPN memiliki tarif yang berbeda-beda sesuai dengan produk yang dibeli. Bayangkan kita memiliki tiga jenis produk berbeda dengan penerapan PPN berbeda:

Kategori Produk PPN
A Buku, majalah, koran, dll. 8%
B Sayuran, daging, minuman, dll. 10%
C Kaos oblong, jean, celana, dll. 20%

Kita dapat menulis rantai untuk menerapkan tarif PPN yang benar pada produk yang dibeli pelanggan.

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

Keluaran:

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