粘贴字符向量,删除NA之间的NA和分隔符

Question

我有几个我要粘贴在一起的字符向量.问题是一些字符向量非常稀疏.所以,当我粘贴它们时,我会得到NA和额外的分隔符.如何在仍然加入向量的同时有效地移除NA和额外的分隔符？

我有类似的东西:

n1 = c("goats", "goats", "spatula", NA, "rectitude", "boink")
n2 = c("forever", NA, "...yes", NA, NA, NA)
cbind(paste(n1,n2, sep=", "))

这给了我:

[1,] "goats, forever" 
[2,] "goats, NA"      
[3,] "spatula, ...yes"
[4,] "NA, NA"         
[5,] "rectitude, NA"  
[6,] "boink, NA" 

但我想要:

[1,] "goats, forever" 
[2,] "goats"          
[3,] "spatula, ...yes"
[4,] <NA>
[5,] "rectitude"      
[6,] "boink"

使用大量正则表达式和字符串拆分,显然效率低下且乏味乏味.但任何快速/简单的事情？

Answer 1

不是很多正则表达式,只需要1行和1个替换 NA

n1 <- c("goats", "goats", "spatula", NA, "rectitude", "boink")
n2 <- c("forever", NA, "...yes", NA, NA, NA)
n3 <- cbind(paste(n1,n2, sep=", "))
n3 <- gsub("(, )?NA", "", n3)
n3[n3==""] <- NA

Answer 2

代码(没有正则表达式或字符串拆分):

vec <- apply(cbind(n1,n2),1,function(x)
    ifelse(all(is.na(x)), NA, paste(na.omit(x),collapse=", ")) )

结果:

> vec # as a vector
[1] "goats, forever"  "goats"  "spatula, ...yes"  NA  "rectitude"  "boink"

> cbind(vec) # as a matrix
     vec              
[1,] "goats, forever" 
[2,] "goats"          
[3,] "spatula, ...yes"
[4,] NA               
[5,] "rectitude"      
[6,] "boink"