R语言高效删除dataframe中含相同元素（含顺序不同）的所有行

核心逻辑是为每行生成不区分元素顺序的统一组合标识，统计各标识的出现频次后，仅保留频次为1的行，全程采用向量化运算，无显式for循环，适配4万行及以上的量级需求。

基础R实现 #

无需额外安装包的原生R方案：

# 示例数据
mymat <- structure(c(3, 6, 9, 9, 1, 4, 1, 5, 9, 6, 6, 4, 1, 4), .Dim = c(7L, 2L))

# 1. 生成不区分顺序的组合标识
min_col <- pmin(mymat[,1], mymat[,2])
max_col <- pmax(mymat[,1], mymat[,2])
group_key <- paste(min_col, max_col, sep = "_")

# 2. 统计各组合的出现次数
key_count <- table(group_key)

# 3. 筛选仅出现1次的组合对应的行
result <- mymat[group_key %in% names(key_count)[key_count == 1], ]

运行后得到的result即为仅保留元素组合唯一行的结果，示例中输出为c(3,5)对应的行。

更高性能的data.table实现 #

如果数据量进一步扩大，可使用data.table包实现更快的处理：

library(data.table)
dt <- as.data.table(mymat)

result_dt <- dt[, `:=`(min_v = pmin(V1, V2), max_v = pmax(V1, V2))
                ][, freq := .N, by = .(min_v, max_v)
                ][freq == 1, .(V1, V2)]

该方案利用data.table的高效分组能力，处理百万行级数据也可在毫秒级完成。

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