Hàng duy nhất, xem xét hai cột, trong R, không có thứ tự

Question

Không giống như các câu hỏi tôi đã tìm thấy, tôi muốn nhận được duy nhất của hai cột không có thứ tự.

Tôi có một df:

df<-cbind(c("a","b","c","b"),c("b","d","e","a")) 
> df 
    [,1] [,2] 
[1,] "a" "b" 
[2,] "b" "d" 
[3,] "c" "e" 
[4,] "b" "a" 

Trong trường hợp này, dòng 1 và dòng 4 là "bản sao" theo nghĩa là b-a là giống như b-a.

Tôi biết cách tìm duy nhất các cột 1 và 2 nhưng tôi sẽ tìm thấy mỗi hàng duy nhất theo cách tiếp cận này.

Answer 1

Có rất nhiều nhân cách để làm điều này, đây là một trong:

unique(t(apply(df, 1, sort))) 
duplicated(t(apply(df, 1, sort))) 

Một mang lại cho các hàng độc đáo, khác cung cấp cho các mặt nạ.

Answer 2

Nếu tất cả các phần tử là chuỗi (heck, ngay cả khi không và bạn có thể ép buộc chúng), thì một mẹo là tạo nó dưới dạng data.frame và sử dụng một số mẹo của dplyr trên đó.

library(dplyr) 
df <- data.frame(v1 = c("a","b","c","b"), v2 = c("b","d","e","a")) 
df$key <- apply(df, 1, function(s) paste0(sort(s), collapse='')) 
head(df) 
## v1 v2 key 
## 1 a b ab 
## 2 b d bd 
## 3 c e ce 
## 4 b a ab 

Cột $key giờ đây sẽ cho bạn biết lặp lại.

df %>% group_by(key) %>% do(head(., n = 1)) 
## Source: local data frame [3 x 3] 
## Groups: key 
## v1 v2 key 
## 1 a b ab 
## 2 b d bd 
## 3 c e ce 

Answer 3

Nếu nó chỉ là hai cột, bạn cũng có thể sử dụng pmin và pmax, như thế này:

library(data.table) 
unique(as.data.table(df)[, c("V1", "V2") := list(pmin(V1, V2), 
         pmax(V1, V2))], by = c("V1", "V2")) 
# V1 V2 
# 1: a b 
# 2: b d 
# 3: c e 

Một cách tiếp cận tương tự như sử dụng "dplyr" có thể là:

library(dplyr) 
data.frame(df, stringsAsFactors = FALSE) %>% 
    mutate(key = paste0(pmin(X1, X2), pmax(X1, X2), sep = "")) %>% 
    distinct(key) 
# X1 X2 key 
# 1 a b ab 
# 2 b d bd 
# 3 c e ce 

Answer 4

Bạn có thể sử dụng igraph để tạo biểu đồ không bị chiếu xạ và sau đó chuyển đổi về dữ liệu.frame

unique(get.data.frame(graph.data.frame(df, directed=FALSE),"edges"))