ifelse() vettoriale

Fa parte della sezione Logica e flusso del percorso R di Coddy. Lezione 48 di 64.

if verifica una condizione. Se gli viene fornito un vettore con diversi valori, si interrompe con l'errore the condition has length > 1. ifelse(test, yes, no) opera elemento per elemento e restituisce un risultato per ogni elemento:

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

Output:

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

yes e no possono essere vettori della stessa lunghezza, quindi ogni elemento può ottenere il proprio valore calcolato:

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

Output:

[1]  40 108  75

Annida chiamate a ifelse() per più di due risultati. Le condizioni vengono verificate in ordine per ogni elemento:

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() è utile per una nuova colonna di un data frame, in cui ogni riga ha bisogno della propria etichetta:

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

Sfida

Facile

Completa shipping(weights). Restituisci il costo di spedizione di ogni pacco, uniti con , : i pacchi fino a 1 kg costano 4, fino a 5 kg costano 9 e i pacchi più pesanti costano 2 per kg. Usa ifelse(), non un ciclo.

Il codice fornito legge i pesi come una riga separata da virgole e stampa il valore restituito.

Provalo tu

shipping <- function(weights) {
  # Scrivi il tuo codice qui
  ""
}

# Codice di input/output fornito: lascialo così com'è
input <- suppressWarnings(readLines(file("stdin")))
cat(shipping(as.numeric(strsplit(input[1], ",")[[1]])), sep = "\n")