ifelse() dengan operasi vektor

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 48 dari 64.

if menguji satu kondisi. Jika diberi vektor yang berisi beberapa nilai, kode ini berhenti dengan error the condition has length > 1. ifelse(test, yes, no) bekerja untuk setiap elemen dan mengembalikan satu hasil untuk setiap elemen:

temps <- c(12, 25, 31, 18)
print(ifelse(temps > 20, "warm", "cool"))

Output:

[1] "cool" "warm" "warm" "cool"

yes dan no bisa berupa vektor dengan panjang yang sama, sehingga setiap elemen bisa mendapatkan nilai hasil perhitungannya sendiri:

price <- c(40, 120, 75)
final <- ifelse(price > 100, price * 0.9, price)
print(final)

Output:

[1]  40 108  75

Sarang pemanggilan ifelse() untuk lebih dari dua hasil. Kondisi diperiksa secara berurutan untuk setiap elemen:

scores <- c(95, 72, 48, 81)
grade <- ifelse(scores >= 90, "A", ifelse(scores >= 70, "B", "C"))
print(grade)

Output:

[1] "A" "B" "C" "B"

ifelse() berguna untuk kolom baru pada data frame, saat setiap baris memerlukan labelnya sendiri:

df <- data.frame(item = c("tea", "oil"), stock = c(0, 8))
df$status <- ifelse(df$stock == 0, "sold out", "available")
print(df)

Output:

  item stock    status
1  tea     0  sold out
2  oil     8 available

Tantangan

Mudah

Lengkapi shipping(weights). Kembalikan biaya pengiriman setiap paket, digabungkan dengan , : paket dengan berat hingga 1 kg dikenai biaya 4, hingga 5 kg dikenai biaya 9, dan paket yang lebih berat dikenai biaya 2 per kg. Gunakan ifelse(), bukan perulangan.

Kode yang disediakan membaca berat sebagai baris yang dipisahkan dengan koma dan mencetak nilai yang dikembalikan.

Coba sendiri

shipping <- function(weights) {
  # Tulis kodemu di sini
  ""
}

# Kode input/output yang disediakan: biarkan apa adanya
input <- suppressWarnings(readLines(file("stdin")))
cat(shipping(as.numeric(strsplit(input[1], ",")[[1]])), sep = "\n")