函数没有在向量中的所有对象上运行？ (右)

Question

我编写了以下函数来将全名更改为首字母后跟姓氏：

names1 <- function(x) {
            z <- unlist(strsplit(x, " "))[1]
            z <- substr(z,1,1)
            y <- unlist(strsplit(x, " "))[2]
            paste(z,"."," ", y, sep="")
           }

所以

name <- "John Doe"
names1(name)

成功返回

"J. Doe"

但是，当我尝试将其应用于名称向量时，它只返回第一个对象（格式正确）。

为什么它不会在向量中的所有对象上执行该功能？我确实发现使用sapply 可以正常工作，但是我可以在没有sapply 的向量上运行其他类型的函数，并将完整的向量作为输出返回。

Answer 1

data.table 包中的tstrsplit 使这更加简单：

n = c("John Doe", "Abigail Ames")

library(data.table)
x = tstrsplit(n, " ")
paste0(substr(x[[1]],1,1), ". ", x[[2]])
# [1] "J. Doe"  "A. Ames"

或者，在基础中，您可以在函数上使用Vectorize 来制作矢量化版本：

Vectorize(names1)(n)
#     John Doe Abigail Ames 
#     "J. Doe"    "A. Ames"

或者使用sapply将函数应用于每个元素，然后合并结果

sapply(n, names1)
#     John Doe Abigail Ames 
#     "J. Doe"    "A. Ames"