Podzbiór według wzajemności w wierszach i kolumnach

Question

Mam problem z podzbiorem danych.frame na podstawie wzajemności wartości w wierszu i kolumnie.

Oto przykład df do zilustrowania problemu:

rater <- c(21, 23, 26, 24) 
ratee <- c(24, 21, 23, 21) 
rating.data <- data.frame(rater, ratee) 

wyjściowa:

rater ratee 
1 21 24 
2 23 21 
3 26 23 
4 24 21 

Chciałbym podzbiór ten df tylko o utrzymanie wiersze, które mają wartości wzajemnych.

Powstały podzbiór powinna wyglądać następująco:

rater ratee 
1 21 24 
4 24 21 

Wszelkie myśli będą mile widziane!

Answer 1

Inna możliwość:

library(dplyr) 
rating.data %>% inner_join(.,.,by=c("rater" = "ratee","ratee"="rater")) 

Albo to, z jakiegoś powodu, to jest dwa razy szybciej na małej przykład (choć wolniej niż rozwiązania akrun za) :

merge(rating.data,setNames(rating.data,rev(names(rating.data)))) 

utrzymanie drugiego rozwiązania elastycznego dowcipu h twoje dodatkowe kolumny:

merge(rating.data,setNames(rating.data[,c("rater","ratee")],c("ratee","rater"))) 

Answer 2

Możemy sortować według wiersza, a następnie użyć duplicated

m1 <- t(apply(rating.data, 1, sort)) 
rating.data[duplicated(m1)|duplicated(m1, fromLast = TRUE),] 
# rater ratee 
#1 21 24 
#4 24 21 

Answer 3

library(data.table) 
N=10#number of rows 
dt1<-data.table(a=1:N,b=sample(N))#create the data.table that holds the info 

dt1[,d:=ifelse(a<b,paste0(a,"_",b),paste0(b,"_",a))]#create unique key per pair respecting the rule "min_max" 
setkey(dt1,d)#setting the key 
dt1[dt1[,.N,d][N!=1],.(a,b)] #keep only the pairs that appear more than once 

Answer 4

w duchu podobnym do akrun na sposób, rbind data.frame do kopii z kolumn odwróconych. znajdź duplikaty, zaczynając od dołu, które następnie zwrócą TRUE dla wierszy oryginalnego data.frame. Podziel ten wektor logiczny za pomocą [seq_len(nrow(rating.data))], aby zwrócić wektor o odpowiedniej długości do [, aby uzyskać podzbiór w wierszach.

rating.data[duplicated(rbind(rating.data, 
          unname(unclass(rating.data[2:1]))), 
         fromLast=TRUE)[seq_len(nrow(rating.data))],] 
    rater ratee 
1 21 24 
4 24 21 

Answer 5

Można również użyć pmin i pmax pomóc z grupy, a następnie filtrować wszystkich grupach mających więcej niż jeden wpis, tzn

library(dplyr) 

df %>% 
group_by(grp = paste0(pmin(rater, ratee), pmax(rater, ratee))) %>% 
filter(n() > 1) %>% 
ungroup() %>% 
select(-grp) 

co daje,

# A tibble: 2 x 2 
    rater ratee 
    <dbl> <dbl> 
1 21 24 
2 24 21