r - 忽略方向的成对唯一组合

Question

我想根据 R 中的一个常见字符在 data.frame 中聚合某个值。问题是我对成对组合的不同方向不感兴趣。比如

d = data.frame( x = LETTERS[1:5], y = LETTERS[5:1] )

  x y
1 A E
2 B D
3 C C
4 D B
5 E A

然后将像这样计算组合:

d$z <- paste0(d$x,d$y,sep="_")

问题是我对成对差异不感兴趣。所以 A_E 应该与这个简单示例中的 E_A 相同。

是否有一个聪明的简短解决方案来粘贴它们？我目前正在考虑在将它们组合成一个向量之前对每个进行排序。

Answer 1

一种选择是使用 pmin 和 pmax:

transform(d, z = paste(pmin(x,y), pmax(x,y), sep="_"))
#  x y   z
#1 A E A_E
#2 B D B_D
#3 C C C_C
#4 D B B_D
#5 E A A_E

请注意，如果 x 和 y 是 factor，则可能需要将它们转换为 character。

---

d <- data.frame( x = LETTERS[1:5], y = LETTERS[5:1], stringsAsFactors = FALSE)