在R的两列中查找唯一的单词对，忽略它们的顺序

# 创建示例数据框
data <- data.frame(column1 = c("apple", "banana", "orange", "apple"),
                   column2 = c("banana", "apple", "apple", "orange"))

# 定义处理函数
find_unique_word_pairs <- function(row) {
  sorted_words <- sort(c(row["column1"], row["column2"]))
  unique_word_pair <- paste(sorted_words, collapse = "-")
  return(unique_word_pair)
}

# 使用apply函数遍历数据框的每一行，获取唯一单词对
unique_word_pairs <- unique(apply(data, 1, find_unique_word_pairs))

# 打印结果
print(unique_word_pairs)