Противоположность% в%

Question

Категориальная переменная V1 в кадре данных D1 может иметь значения, представленные буквами от A до Z. Я хочу создать подмножество D2, которое исключает некоторые значения, скажем, B, N и T. В основном, я хочу команда, противоположная %in%

D2 = subset(D1, V1 %in% c('B','N',T'))

Answer 1

Вы можете использовать оператор !, чтобы фактически сделать любое ИСТИННОЕ ЛОЖЬ и каждое ЛОЖНОЕ ИСТИНА.Итак:

D2 = subset(D1, !(V1 %in% c('B','N','T')))

РЕДАКТИРОВАТЬ: Вы также можете сделать оператор самостоятельно:

'%!in%' <- function(x,y)!('%in%'(x,y))

c(1,3,11)%!in%1:10
[1] FALSE FALSE  TRUE

Answer 2

Как насчет:

'%ni%' <- Negate('%in%')
c(1,3,11) %ni% 1:10
# [1] FALSE FALSE  TRUE

Answer 3

Если вы посмотрите на код %in%

 function (x, table) match(x, table, nomatch = 0L) > 0L

, то вы сможете написать свою версию противоположного.Я использую

`%not in%` <- function (x, table) is.na(match(x, table, nomatch=NA_integer_))

Другой способ:

function (x, table) match(x, table, nomatch = 0L) == 0L

Answer 4

Вот версия, использующая filter в dplyr, которая применяет ту же технику, что и принятый ответ, отрицая логическое с!:

D2 <- D1 %>% dplyr::filter(!V1 %in% c('B','N','T'))

Answer 5

Использование negate из purrr также делает трюк быстро и аккуратно:

`%not_in%` <- purrr::negate(`%in%`)

Тогда использование, например,

c("cat", "dog") %not_in% c("dog", "mouse")

Answer 6

purrr::compose() - это еще один быстрый способ определить это для дальнейшего использования, например:

`%!in%` <- compose(`!`, `%in%`)

Answer 7

Другое решение может использовать setdiff

D1 = c("A",..., "Z") ; D0 = c("B","N","T")

D2 = setdiff(D1, D0)

D2 - желаемое подмножество.

Answer 8

Справка по% в%, help("%in%"), в разделе «Примеры» содержит это определение не в,

"%w/o%" <- function(x, y) x[!x %in% y] #-- x without y

Давайте попробуем:

c(2,3,4) %w/o% c(2,8,9)
[1] 3 4