“下标越界”字符矢量

Question

我有一个向量“nameAlpha”，例如c（“Mark Twain”，“Phil Hall”，“Michael P. O'Connor”，“”，...）。我想将每个名字传递给另一个向量“nameAlpha_first”。我跑这个

nameAlpha_first <- sapply(strsplit(nameAlpha, "\\s+"), "[[", 1) 

，但我得到

Error in FUN(X[[12L]], ...) : subscript out of bounds 

难道是因为载体的几个要素是空的？ 我该如何解决它？

Answer 1

假设我们定义和预处理一个特征向量这样：

nameAlpha<-c("Mark Twain", NA, "Phil Hall", 
      "Michael P. O'Connor", " ", "", NA, "John") 
nameAlpha[which(nchar(nameAlpha)<2)]<-NA 

你应该写

sapply(strsplit(nameAlpha, "\\s+"), head, n=1) 

，它会工作。如果你想要姓氏，你可以做

sapply(strsplit(nameAlpha, "\\s+"), tail, n=1) 

这将为您提供姓氏的载体。