参加と秩序の列

Question

例：

a b p.a p.b 
1 2 x  y 
3 4 c  d 
2 1 y  x 
5 6 f  e 
1 1 x  x 

私はa一対のbbとaのすべてのペアが発生した場合でなければなりませんようにp.aとp.b（aとbのプロパティ）に参加したいと思いますaとbのペアになり、プロパティの順序を保持してから新しい列に結合する必要があります。したがって、最初の2つの列が変更された場合のみ、最後の2つの列も変更する必要があります。 pasteを使用して2つの列を結合することができますが、列の項目の順序を正しく取得する方法がわかりません。次のように

結果は次のようになります

a b p.a p.b joined 
1 2 x  y  xy 
3 4 c  d  cd 
1 2 x  y  xy 
5 6 f  e  fe 
1 1 x  x  xx 

それはaとbの行が1 2又は2 1であるが、存在する場合1 2ない2 1及びその逆

があってはならないかどうか、重要ではありません

Answer 1

更新されたデータセットを使用して、行をループして、最初の2つの列要素に基づいてorderを取得し、それに基づいてorder列を取得できます。

df2 <- do.call(rbind, lapply(seq_len(nrow(df1)), function(i) { 
       x1 <- df1[i,] 
       i1 <- order(unlist(x1[1:2])) 
       x1[1:2] <- unlist(x1[1:2])[i1] 
       x1[3:4] <- unlist(x1[3:4])[i1] 
       x1})) 

df2$joined <- do.call(paste0, df2[3:4]) 
df2 
# a b p.a p.b joined 
#1 1 2 x y  xy 
#2 3 4 c d  cd 
#3 1 2 x y  xy 
#4 5 6 f e  fe 
#5 1 1 x x  xx