加入和顺序列

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 

我想加入p.a和p.b（的a和b属性），因此，如果有发生对a和b所有对b和a应转过来成对a和b和属性的顺序应保留，然后加入到一个新的列。所以只有前两列变化，最后两列也应该改变。我知道我可以使用paste来连接两列，但我不确定如何正确获取列条目的顺序。

结果应该如下：

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

使用更新的数据集，我们可以遍历行，根据前两列元素得到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