CODEWITHSUNDEEP
rdataframeduplicates
Mr. Biggums
Mr. Biggums

Reputation: 207

Find and remove duplicated observations across two columns in R

I have an example data set like this:


df1 <- data.frame(c1=c('a','b','c','d','e','f','g', 'h'),
         c2=c('l','m','a','g','e','q','a','d'))

and I just want a data frame that removed the duplicates between c1 and c2. I already know how to grab the unique elements from c1 and c2, but what do I do after that, to end up with something like the following:

data.frame(c1=c(b,c,f,h),c2=c(l,m,q,NA))

Upvotes: 2

Views: 65

Answers (2)

M--
M--

Reputation: 29202

One-liner in base:

sapply(list(df1$c1[!df1$c1%in%df1$c2], 
            df1$c2[!df1$c2%in%df1$c1]), '[', 1:length(setdiff(df1$c1, df1$c2)))

#     [,1] [,2]
# [1,] "b"  "l" 
# [2,] "c"  "m" 
# [3,] "f"  "q" 
# [4,] "h"  NA

Upvotes: 2

akrun
akrun

Reputation: 887851

An option is to get the intersecting elements with Reduce, remove those elements from each column with %in% and !, and then pad NA at the end

v1 <- Reduce(intersect, df1)
lst1 <- lapply(df1, function(x) x[!x %in% v1])
data.frame(lapply(lst1, `length<-`, max(lengths(lst1))))
#  c1   c2
#1  b    l
#2  c    m
#3  f    q
#4  h <NA>

data

df1 <- data.frame(c1=c('a','b','c','d','e','f','g', 'h'),
         c2=c('l','m','a','g','e','q','a','d'))

Upvotes: 3

Related Questions