上級

vapply は FUN.VALUE のひな形と実際の戻り値の型・長さが違うとエラーになる

vapplyはFUN.VALUEに渡したひな形と、実際に関数が返す値の型や長さが厳密に一致しないとエラーになります。sapplyのように結果の形を黙って合わせてはくれません。

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

 1  nums <- c(1, 2, 3)
 2  result <- vapply(nums, function(x) as.character(x), numeric(1)  )
                                                              ^
 3  print(result)

 1  labels <- c("a", "b", "c")
 2  result <- vapply(labels, function(x) nchar(x), character(1))
                                                         ^
 3  print(result)

 1  ids <- c(10, 20, 30)
 2  result <- vapply(ids, function(x) c(x, x * 2), numeric(1))
                                                        ^
 3  print(result)

 1  flags <- c(1, 0, 1)
 2  result <- vapply(flags, function(x) x == 1, character(1))
                                                      ^
 3  print(result)

 1  names_vec <- c("tom", "al")
 2  result <- vapply(names_vec, function(x) toupper(x), numeric(1)  )
                                                              ^
 3  print(result)

よくある誤解

「vapplyもsapplyと同じく、結果の形はうまく合わせてくれるはず」という思い込みは誤りです。vapplyはFUN.VALUEで指定した型・長さを守らせるための関数で、想定と違う値が返るとその場でエラーとして検出します。

実務での勘所

vapplyの厳格さは安全性のためだけではありません。FUN.VALUEで結果の型と長さをあらかじめ教えておくことで、Rは実際にループを回す前に、結果を格納するための領域をちょうど必要な分だけ事前に確保できます。sapplyは結果が出そろうまで最終的な形が分からないため、内部的にはより非効率な組み立て方をしています。vapplyは「安全なだけの、面倒な代替品」ではなく、大きなデータを扱う場面では実行速度の面でも有利な選択肢です。

演習をはじめる

関連するエラー

• non-conformable arguments の原因と直し方（行列の次元不一致）行列の掛け算%*%は、左の行列の列数と右の行列の行数が一致していないと計算できません。
• sapply は結果を勝手に行列へ簡略化することがあるsapplyは各要素の計算結果が同じ長さのベクトルであれば、リストではなく行列に自動的にまとめてしまいます。