Die Funktion switch() kann ein knapper Ersatz für eine lange Reihe von if ... else if-Tests sein.
Die Variable, auf die switch() angewendet wird, ist meistens ein String, und dann kannst du die Anführungszeichen im Selektor weglassen.
star <- function(type) {
switch(type,
M = , # will "fall through" if no value given
K = "red dwarf",
G = "Earth-like",
"bigger star" # only correct for O,B,A,F
)
}
> star("M")
[1] "red dwarf"
Beachte, dass Optionen nur dann durchfallen, wenn der Wert leer bleibt, wie bei M im obigen Beispiel.
Du musst keine break-Anweisungen einfügen, wie es in manchen anderen Sprachen nötig ist.
Wenn du auf character-Typen prüfst, ist der letzte Wert ein Standardwert, wie hier.
Bei Ganzzahl-Typen kann kein Standardwert angegeben werden.
Funktionen in dplyr
Das switch in Base R ist ziemlich eingeschränkt: Es führt nur einen exakten Abgleich mit einem einzelnen Eingabewert durch.
Das war sinnvoll, als R 1993 zum ersten Mal veröffentlicht wurde, aber für den modernen Einsatz muss es verbessert werden.
Wie im Konzept Conditionals erwähnt, ist die Paketsammlung tidyverse darauf ausgelegt, die Funktionalität von Base R zu ergänzen (und manchmal zu ersetzen), ohne die Abwärtskompatibilität zu beeinträchtigen.
Du kannst das Paket dplyr in den Gültigkeitsbereich holen, indem du entweder library(dplyr) (für das einzelne Paket) oder library(tidyverse) (für die ganze Sammlung) an den Anfang deines Codes schreibst.
Die Bibliothek dplyr bietet zwei zusätzliche Funktionen rund um switch.
Die Funktionen recode_values und replace_values
Diese beiden verwandten Funktionen ermöglichen eine vektorisierte, switch-ähnliche Zuordnung alter Werte zu neuen Werten.
Der Hauptunterschied zwischen ihnen ist, dass recode_values() einen völlig neuen Vektor erzeugt, während replace_values() teilweise Aktualisierungen eines vorhandenen Vektors erlaubt.
Der Abgleich ist weiterhin exakt, aber:
- Die Optionen auf der linken Seite können Vektoren sein, und die Eingabe passt, wenn ein beliebiges Element übereinstimmt.
- Optionen links und Ergebnisse rechts werden mit einer Tilde
~ statt mit = verknüpft.
- In allen Fällen kann ein Standardwert angegeben werden.
library(dplyr)
x <- c("a", "b", "a", "d", "b", NA, "c", "e", "z")
recode_values(
x,
"a" ~ 1,
"b" ~ 2,
"c" ~ 3,
c("d", "e") ~ 4, # either "d' or "e" will match
NA ~ 0, # matches missing values
default = 100 # note the different syntax for the default
)
#> [1] 1 2 1 4 2 0 3 4 100
Die Funktion case_when
case_when führt die Syntax von case_match noch einen Schritt weiter, indem es jeden beliebigen logischen Ausdruck links von der ~ erlaubt.
Der Eingabevektor (x im Beispiel unten) wird nicht als Argument übergeben, er muss nur schon definiert sein.
x <- 1:10
case_when(
x < 3 ~ "low",
between(x, 3, 5) ~ "mid",
between(x, 6, 8) ~ "high",
.default = "what?"
)
#> [1] "low" "low" "mid" "mid" "mid" "high" "high" "high" "what?" "what?"
Die Funktion between() ist ebenfalls Teil von dplyr.
Lernübung
