如何使用子集从数据框中删除行？

Question

I have a column in a data frame called Retest_data that goes like this:

SFC
YU006UGD31092
YU006UGD31071
YU006UGD30152
YU006UGD25831
YU006UGD25831
YU006UGD25332
YU006UG922912
YU006UG922912

And what I want is to remove all instances of values that occur more than once. So dplyr functions like unique and distinct won't work for me.

I also have a list called Remove_SFC that has all the SFC values that occur more than once. How can I use this list to remove all recurring values from my data? Thanks.

Answer 1

Data:

df <- data.frame(SFC = c("YU006UGD31092","YU006UGD31071",
                         "YU006UGD30152",
                         "YU006UGD25831",
                         "YU006UGD25831",
                         "YU006UGD25332" ,
                         "YU006UG922912",
                         "YU006UG922912"))

Code:

df %>% 
  group_by(SFC) %>% 
  filter(n() == 1)

Output:

  SFC          
  <chr>        
1 YU006UGD31092
2 YU006UGD31071
3 YU006UGD30152
4 YU006UGD25332

Edit:

If you have the list, you can also do:

df %>% 
  filter(!(SFC %in% Remove_SFC))

Answer 2

As an alternative you can use dplyr 's anti_join . anti_join return all rows from df without a match in Remove_SFC :

library(dplyr)

df %>% 
  anti_join(data.frame(SFC=Remove_SFC))

which returns

Joining, by = "SFC"
            SFC
1 YU006UGD31092
2 YU006UGD31071
3 YU006UGD30152
4 YU006UGD25332

Data

Remove_SFC <- c("YU006UG922912", "YU006UGD25831")