％in％の反対

データフレームD1のカテゴリ変数V1は、AからZまでの文字で表される値を持つことができます。サブセットD2を作成します。これは、一部の値、たとえば、B、N、Tを除外します。基本的に、次のようなコマンドが必要です。の反対 %in%

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

!演算子を使用して、基本的に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

どうですか：

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

のコードを見ると %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

これは、論理を！で否定することにより、受け入れられた回答と同じ手法を適用するfilterin dplyrを使用するバージョンです。

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

negatefrom を使用することでpurrrも、トリックをすばやくかつ適切に実行できます。

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

次に、使用法は、例えば、

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

purrr::compose() これを後で使用するために定義する別の簡単な方法です。

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

別の解決策は setdiff

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

D2 = setdiff(D1, D0)

D2 は希望するサブセットです。

Hmiscには%nin%、これを行う機能があります。

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

一番分かりやすい使い方は

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

library(roperators)

1 %ni% 2:10

require(TSDT)

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

詳細については、https：//cran.r-project.org/web/packages/TSDT/TSDT.pdfを参照してください。

％in％のヘルプ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

あるいは

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