【R】組み合わせデータ作成

Question

前提

RでIDの組み合わせを作りたいと考えています。
データは、企業コード（code）、氏名ID（name_no）、備考（name_birth）の3つから成ります。【※添付画像A～C列参照】
また、氏名IDは複数の企業コードを持ち得ます。

実現したいこと

完成形は【※添付画像I～J列参照】です。完成形になるならば、ロジックで問いません。

私がやろうとしている処理は下記です。コードは下記参照。
企業コードごとに氏名IDの組み合わせ（同一の組み合せは省く）を作り【※添付画像E～G列参照】、F～G列の組み合わせをユニークにしたいと考えています。

発生している問題・エラーメッセージ

下記コードでのアウトプットは添付のようになります。
オレンジ色の組み合わせ、水色の組み合わせが混じってしまいます。
これらのような組み合わせを省きたいです。

該当のソースコード

install.packages("data.table")
library(data.table)

dt <- fread("test.txt", sep="\t", encoding="UTF-8", header=T)

------------
code_list <- unique(dt$code)
cn <- length(code_list)

xx.all <- NULL

c <- 1
pb <- txtProgressBar(min = 1, max = cn, style = 3)
while (c <= length(code_list))
{
  ds <- dt[code==code_list[c], , ]
  name_no_list <- unique(ds$name_no)
  n <- length(name_no_list)
  for (i in 1:n)
  {
    for (j in 1:n)
    {              
      setTxtProgressBar(pb, c)
      a <- ds[name_no==name_no_list[i], , ]
      b <- ds[name_no==name_no_list[j], , ]
      x <- merge(a, b, by=c("code") , all = F)
      if(nrow(x)==0) 
        next(i)
      xx <- x[, .N, by = .(code, name_no.x, name_no.y)]
      xx <- xx[name_no.x != name_no.y,]
      if(nrow(xx)==0)
        next(i)
      else
      {
        xx.all <- rbind(xx.all, xx)
      }
      Sys.sleep(0.005)
      #print(xx)
    }
  }
  c <- c + 1
}
write.csv(xx.all, "merge_test.csv") 

よろしくお願いします。

Answer 1

解決しました。

• 組み合わせ関数 combn(n, x) を用いる。n C x のデータを作成できる。ただし、matrix型。
• whileループで作成した組み合わせデータのうち、同じ組み合わせを data %>% dplyr::distinct(a, b) で重複削除。

install.packages("dplyr")
library(dplyr)

code_list <- unique(dt$code)
cn <- length(code_list)

comb.all <- NULL

c <- 1
pb <- txtProgressBar(min = 1, max = cn, style = 3)
while (c <= length(code_list))
{
  ds <- dt[code==code_list[c], , ]
  name_no_list <- unique(ds$name_no)
  combmat <-combn(name_no_list,2)
  combdat <-as.data.frame(t(data.frame(combmat)))
  comb.all <- rbind(comb.all, combdat)
  c <- c + 1
}

colnames(comb.all) <- c("name_no.x", "name_no.y")

comb <-comb.all %>% dplyr::distinct(name_no.x, name_no.y)

write.csv(comb, "test.csv")