R 粘贴 : ignore sep if argument is an empty string

Question

我正在尝试 paste将地址行合并为单个地址字符串。但是，有些行是空白的( "" )，这意味着额外的 sep被插入并使地址看起来很难看。例如:

addr.df <- data.frame(street1=c("22B","Windsor Castle"),street2=c("Baker Street",""),city=c("London","Windsor"))

with(addr.df,paste(street1,street2,city,sep=", "))
[1] "22B, Baker Street, London" "Windsor Castle, , Windsor"

注意额外的 ,在第二个地址。有没有一种方法可以不涉及一段时间的正则表达式诱导的抽动秽语？

Answer 1

我不认为你可以避免一点正则表达式。

gsub('(, )+',', ',with(addr.df,paste(street1,street2,city,sep=", ")))

(正则表达式说:用一个“逗号空格”替换多个“逗号空格”)