Frente a% en%

262

Una variable categórica V1 en un marco de datos D1 puede tener valores representados por las letras de la A a la Z. Quiero crear un subconjunto D2, que excluye algunos valores, por ejemplo, B, N y T. Básicamente, quiero un comando que sea lo contrario a %in%

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

r

— usuario702432
fuente

66

no en%? ( !(x %in% y)) La vida puede ser fácil a veces ...

— Joris Meys

posible duplicado de ¿Cómo puedo seleccionar filas de un marco de datos que no coinciden?

— Chase

355

Puedes usar el !operador para hacer básicamente cualquier VERDADERO FALSO y cada FALSO VERDADERO. entonces:

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

EDITAR: También puede hacer un operador usted mismo:

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

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

— Sacha Epskamp
fuente

55

El uso de la segunda opción se ilustra en la página de ayuda (coincidencia) (donde llegaría si escribiera ?"%in%") donde se llama al nuevo operador %w/o%.

— IRTFM

23

ver también, ?Negatepor ejemplo"%ni%" <- Negate("%in%")

— baptiste

2

Negate trabajó para mí cuando lo usé después de definir el nuevo operador, como lo sugirió baptiste, por ejemplo subset(df, variable %ni% c("A", "B")), pero no cuando lo usé directamente, por ejemplosubset(df, variable Negate("%in%") c("A", "B"))

— PatrickT

2

@PatrickT es porque solo los operadores pueden ser utilizados como operadores. y los operadores están integrados o comienzan y terminan con %. Para crear un operador, debe asignar una función con dos operandos a un nombre que comience y termine con %.

— ovejas voladoras

64

Qué tal si:

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

— Spencer Castro
fuente

77

Di esta respuesta aquí

— falla catastrófica el

stackoverflow.com/questions/14105229/…

— Ferroao

31

Si nos fijamos en el código de %in%

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

entonces deberías poder escribir tu versión de opuesto. yo suelo

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

Otra forma es:

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

— Marek
fuente

excelente solución ... funcionó cuando la negación regular falló.

— agatha

17

Aquí hay una versión que usa filterin dplyrque aplica la misma técnica que la respuesta aceptada al negar la lógica con!

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

— usuario29609
fuente

12

Usar negatefrom purrrtambién hace el truco de forma rápida y ordenada:

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

Entonces el uso es, por ejemplo,

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

— EllaK
fuente

2

También hay un incorporado Negateque hace lo mismo. La única diferencia es que el ronroneo llama as_mappera lo que pasa, mientras que las Negatellamadas match.fun. rdocumentation.org/packages/purrr/versions/0.2.5/topics/… stat.ethz.ch/R-manual/R-devel/library/base/html/match.fun.html

— ovejas voladoras el

7

purrr::compose() Es otra forma rápida de definir esto para su uso posterior, como en:

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

— edavidaja
fuente

3

Otra solución podría estar usando setdiff

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

D2 = setdiff(D1, D0)

D2 es tu subconjunto deseado.

— usuario3373954
fuente

1

Hmisc tiene %nin%función, que debería hacer esto.

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

— Mate
fuente

0

Creo que el uso más claro es solo

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

— luissevillano
fuente

¿Cómo difiere esto sustancialmente de las respuestas ya publicadas aquí?

— camille

0

library(roperators)

1 %ni% 2:10

— Benbob
fuente

Si bien esta puede ser una respuesta correcta, sería más útil con una explicación adicional de por qué funciona. Considere editarlo para incluir más detalles, y si cree que es mejor que la respuesta aceptada que se publicó hace casi una década.

— Jeremy Caney

0

require(TSDT)

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

Para obtener más información, puede consultar: https://cran.r-project.org/web/packages/TSDT/TSDT.pdf

— Vishal Sharma
fuente

-1

La ayuda para% en%, help("%in%")incluye, en la sección de Ejemplos, esta definición de no en,

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

Vamos a intentarlo:

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
fuente