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