ブラックジャック

switch()関数は、長いif ... else ifのテストの連続を簡潔に置き換えてくれます。 切り替えの対象になる変数はたいてい文字列で、その場合はセレクターから引用符を省略できます。

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"

上の例のMのように、値が空のままの場合にのみ、選択肢は次の値へフォールスルーする点に注意してください。 他の言語のようにbreak文を書く必要はありません。

character型を切り替える場合、ここでのように最後の値がデフォルトになります。 整数型の場合、デフォルトは指定できません。

dplyrの関数

Rの基本機能にあるswitchはかなり限定的で、1つの入力に対する完全一致しか行えません。 1993年にRが最初にリリースされた当時は合理的でしたが、現代の使い方には改善が必要です。

dplyrライブラリには、switchに関連する2つの追加関数があります。

recode_values関数とreplace_values関数

これら2つのよく似た関数は、古い値から新しい値への、ベクトル化されたswitchに似た対応付けを可能にします。

両者の主な違いは、recode_values()がまったく新しいベクトルを作るのに対し、replace_values()は既存のベクトルを部分的に更新できる点です。

一致はやはり完全一致ですが、次の点が異なります。

• 左側の選択肢はベクトルにでき、いずれかの要素が一致すれば入力が一致したとみなされます。
• 左側の選択肢と右側の結果は、=ではなくチルダ~で結びます。
• どの場合でもデフォルトを指定できます。

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

case_when関数

case_whenはcase_matchの構文をさらに一歩進め、~の左側に任意の論理式を書けるようにします。

入力のベクトル（下の例ではx）は引数として渡す必要はなく、すでに定義されていればよいだけです。

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

between()関数もdplyrの一部です。