R Сравнение двухсторонних дубликатов в 2 столбцах

Question

Есть много похожих вопросов, но я бы хотел сравнить 2 столбца и удалить все дубликаты в обоих столбцах, так что все, что осталось, - это уникальные наблюдения в каждом столбце , Примечание. Дубликаты не бок о бок. Если возможно, мне также нужен список дубликатов (а не только TRUE/FALSE). Благодаря!

 C1 C2 
    1 a z 
    2 c d 
    3 f a 
    4 e c 

станет

 C1 C2 
    1 f z 
    2 e d 

с повторяющимся списком

duplicates: a, c 

Answer 1

Вот базовый метод R с использованием duplicated и lapply.

temp <- unlist(df) 
# get duplicated elements 
myDupeVec <- unique(temp[duplicated(temp)]) 

# get list without duplicates 
noDupesList <- lapply(df, function(i) i[!(i %in% myDupeVec)]) 

noDupesList 
$C1 
[1] "f" "e" 

$C2 
[1] "z" "d" 

данные

df <- read.table(header=T, text=" C1 C2 
    1 a z 
    2 c d 
    3 f a 
    4 e c ", as.is=TRUE) 

Обратите внимание, что это возвращает список. Это гораздо более гибкая структура, поскольку, как правило, существует вероятность того, что уровень может повторяться более одного раза в определенной переменной. Если это не так, вы можете использовать do.call и data.frame, чтобы вывести результат в прямоугольную структуру.

do.call(data.frame, noDupesList) 
    C1 C2 
1 f z 
2 e d 

Answer 2

Вот еще один ответ

where_dupe <- which(apply(df, 2, duplicated), arr.ind = T) 

дает вам расположение дублированных элементов в пределах вашего исходного кадра данных.

col_unique <- setdiff(1:ncol(df), where_dupe) 

дает вам столбцы не было дубликатов

Вы можете найти значения с помощью индексации.

df[,col_unique]