Select groups where all values are larger than x

user_14643599 0
Viewed 51

I have a data frame which is grouped by 'subject'. I want filter those 'subject' where all 'values' are above a certain value, values > 0.5

Example df:

df1 <- data.frame(subject = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5),
                   values = c(.4, .6, .6, .6, .6, .6, .6, .6, .6, .4))
df1
   subject values
1        1    0.4
2        2    0.6
3        3    0.6
4        4    0.6
5        5    0.6
6        1    0.6
7        2    0.6
8        3    0.6
9        4    0.6
10       5    0.4

Desired output:

> df1
  subject values
1       2    0.6
2       3    0.6
3       4    0.6
4       2    0.6
5       3    0.6
6       4    0.6
filter r
3 Answers

a data.table approach

library(data.table_)
setDT(df1)[, .SD[all(values == 0.6) == TRUE], by = .(subject)][]
#    subject values
# 1:       2    0.6
# 2:       2    0.6
# 3:       3    0.6
# 4:       3    0.6
# 5:       4    0.6
# 6:       4    0.6
user_63562780

You can use all() inside a grouped filter using dplyr:

library(dplyr)

df1 %>%
  group_by(subject) %>%
  filter(all(values > .5)) %>%
  ungroup()

Output:

# A tibble: 6 x 2
  subject values
    <dbl>  <dbl>
1       2    0.6
2       3    0.6
3       4    0.6
4       2    0.6
5       3    0.6
6       4    0.6
user_173038050

Using min in ave.

df1[with(df1, ave(values, subject, FUN=min)) > .5, ]
#   subject values
# 2       2    0.6
# 3       3    0.6
# 4       4    0.6
# 7       2    0.6
# 8       3    0.6
# 9       4    0.6
user_65740380
Related