R - данные фильтра с dplyr с использованием условия тестирования

Question

Я пытаюсь использовать dplyr для filter мои данные на основе условия тестирования, но это условие проверки может меняться в зависимости от других переменных.

Используя встроенный образец набора данных cars:

data(cars) 

Я хотел бы сделать что-то вроде этого:

if (foo == 0) { 
    test <- speed > 15 
} else { 
    test <- dist < 50 
} 
filter(cars, test) 

Это не работает. Я могу заставить его работать, если я изменить его на что-то вроде этого:

if (foo == 0) { 
    test <- 'cars$speed > 15' 
} else { 
    test <- 'cars$dist < 50' 
} 
filter(cars, eval(parse(text = test))) 

Но

1. Имея в впечатать cars$speed и cars$dist, кажется, поражение цели с помощью функции filter.
2. Согласно this SO ответьте, используя конструкцию eval(parse(text = ...)) не рекомендуется.

Есть ли лучший способ достичь этого?

Answer 1

Это работает для меня:

library(dplyr) 

if (foo == 0) { 
    test <- cars$speed > 15 
} else { 
    test <- cars$dist < 50 
} 

filter(cars, test) 

Я не вижу проблемы в использовании cars$speed и cars$dist только потому, что вы используете filter. Кроме того, вам действительно нужно использовать filter? Там альтернатива сделать это с помощью базы R. Заменить последнюю строку на:

cars[test,] 

Answer 2

Вы можете сделать это:

filter(cars, if(foo==0){speed>15}else{dist<50}) 

испытание путем сравнения с простым фильтром:

> foo =0 
> identical(filter(cars, speed>15), filter(cars, if(foo==0){speed>15}else{dist<50})) 
[1] TRUE 
> foo =1 
> identical(filter(cars, dist<50), filter(cars, if(foo==0){speed>15}else{dist<50})) 
[1] TRUE 

Возможно, было бы проще и аккуратнее поставить оператор filter внутри фигурных скобок:

if (foo == 0) { 
    filter(cars, speed > 15) 
} else { 
    filter(cars, dist < 50) 
} 

Примечание, если вы хотите, чтобы присвоить результат где-то, то if возвращает значение:

> ff = if (foo == 0) { 
     filter(cars, speed > 15) 
    } else { 
     filter(cars, dist < 50) 
    } 
> identical(ff, filter(cars, speed>15)) 
[1] FALSE 
> identical(ff, filter(cars, dist<50)) 
[1] TRUE 
> foo 
[1] 1