Subsetting Dataframe by Another logical Dataframe

Question

I have the following two dataframes, the first is the main one, and the second is the logical one.

df <- data.frame(
      x= c(1:10),
      y= c(11:20),
      z= c(21:30))
> df
  x  y  z
1   1 11 21
2   2 12 22
3   3 13 23
4   4 14 24
5   5 15 25
6   6 16 26
7   7 17 27
8   8 18 28
9   9 19 29
10 10 20 30

logic_df <- data.frame(
  x = c(rep(TRUE,2),rep(FALSE,8)),
  y = c(rep(TRUE,3),rep(FALSE,7)),
  z = c(rep(FALSE,9),rep(TRUE,1))
)
    > logic_df
       x     y     z
1   TRUE  TRUE FALSE
2   TRUE  TRUE FALSE
3  FALSE  TRUE FALSE
4  FALSE FALSE FALSE
5  FALSE FALSE FALSE
6  FALSE FALSE FALSE
7  FALSE FALSE FALSE
8  FALSE FALSE FALSE
9  FALSE FALSE FALSE
10 FALSE FALSE  TRUE

my goal is to achieve this:

I could achieve it by a long way so I appreciate if someone has a shortcut for it. thanks in advance

using Reduce df[Reduce('|', logic_df),]

Onyambu
– Onyambu

2022-06-21 07:02:29 +00:00
Commented Jun 21, 2022 at 7:02 — Onyambu
– Onyambu, Commented Jun 21, 2022 at 7:02

Kra.P · Accepted Answer · 2022-06-21 06:45:56Z

4

You may try

df[rowSums(logic_df) > 0,]
    x  y  z
1   1 11 21
2   2 12 22
3   3 13 23
10 10 20 30

I'm not sure where 31 came from.

answered Jun 21, 2022 at 6:45

Kra.P

15.2k6 gold badges12 silver badges29 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

PaulS · Accepted Answer · 2022-06-21 07:25:28Z

3

Another possible solution, based on dplyr:

library(dplyr)

df %>% 
  filter(do.call(pmax, logic_df) == 1)

#>    x  y  z
#> 1  1 11 21
#> 2  2 12 22
#> 3  3 13 23
#> 4 10 20 30

edited Jun 21, 2022 at 7:25

answered Jun 21, 2022 at 7:04

PaulS

27.1k3 gold badges19 silver badges40 bronze badges

2 Comments

Ammar Gamal Over a year ago

Thank you, Nice hint!, I'm away from laptop now but just curious would it be the same if I wrap "rowSums(logic_df)! =0" inside the filter() as well?

PaulS Over a year ago

Yes, @AmmarGamal, the following also works: df %>% filter(rowSums(logic_df) != 0).

akrun · Accepted Answer · 2022-06-21 15:51:30Z

0

Using if_any from dplyr

library(dplyr)
df %>%
  filter((if_any(everything(), ~ logic_df[[cur_column()]])))
   x  y  z
1  1 11 21
2  2 12 22
3  3 13 23
4 10 20 30

answered Jun 21, 2022 at 15:51

akrun

891k38 gold badges590 silver badges700 bronze badges

1 Comment

Ammar Gamal Over a year ago

Thank you,! another question popped up, what if I want the main df to only return the matching values of TRUE while everything else is NA so that it would be of the same original size?

Collectives™ on Stack Overflow

Subsetting Dataframe by Another logical Dataframe

3 Answers 3

Comments

2 Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

2 Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related