आर में दो कॉलम पर विचार करते हुए अद्वितीय पंक्तियां,

Question

मुझे मिले प्रश्नों के विपरीत, मैं आदेश के बिना दो कॉलम का अद्वितीय प्राप्त करना चाहता हूं।

मैं एक 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" 

इस मामले में, पंक्ति 1 और पंक्ति 4 "डुप्लीकेट" इस अर्थ में कि बी-बी-एक के रूप में ही है।

मुझे पता है कि स्तंभ 1 और 2 के अद्वितीय कैसे खोजें, लेकिन मुझे इस दृष्टिकोण के तहत प्रत्येक पंक्ति अद्वितीय दिखाई देगी।

Answer 1

बहुत के तरीके यह करने के लिए की हैं, यहाँ एक है:

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

एक अद्वितीय पंक्तियां देता है, अन्य मुखौटा देता है।

Answer 2

यदि सभी तत्व तार हैं (बिल्ली, भले ही नहीं और आप उन्हें मजबूर कर सकें), तो एक चाल इसे डेटा.फ्रेम के रूप में बनाना और dplyr की चालों का उपयोग करना है।

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 

$key कॉलम अब आपको दोहराना बताएगा।

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

तो यह सिर्फ दो कॉलम है, तो आप भी pmin और pmax, इस तरह उपयोग कर सकते हैं:

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 

एक समान दृष्टिकोण "dplyr" का उपयोग हो सकता है:

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

आप कर सकते थे अप्रत्यक्ष ग्राफ बनाने के लिए igraph का उपयोग करें और फिर डेटा.फ्रेम

पर वापस कनवर्ट करें

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