複数の列に基づいてRのデータフレーム行を結合します

Rには、1行に1つの個人を持つデータフレームがあります。個人が2行に表示されることがありますが、重複したIDに基づいてこれらの行を組み合わせたいと思います。

問題は、各個人が複数のIDを持っており、IDが2回表示される場合、必ずしも同じ列に表示されるとは限らないことです。

データフレームの例を次に示します。

dat <- data.frame(a = c('cat', 'canine', 'feline', 'dog'),
                  b = c('feline', 'puppy', 'meower', 'wolf'),
                  c = c('kitten', 'barker', 'kitty', 'canine'),
                  d = c('shorthair', 'collie', '', ''),
                  e = c(1, 5, 3, 8))

> dat
       a      b      c         d e
1    cat feline kitten shorthair 1
2 canine  puppy barker    collie 5
3 feline meower  kitty           3
4    dog   wolf canine           8

したがって、行1のbIDaは行3のIDと等しいため、行1と3を組み合わせる必要があります。同様に、a行2のIDcは行4のIDと等しいため、これらの行も組み合わせる必要があります。

理想的には、出力は次のようになります。

     a.1    b.1    c.1       d.1 e.1    a.2    b.3    c.2 d.2 e.2
1    cat feline kitten shorthair   1 feline meower  kitty       3
2 canine  puppy barker    collie   5    dog   wolf canine       8

（空の文字列である共有IDに基づいて行が結合されていないことに注意してください。）

これをどのように行うことができるかについての私の考えは以下のとおりですが、私は間違った道を進んでいると確信しているので、おそらく問題の解決には役立たないでしょう。

各行に行IDを割り当てて、データを溶かすことができると思いました。その後、私は行ごとに通過することができました。IDの1つが前の行と一致する行を見つけた場合（たとえば、行3のIDの1つが行1のIDの1つと一致する場合）、現在の行の行IDのすべてのインスタンスを変更して前の行IDと一致させます（たとえば、3のすべての行IDが1に変更されます）。

これが私が使用しているコードです：

dat$row.id <- 1:nrow(dat)
library(reshape2)
dat.melt <- melt(dat, id.vars = c('e', 'row.id'))
for (i in 2:nrow(dat.melt)) {
  # This next step is just to ignore the empty values
  if (grepl('^[[:space:]]*$', dat.melt$value[i])) {
    next
  }
  earlier.instance <- dat.melt$row.id[which(dat.melt$value[1:(i-1)] == dat.melt$value[i])]
  if (length(earlier.instance) > 0) {
    earlier.row.id <- earlier.instance[1]
    dat.melt$row.id[dat.melt$row.id == dat.melt$row.id[i]] <- earlier.row.id
  }
}

このアプローチには2つの問題があります。

1. 行3のIDが行1と一致し、行5の別のIDが行3と一致する可能性があります。この場合、行3と行5の両方の行IDを1に変更する必要があります。これは、次のことが重要であることを意味します。行を順番に調べていくと、apply関数ではなくforループを使用するようになりました。これはあまりRに似ていないことを私は知っています、そして私が扱っている大きなデータフレームではそれは非常に遅いです。
2. このコードは、以下の出力を生成します。そこ複数の行は同じとなりましたrow.idし、variable私は上記示した出力の種類を取得するためには、それをキャストする方法がわからないので、。dcastここで使用すると、集計関数を使用するように強制されます。

出力：

   e row.id variable     value
1  1      3        a       cat
2  5      2        a    canine
3  3      3        a    feline
4  8      2        a       dog
5  1      3        b    feline
6  5      2        b     puppy
7  3      3        b    meower
8  8      2        b      wolf
9  1      3        c    kitten
10 5      2        c    barker
11 3      3        c     kitty
12 8      2        c    canine
13 1      3        d shorthair
14 5      2        d    collie
15 3      3        d          
16 8      2        d