当粘贴的琴弦包含Ben Bolker在同一位置时，paste2的""解决方案产生NA。像这样，
> paste2(c("a","b", "c", NA), c("A","B", NA, NA))
[1] "a, A" "b, B" "c" ""
第四个元素是""而不是NA像这样，
[1] "a, A" "b, B" "c" NA
我正在为能解决这个问题的人提供这笔小额奖金。
我已经阅读了帮助页面?paste，但我不明白如何让R忽略NAs。我做了以下，
foo <- LETTERS[1:4]
foo[4] <- NA
foo
[1] "A" "B" "C" NA
paste(1:4, foo, sep = ", ")
得到
[1] "1, A" "2, B" "3, C" "4, NA"
我想得到什么，
[1] "1, A" "2, B" "3, C" "4"
我可以这样做，
sub(', NA$', '', paste(1:4, foo, sep = ", "))
[1] "1, A" "2, B" "3, C" "4"
但这似乎是绕道而行。
出于“真-NA”的目的：似乎最直接的路径只是将paste2返回的值修改为NA，当值为""时
paste3 <- function(...,sep=", ") {
L <- list(...)
L <- lapply(L,function(x) {x[is.na(x)] <- ""; x})
ret <-gsub(paste0("(^",sep,"|",sep,"$)"),"",
gsub(paste0(sep,sep),sep,
do.call(paste,c(L,list(sep=sep)))))
is.na(ret) <- ret==""
ret
}
val<- paste3(c("a","b", "c", NA), c("A","B", NA, NA))
val
#[1] "a, A" "b, B" "c" NA
一个函数跟随@ErikShilt的回答和@ agstudy的评论。它通过允许指定sep并处理任何元素（first，last或intermediate）为NA的情况来略微概括情况。 （如果连续存在多个NA值，或者在其他棘手的情况下，它可能会中断......）顺便说一下，请注意这种情况在Details的?paste部分的第二段中完全描述，这表明至少R作者了解情况（虽然没有提供解决方案）。
paste2 <- function(...,sep=", ") {
L <- list(...)
L <- lapply(L,function(x) {x[is.na(x)] <- ""; x})
gsub(paste0("(^",sep,"|",sep,"$)"),"",
gsub(paste0(sep,sep),sep,
do.call(paste,c(L,list(sep=sep)))))
}
foo <- c(LETTERS[1:3],NA)
bar <- c(NA,2:4)
baz <- c("a",NA,"c","d")
paste2(foo,bar,baz)
# [1] "A, a" "B, 2" "C, 3, c" "4, d"
这不能处理@ agstudy的建议（1）包含可选的collapse参数; （2）通过添加NA参数（并将默认值设置为na.rm以使FALSE向后兼容paste2）使paste-removal可选。如果一个人想要更复杂（即删除多个连续的NAs）或更快，那么通过Rcpp在C ++中编写它可能是有意义的（我不太了解C ++的字符串处理，但它可能不太难 - 看看convert Rcpp::CharacterVector to std::string和Concatenating strings doesn't work as expected开始...）
正如Ben Bolker所提到的，如果连续存在多个NA，则上述方法可能会失败。我尝试了一种似乎可以克服这个问题的不同方法。
paste4 <- function(x, sep = ", ") {
x <- gsub("^\\s+|\\s+$", "", x)
ret <- paste(x[!is.na(x) & !(x %in% "")], collapse = sep)
is.na(ret) <- ret == ""
return(ret)
}
第二行删除了连接文本和数字时引入的额外空格。上述代码可用于使用apply命令连接数据帧的多个列（或行），或者重新打包以在需要时首先将数据强制转换为数据帧。
EDIT
经过几个小时后，我认为以下代码包含了上述建议，以允许指定崩溃和na.rm选项。
paste5 <- function(..., sep = " ", collapse = NULL, na.rm = F) {
if (na.rm == F)
paste(..., sep = sep, collapse = collapse)
else
if (na.rm == T) {
paste.na <- function(x, sep) {
x <- gsub("^\\s+|\\s+$", "", x)
ret <- paste(na.omit(x), collapse = sep)
is.na(ret) <- ret == ""
return(ret)
}
df <- data.frame(..., stringsAsFactors = F)
ret <- apply(df, 1, FUN = function(x) paste.na(x, sep))
if (is.null(collapse))
ret
else {
paste.na(ret, sep = collapse)
}
}
}
如上所述，na.omit(x)可以用(x[!is.na(x) & !(x %in% "")替换，如果需要也可以删除空字符串。注意，使用na.rm = T的折叠返回一个没有任何“NA”的字符串，尽管可以通过用paste(ret, collapse = collapse)替换最后一行代码来改变它。
nth <- paste0(1:12, c("st", "nd", "rd", rep("th", 9)))
mnth <- month.abb
nth[4:5] <- NA
mnth[5:6] <- NA
paste5(mnth, nth)
[1] "Jan 1st" "Feb 2nd" "Mar 3rd" "Apr NA" "NA NA" "NA 6th" "Jul 7th" "Aug 8th" "Sep 9th" "Oct 10th" "Nov 11th" "Dec 12th"
paste5(mnth, nth, sep = ": ", collapse = "; ", na.rm = T)
[1] "Jan: 1st; Feb: 2nd; Mar: 3rd; Apr; 6th; Jul: 7th; Aug: 8th; Sep: 9th; Oct: 10th; Nov: 11th; Dec: 12th"
paste3(c("a","b", "c", NA), c("A","B", NA, NA), c(1,2,NA,4), c(5,6,7,8))
[1] "a, A, 1, 5" "b, B, 2, 6" "c, , 7" "4, 8"
paste5(c("a","b", "c", NA), c("A","B", NA, NA), c(1,2,NA,4), c(5,6,7,8), sep = ", ", na.rm = T)
[1] "a, A, 1, 5" "b, B, 2, 6" "c, 7" "4, 8"
我知道这个问题已有很多年了，但它仍然是r paste na的最佳谷歌结果。我正在寻找一个快速的解决方案来解决我认为是一个简单的问题，并且有点对答案的复杂性感到吃惊。我选择了另一种解决方案，并在此处发布，以防其他人感兴趣。
bar <- apply(cbind(1:4, foo), 1, function(x) paste(x[!is.na(x)], collapse = ", "))
bar
[1] "1, A" "2, B" "3, C" "4"
如果不明显，这将适用于任何位置具有NA的任意数量的向量。
恕我直言，这在现有答案上的优势是易读性。它是一个单行，总是很好，它不依赖于一堆正则表达式和if / else语句可能会绊倒你的同事或未来的自我。 Erik Shitts' answer主要分享这些优点，但假设只有两个向量，并且只有最后一个向量包含NA。
我的解决方案不满足您的编辑要求，因为我的项目有相反的要求。但是，您可以通过添加从42-'s answer借来的第二行来轻松解决此问题：
is.na(bar) <- bar == ""
您可以使用ifelse，一个矢量化的if-else结构来确定值是否为NA并替换为空白。然后，如果没有任何其他字符串，则使用gsub去掉尾随的“，”。
gsub(", $", "", paste(1:4, ifelse(is.na(foo), "", foo), sep = ", "))
你的答案是对的。没有更好的方法来做到这一点。在详细信息部分的paste documentation中明确提到了此问题。
或者在paste（）之后做一个mutate并删除NA：
data <- data.frame(col1= c(rep(NA, 5)), col2 = c(2:6)) %>%
mutate(col3 = paste(col1, col2)) %>%
mutate(col3 = gsub('NA', '', col3))
或者使用str_replace_all粘贴后删除NA
data$1 <- str_replace_all(data$1, "NA", "")