Đối diện% trong%

Một biến phân loại V1 trong khung dữ liệu D1 có thể có các giá trị được biểu thị bằng các chữ cái từ A đến Z. Tôi muốn tạo một tập hợp con D2, loại trừ một số giá trị, giả sử, B, N và T. Về cơ bản, tôi muốn có một lệnh sự đối lập của %in%

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

!Về cơ bản, bạn có thể sử dụng toán tử để thực hiện bất kỳ TRUE FALSE và mọi FALSE TRUE. vì thế:

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

EDIT: Bạn cũng có thể tự thực hiện một toán tử:

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

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

Làm thế nào về:

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

Nếu bạn nhìn vào mã của %in%

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

sau đó bạn sẽ có thể viết phiên bản ngược lại của bạn. tôi sử dụng

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

Một cách khác là:

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

Đây là một phiên bản sử dụng filtertrong dplyrđó áp dụng kỹ thuật tương tự như câu trả lời được chấp nhận bằng cách phủ định logic với !:

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

Sử dụng negatetừ purrrcũng làm thủ thuật nhanh chóng và gọn gàng:

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

Sau đó, việc sử dụng là, ví dụ,

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

purrr::compose() là một cách nhanh chóng khác để xác định điều này để sử dụng sau, như trong:

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

Một giải pháp khác có thể được sử dụng setdiff

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

D2 = setdiff(D1, D0)

D2 là tập hợp con mong muốn của bạn.

H'misc có %nin%chức năng, nên làm điều này.

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

Tôi nghĩ rằng việc sử dụng rõ ràng nhất chỉ là

!('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

Để biết thêm thông tin, bạn có thể tham khảo: https://cran.r-project.org/web/packages/TSDT/TSDT.pdf

Trợ giúp cho% in%, help("%in%")bao gồm, trong phần Ví dụ, định nghĩa này không có trong,

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

Hãy thử nó:

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

Hoặc

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