中級

sapply は結果を勝手に行列へ簡略化することがある

sapplyは各要素の計算結果が同じ長さのベクトルであれば、リストではなく行列に自動的にまとめてしまいます。1個の値だけを期待していたコードが、複数要素を返す関数を渡した途端に行列を受け取ることになります。

なぜエラーが出ないのか

出力: 6

（エラーなし）

Rは何も報告しません。文法としても実行としても正しいコードだからです

6

実際の出力 — 期待した結果と食い違っている箇所

このエラーが出る典型パターン

 1  nums <- list(c(1, 5), c(2, 8), c(3, 9))
 2  minmax <- function(x) c(min(x), max(x))
 3  result <- sapply(nums, minmax)
                 ^
 4  cat(length(result), "\n")

 1  groups <- list(c(10, 20), c(5, 15), c(30, 40))
 2  range2 <- function(x) c(min(x), max(x))
 3  result <- sapply(groups, range2)
                 ^
 4  cat(length(result), "\n")

 1  items <- list(c(3, 9), c(1, 7), c(4, 6))
 2  span <- function(x) c(min(x), max(x))
 3  result <- sapply(items, span)
                 ^
 4  cat(length(result), "\n")

 1  batches <- list(c(2, 8), c(6, 12), c(1, 5))
 2  edges <- function(x) c(min(x), max(x))
 3  result <- sapply(batches, edges)
                 ^
 4  cat(length(result), "\n")

 1  samples <- list(c(7, 11), c(2, 9), c(0, 4))
 2  bounds <- function(x) c(min(x), max(x))
 3  result <- sapply(samples, bounds)
                 ^
 4  cat(length(result), "\n")

よくある誤解

「sapplyは常にベクトルか単純なリストを返すはず」という思い込みは誤りです。関数が長さ2以上のベクトルを返す場合、sapplyは結果を行列に変換します。形が変わっても壊れないコードにしたい場合はlapplyかvapplyを使う必要があります。

実務での勘所

sapplyのこの自動的な簡略化は、便利さを優先した既定の挙動です。多くの場面では、結果が単純なベクトルや行列にまとまってくれたほうが後続の処理が楽になるため、Rはこの変換を既定で行います。この挙動を保ったまま安全性だけを高めたい場合、sapply(x, f, simplify = FALSE)のようにsimplify引数にFALSEを渡せば、lapplyに乗り換えなくてもsapplyのまま常にリストを返すようにできます。

演習をはじめる

関連するエラー

• 関数内の <- による代入はグローバル変数を変更しない関数の中で<-を使って外側と同じ名前の変数に代入しても、それは関数内だけのローカル変数を新しく作るだけで、外側のグローバル変数には影響しません。
• リストの [ ] は要素そのものではなく部分リストを返す（[[ ]] との違い）リストに対して[ ]でアクセスすると、中身の値そのものではなく、その要素だけを含む部分リストが返ります。