可以先对行进行排序（使用sort），然后再计数（使用table）。我使用paste0(x, collapse = "")将有序的值对组成一个唯一的字符串。

(tab <- table(apply(df, 1, \(x) paste0(sort(x), collapse = ""))))
# AF BE CD 
#  3  2  2 

sum(tab == 1)
#[1] 0

字符串

按行排序，然后检查是否重复：

x <- cbind(pmin(df$A, df$B), pmax(df$A, df$B))
#     [,1] [,2]
# [1,] "A"  "F" 
# [2,] "B"  "E" 
# [3,] "C"  "D" 
# [4,] "C"  "D" 
# [5,] "B"  "E" 
# [6,] "A"  "F" 
# [7,] "A"  "F" 

df[ !(duplicated(x) | duplicated(x, fromLast = TRUE)), ]
# [1] A B
# <0 rows> (or 0-length row.names)

字符串

第一条评论：“AF”在您的设置中确实出现了两次.
如果你想知道有多少非唯一行出现，你可以计算行数，唯一行和子行的数量（这里给出“1”作为结果）

df <- data.frame(A = c(LETTERS[1:6], "A"),
                 B = c(rev(LETTERS[1:6]), "F"))
nrow(df)   # returns 7, number of rows
nrow(unique(df))  # returns 6, number of unique rows
result <- nrow(df) - nrow(unique(df))  # returns 1, number of non-unique rows

字符串