r - lapply 返回一系列向量而不是单个向量

Question

我编写了一个函数，可以将字符输入转换为数字输出。

votedIndicated <- function(votedCode) {
  switch(votedCode,
         "V" = 1,
         "A" = 1,
         "M" = 1,
         "O" = 1,
         "T" = 1,
         "P" = 1,
         "L" = 1,
         "D" = 0)
}

当我运行它时，我得到了预期的返回:

> votedIndicated("V")
[1] 1
> votedIndicated("D")
[1] 0

但是，当我尝试将此函数应用于向量时，我得到的不是另一个向量，而是一系列单值向量(我想我说的是对的)

> foo <- c("V","V","D")
> bar <- lapply(foo, votedIndicated)
> bar
[[1]]
[1] 1

[[2]]
[1] 1

[[3]]
[1] 0

我怎样才能做这样的酒吧 bar <- c(1,1,0) ?

Answer 1

您所指的“单值向量系列”称为 列表在 R 中。列表也是向量，但您希望返回 原子 向量。为此，并且由于您知道返回值始终是单个数值，因此您可以使用 vapply() .

vapply(foo, votedIndicated, 1)
# V V D 
# 1 1 0 

或者如果你不想要名字，

vapply(foo, votedIndicated, 1, USE.NAMES = FALSE)
# [1] 1 1 0

更多关于 vapply() ，见 help(vapply) .