ifelse() المتجهة

جزء من قسم المنطق وتدفق التنفيذ في رحلة R على Coddy. الدرس 48 من 64.

if يختبر شرطًا واحدًا. عند إعطائه متجهًا يحتوي على عدة قيم، يتوقف مع الخطأ the condition has length > 1. تعمل ifelse(test, yes, no) عنصرًا تلو الآخر وتُرجع نتيجة واحدة لكل عنصر:

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

الناتج:

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

يمكن أن يكون yes وno متجهين بالطول نفسه، لذا يمكن أن يحصل كل عنصر على قيمته المحسوبة الخاصة:

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

الناتج:

[1]  40 108  75

قم بتداخل استدعاءات ifelse() للحصول على أكثر من نتيجتين. يتم التحقق من الشروط بالترتيب لكل عنصر:

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

الناتج:

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

ifelse() مفيدة لعمود جديد في إطار بيانات، حيث يحتاج كل صف إلى تصنيفه الخاص:

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

الناتج:

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

التحدي

سهل

أكمل shipping(weights). أعد تكلفة الشحن لكل طرد، مع فصلها باستخدام , : تكلفة الطرود التي يصل وزنها إلى 1 كجم هي 4، والتي يصل وزنها إلى 5 كجم هي 9، أما الطرود الأثقل فتبلغ تكلفتها 2 لكل كجم. استخدم ifelse() وليس حلقة تكرار.

يقرأ الكود المُقدَّم الأوزان كسطر مفصول بفواصل، ثم يطبع القيمة المُعادة.

جرّب بنفسك

shipping <- function(weights) {
  # اكتب الكود الخاص بك هنا
  ""
}

# كود الإدخال/الإخراج المُزوَّد: أبقِه كما هو
input <- suppressWarnings(readLines(file("stdin")))
cat(shipping(as.numeric(strsplit(input[1], ",")[[1]])), sep = "\n")