Filter ranges of values where the ranger upper and lower bounds are stored in their own data frame.

filter_ranges_in_df.r

filters_df <- data.frame(lower = c(0, 10, 20),
                         upper = c(2, 12, 22),
                         filter_name = paste('filter',c('A','B','C'), sep='_'))

df <- data.frame(x = 1:30)

named_range <- function( lower, upper, name, data) {
  data > lower & data < upper
}

all_ranges <- function( x, ranges_df){
  mapply(FUN=named_range, ranges_df$lower, ranges_df$upper, ranges_df$filter_name, MoreArgs=list(data=x))
}

lapply(df, FUN=all_ranges, filters_df)