与％in％相反

262

数据帧D1中的分类变量V1可以具有由字母A到Z表示的值。我想创建一个子集D2，其中不包括某些值，例如B，N和T。基本上，我想要一个命令相反的 %in%

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

r

— 用户名
source

66

不是％in％？（!(x %in% y)）。有时候生活会很轻松……

— Joris Meys

可能重复我如何可以选择从数据帧不匹配的行？

— Chase

354

您可以使用!运算符从根本上将任何TRUE设为FALSE，并将每个FALSE设为TRUE。所以：

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

— 萨莎·埃斯普坎普（Sacha Epskamp）
source

5

第二个选项的用法在help（match）页面（如果您键入则进入该页面）中进行了说明，在该页面上?"%in%"调用了new运算符%w/o%。

— IRTFM

23

也可参见?Negate如"%ni%" <- Negate("%in%")

— 巴蒂斯特

2

根据baptiste的建议，subset(df, variable %ni% c("A", "B"))subset(df, variable Negate("%in%") c("A", "B"))

— Negate

2

@PatrickT，因为只有运算符可以用作运算符。并且运算符是内置的或以开头和结尾%。要创建运算符，您需要将一个具有两个操作数的函数分配给以和开头的名称%。

— 飞羊

64

怎么样：

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

— 斯潘塞·卡斯特罗（Spencer Castro）
source

7

我在这里

— 灾难性故障，

stackoverflow.com/questions/14105229/…–

— Ferroao

31

如果您看一下 %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

— 马雷克
source

极好的解决方案。当常规否定失败时，它会起作用。

— agatha 2012年

17

下面是使用一个版本filter中dplyr，通过否定逻辑与应用相同的技术接受的答案！

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

— 用户名
source

12

使用negatefrom purrr也可以快速而巧妙地完成技巧：

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

那么用法是，例如

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

— 埃拉克
source

2

还有一个内置的程序Negate可以做到这一点。唯一的区别是purrr调用as_mapper您传递的事物，而Negatecall 则调用match.fun。rdocumentation.org/packages/purrr/versions/0.2.5/topics/... stat.ethz.ch/R-manual/R-devel/library/base/html/match.fun.html

— 飞羊

7

purrr::compose() 是定义此方法供以后使用的另一种快速方法，如：

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

— 埃达维达哈
source

3

另一个解决方案可能是使用 setdiff

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

D2 = setdiff(D1, D0)

D2 是您想要的子集。

— 用户名
source

1

Hmisc具有%nin%功能，应该执行此操作。

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

— 马特
source

0

我认为最清楚的用途是

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

— 路易斯维利亚诺
source

这与此处已发布的答案有何实质性的区别？

— 卡米尔

0

library(roperators)

1 %ni% 2:10

— 本伯
source

尽管这可能是一个正确的答案，但对它为什么起作用的附加说明会更有用。考虑编辑它以包含更多详细信息，如果您觉得它比十年前发布的公认答案更好。

— 杰里米·卡尼

0

require(TSDT)

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

有关更多信息，您可以参考：https : //cran.r-project.org/web/packages/TSDT/TSDT.pdf

— 维沙尔·夏尔马
source

-1

help("%in%")在示例部分中，％in％的帮助包括not 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

或者

"%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

— 托尼·拉德森
source