Есть ли короткое отрицание %in% в R, например !%in% или %!in%?
Конечно, я могу отрицать c("A", "B") %in% c("B", "C") на !(c("A", "B") %in% c("B", "C")) (см. этот вопрос), но я бы предпочел более прямолинейный подойдите и сохраните пару скобок (похоже, что большинство людей предпочли бы c("A", "B") != c("B", "C") вместо !(c("A", "B") == c("B", "C"))).
Нет, для этого нет встроенной функции, но вы можете легко запрограммировать ее самостоятельно с помощью
`%nin%` = Negate(`%in%`)
Or
`%!in%` = Negate(`%in%`)
См. эту ветку и последующее обсуждение: %in% оператор - НЕ В
Кроме того, было указано, что пакет Hmisc включает оператор %nin%, поэтому, если вы используете его для своих приложений, он уже есть.
library(Hmisc)
"A" %nin% "B"
#[1] TRUE
"A" %nin% "A"
#FALSE
! перед своим аргументом.
- person MichaelChirico; 13.07.2016
Вы всегда можете создать его:
> `%out%` <- function(a,b) ! a %in% b
> 1:10 %out% 5:15
[1] TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
В противном случае есть несколько похожая функция с setdiff, которая возвращает уникальные элементы a, которых нет в b:
> setdiff(1:10,5:15)
[1] 1 2 3 4
> setdiff(5:15,1:10)
[1] 11 12 13 14 15
setdiff вместо инвертированного %in%, поскольку, как следует из названия, это операция set и, следовательно, возвращает только unique элементы a, которых нет в b. Это может сильно отличаться от отрицательного %in%.
- person talat; 13.07.2016
На самом деле вам не нужны дополнительные скобки, !c("A", "B") %in% c("B", "C") работает.
Если вы предпочитаете что-то, что читается проще, просто определите это самостоятельно:
"%nin%" <- function(x, table) match(x, table, nomatch = 0L) == 0L
Преимущество этого заключается в том, что усилия не тратятся впустую — мы не получаем результат, а затем отрицаем его, мы просто получаем результат напрямую. (разница вообще должна быть тривиальной)
Функция %!in% теперь доступна в library(operators)
