R貼り付け：引数が空文字列の場合は無視する

Question

私はpasteのアドレス行を1つのアドレス文字列にしようとしています。しかし、いくつかの行は空白（""）であり、これは余分に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" 

は、第2のアドレスに余分な,に注意してください。 regexpに誘​​発されたtourettesの期間を伴わないこれのまわりの方法がありますか？

Answer 1

私はあなたが少し正規表現を避けることはできないと思います。

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

（正規表現は言う：シングル「コンマスペース」で複数の「コンマスペース」を置き換える）

Answer 2

条件をチェックするために、「あれば」私は正規表現をスキップして、いくつかの簡単なを使用したいですデータフレーム内の要素の数。

は一瞬のためにそれをホールド：あなたは本当に、出力は（数とストリートの間にはカンマ）22B Baker, Londonとは対照的に、
22B, Baker, Londonになりたいですか？ただ
allstreet<-paste(street1,street2,sep=" ")

を行い、その後、allstreetとcityであなたのwithラインを実行し、後者は目的のフォーマットであると仮定すると。
それからちょうどあなたの全体のデータフレームのペーストに代わりstreet1とstreet2のstreetsを使用

Answer 3

streets <- ifelse(street2=="",street1,paste(street1,street2,sep=", ")) 

:-) plyrまたはmeltでこれを行うために多くのスリッカー方法はおそらくあります。

Answer 4

これは1行で行うことができますが、正規表現はありませんが、ループを導入する必要があります（この場合はapplyを使用します）。

apply(
    addr.df, 
    1, 
    function(row) paste(row[nzchar(row)], collapse = ", ") 
)