行と列の相反関係によるサブセット

Question

行と列の値の相反関係に基づいてdata.frameをサブセット化する際に問題があります。ここで

は、問題を説明するための例のDFである：

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

出力：

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

私は唯一の逆数の値を持つ行を保つことによって、このDFをサブセットしたいと思います。

結果のサブセットは、次のようになります。

rater ratee 
1 21 24 
4 24 21 

任意の考えをいただければ幸いです！

Answer 1

を使用することができます。

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

またはこの、それは（akrunのソリューションよりも遅くても）自分の小さな例に二回高速です何らかの理由：

第2の解決策を柔軟に保つ時間あなたの追加の列：akrunの方法とその精神において同様

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

Answer 2

我々が行でソートして、別の可能性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

、列のコピーへのrbind data.frameが逆転しました。下から順に重複を見つけ、元のdata.frameの行に対してTRUEを返します。この論理ベクトルを[seq_len(nrow(rating.data))]にサブセット化して、適切な長さのベクトルを[に戻して、行のサブセットを作成します。あなたはまた、複数のエントリを持つすべてのグループにフィルタを適用後、グループ化を支援するためにpminとpmaxを使用することができ

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

、すなわち

与え

library(dplyr) 

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

、

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