Oposto de% em%

262

Uma variável categórica V1 em um quadro de dados D1 pode ter valores representados pelas letras de A a Z. Quero criar um subconjunto D2, que exclui alguns valores, digamos, B, N e T. Basicamente, quero um comando que seja o oposto de %in%

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

r

— user702432
fonte

66

não em%? ( !(x %in% y)) A vida pode ser fácil, às vezes ...

— Joris Meys

possível duplicata de Como posso selecionar linhas de um dataframe que não corresponde?

— Perseguição

355

Você pode usar o !operador para fazer basicamente qualquer VERDADEIRO FALSO e todo FALSO VERDADEIRO. tão:

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

EDIT: Você também pode criar um operador:

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

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

— Sacha Epskamp
fonte

5

O uso da segunda opção é ilustrado na página de ajuda (correspondência) (onde você chegaria se digitasse ?"%in%") onde o novo operador é chamado %w/o%.

— IRTFM 29/04

23

veja também, ?Negatepor exemplo,"%ni%" <- Negate("%in%")

— baptiste

2

Negar trabalhou para mim quando usado após definição do novo operador, como sugerido por baptiste, por exemplo subset(df, variable %ni% c("A", "B")), mas não quando usado diretamente, por exemplosubset(df, variable Negate("%in%") c("A", "B"))

— PatrickT

2

@PatrickT, porque apenas operadores podem ser usados como operadores. e os operadores estão integrados ou iniciam e terminam %. Para criar um operador, você precisa atribuir uma função com dois operandos a um nome começando e terminando com %.

— ovelha voadora

64

E se:

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

— Spencer Castro
fonte

7

Eu dei essa resposta aqui

— falha catastrófica

stackoverflow.com/questions/14105229/…

— Ferroao 26/03

31

Se você olhar para o código de %in%

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

então você poderá escrever sua versão do oposto. eu uso

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

Outra maneira é:

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

— Marek
fonte

excelente solução .. Funcionou quando a negação regular falhou.

— Agatha

17

Aqui está uma versão usando filterem dplyrque se aplica a mesma técnica que a resposta aceita, negando a lógica com!

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

— user29609
fonte

12

Usar negatefrom purrrtambém faz o truque rápida e ordenadamente:

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

Então o uso é, por exemplo,

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

— EllaK
fonte

2

Há também um built-in Negateque faz o mesmo. A única diferença é que o ronronar chama as_mappero que você passa, enquanto o Negatechama match.fun. rdocumentation.org/packages/purrr/versions/0.2.5/topics/... stat.ethz.ch/R-manual/R-devel/library/base/html/match.fun.html

— ovelhas voando

7

purrr::compose() é outra maneira rápida de definir isso para uso posterior, como em:

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

— edavidaja
fonte

3

Outra solução poderia estar usando setdiff

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

D2 = setdiff(D1, D0)

D2 é o subconjunto desejado.

— user3373954
fonte

1

Hmisc tem %nin%função, o que deve fazer isso.

https://www.rdocumentation.org/packages/Hmisc/versions/4.4-0/topics/%25nin%25

— Matt
fonte

0

Eu acho que o uso mais claro é apenas

!('Spain' %in% c('Germany', 'France', 'Italy'))

— luissevillano
fonte

Como isso difere substancialmente das respostas já postadas aqui?

— camille

0

library(roperators)

1 %ni% 2:10

— Benbob
fonte

Embora essa possa ser uma resposta correta, seria mais útil com explicações adicionais sobre por que funciona. Considere editá-lo para incluir mais detalhes e, se achar que é melhor do que a resposta aceita, publicada quase uma década atrás.

— Jeremy Caney

0

require(TSDT)

c(1,3,11) %nin% 1:10
# [1] FALSE FALSE  TRUE

Para obter mais informações, consulte: https://cran.r-project.org/web/packages/TSDT/TSDT.pdf

— Vishal Sharma
fonte

-1

A ajuda para% em% help("%in%")inclui, na seção Exemplos, esta definição de não em,

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

Vamos tentar:

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

alternativamente

"%w/o%" <- function(x, y) !x %in% y #--  x without y
c(2,3,4) %w/o% c(2,8,9)
# [1] FALSE  TRUE  TRUE

— Tony Ladson
fonte