R语言：移除两向量成对相同元素与无序重复对的高效实现

需求是移除两个向量中成对相同的元素，再移除剩余元素中不考虑顺序的重复项，示例如下：

V1 <- c("A", "A", "A", "A", "B", "B", "C", "D") 
V2 <- c("A", "B", "B", "C", "A", "B", "C", "A") 

期望基础结果（移除成对相同项与无序重复对）：

V1  V2
A   B
A   C
D   A

附加需求：对剩余结果的每一对进行排序，得到：

V1  V2
A   B
A   C
A   D

已尝试的实现代码：

df <- data.frame(V1, V2)
df <- unique(subset(df, df[1] != df[2]))
df <- df[!duplicated(t(apply(df, 1, sort))), ]

提问：

• 是否有更高效的实现方式（比如一行代码）？
• 能否不创建data.frame，直接通过两个向量得到结果？结果可以是data.frame、matrix或其他向量类型。

1. 一行代码实现（基于data.frame） #

可以把原逻辑压缩成一行可读性较好的base R代码：

unique((df <- subset(data.frame(V1, V2), V1 != V2))[!duplicated(t(apply(df, 1, sort))), ])

2. 不创建data.frame的直接向量处理 #

完全基于向量操作完成，无需提前构建data.frame：

# 筛选掉成对相同的元素
filter_idx <- V1 != V2
v1_filt <- V1[filter_idx]
v2_filt <- V2[filter_idx]

# 生成排序后的特征字符串，识别无序重复对
sorted_keys <- mapply(function(x, y) paste(sort(c(x, y)), collapse = "-"), v1_filt, v2_filt)

# 去重并生成结果
unique_idx <- !duplicated(sorted_keys)
result <- data.frame(V1 = v1_filt[unique_idx], V2 = v2_filt[unique_idx])

如果要满足附加排序需求，只需对结果每行排序后整理：

result_sorted <- as.data.frame(t(apply(result, 1, sort)), stringsAsFactors = FALSE)
colnames(result_sorted) <- c("V1", "V2")

大规模数据优化 #

如果处理超大规模数据，可借助data.table包提升效率：

library(data.table)
unique(setDT(list(V1, V2))[V1 != V2][!duplicated(transpose(lapply(.SD, sort))), ])

内容的提问来源于stack exchange，提问作者SchlaWiener