R语言使用paste()拼接字符串时缺失值仍显示分隔符如何解决

paste()函数拼接字符串时不会自动跳过空白值或NA值，只要传入对应位置的元素，无论是否为空都会插入分隔符，就会出现多余分隔符的问题。可通过以下两种方案解决：

方案1：使用stringr包的str_c（推荐） #

stringr是tidyverse生态的常用字符串处理包，内置的str_c()原生支持缺失值过滤，代码简洁易维护：

# 加载依赖包
library(stringr)

# 构建示例数据
CM <- data.frame(
   CONMED = c("ZOMIG","TYLENOL","CLAVULANIC ACID "),
   DOSE = c("5 mg"," ","62.5 mg"))

# 预处理：将全空格/空字符串转为NA
CM$DOSE <- trimws(CM$DOSE)
CM$DOSE[CM$DOSE == ""] <- NA

# 拼接时设置na.rm=TRUE自动过滤缺失值，不会插入多余分隔符
CM$CONMEDOS <- str_c(CM$CONMED, CM$DOSE, sep = "/", na.rm = TRUE)

运行后CONMEDOS列第二行值为TYLENOL，无多余斜杠。

方案2：基础R实现（无需安装第三方包） #

如果不想依赖第三方包，可以用apply逐行处理，仅拼接非空值：

# 构建示例数据
CM <- data.frame(
   CONMED = c("ZOMIG","TYLENOL","CLAVULANIC ACID "),
   DOSE = c("5 mg"," ","62.5 mg"))

CM$CONMEDOS <- apply(CM[, c("CONMED", "DOSE")], 1, function(row) {
  # 去除元素两端空白，过滤空值和NA
  valid_val <- trimws(row)
  valid_val <- valid_val[valid_val != "" & !is.na(valid_val)]
  # 仅对有效元素执行拼接
  paste(valid_val, collapse = "/")
})

如果后续需要新增拼接字段，只需在c("CONMED", "DOSE")中添加对应列名即可，无需修改其他逻辑。

内容的提问来源于stack exchange，提问作者Jags