Làm thế nào để xóa nhiều giá trị từ một vectơ?

Tôi có một vectơ như: a = c(1:10)và tôi cần xóa nhiều giá trị, như:2, 3, 5

Làm thế nào để xóa những số đó (chúng KHÔNG phải là vị trí trong vectơ) trong vectơ?

tại thời điểm tôi lặp vector và làm một cái gì đó như:

a[!a=NUMBER_TO_REMOVE]

Nhưng tôi nghĩ có một chức năng thực hiện nó tự động.

Các %in%nhà điều hành sẽ cho bạn biết các yếu tố là một trong những numers để loại bỏ:

> a <- sample (1 : 10)
> remove <- c (2, 3, 5)
> a
 [1] 10  5  2  7  1  6  3  4  8  9
> a %in% remove
 [1] FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE
> a [! a %in% remove]
 [1] 10  7  1  6  4  8  9

Lưu ý rằng điều này sẽ âm thầm loại bỏ những thứ không thể so sánh được (thứ tương tự NAhoặc Inf)tốt (trong khi nó sẽ giữ các giá trị trùng lặp amiễn là chúng không được liệt kê trong remove).

• Nếu acó thể chứa không thể so sánh được, nhưng removesẽ không, chúng ta có thể sử dụng match, yêu cầu nó trả lại 0cho các kết quả không khớp và không thể so sánh được ( %in%là một phím tắt thông thường cho match):

  > a <- c (a, NA, Inf)
  > a
   [1]  10   5   2   7   1   6   3   4   8   9  NA Inf
  > match (a, remove, nomatch = 0L, incomparables = 0L)
   [1] 0 3 1 0 0 0 2 0 0 0 0 0
  > a [match (a, remove, nomatch = 0L, incomparables = 0L) == 0L]
  [1]  10   7   1   6   4   8   9  NA Inf
  

  incomparables = 0không cần thiết vì dù sao cũng không thể so sánh được, nhưng tôi bao gồm nó vì mục đích dễ đọc.
  Đây là, btw., Những gì setdifflàm trong nội bộ (nhưng không có uniqueđể loại bỏ các bản sao trong ađó không có trong remove).

• Nếu removechứa không thể so sánh được, bạn sẽ phải kiểm tra riêng lẻ, vd

  if (any (is.na (remove))) 
    a <- a [! is.na (a)]
  

  (Điều này không phân biệt NAvới NaNnhưng dù sao thì hướng dẫn sử dụng R cảnh báo rằng người ta không nên dựa vào việc có sự khác biệt giữa chúng)

  Cho Inf/ -Infbạn sẽ phải kiểm tra cả hai signvàis.finite

Bạn có thể sử dụng setdiff.

Được

a <- sample(1:10)
remove <- c(2, 3, 5)

Sau đó

> a
 [1] 10  8  9  1  3  4  6  7  2  5
> setdiff(a, remove)
[1] 10  8  9  1  4  6  7

Bạn có thể làm như sau:

> x<-c(2, 4, 6, 9, 10) # the list
> y<-c(4, 9, 10) # values to be removed

> idx = which(x %in% y ) # Positions of the values of y in x
> idx
[1] 2 4 5
> x = x[-idx] # Remove those values using their position and "-" operator
> x
[1] 2 6

Một thời gian ngắn

> x = x[ - which(x %in% y)]

thay vì

x <- x[! x %in% c(2,3,5)]

sử dụng các gói purrrvà magrittr, bạn có thể làm:

your_vector %<>% discard(~ .x %in% c(2,3,5))

điều này cho phép subsetting sử dụng tên vector chỉ một lần. Và bạn có thể sử dụng nó trong đường ống :)

Đầu tiên chúng ta có thể định nghĩa một toán tử mới,

"%ni%" = Negate( "%in%" )

Sau đó, nó giống như x không loại bỏ

x <- 1:10
remove <- c(2,3,5)
x <- x[ x %ni% remove ]

hoặc tại sao phải đi để loại bỏ, đi trực tiếp

x <- x[ x %ni% c(2,3,5)]

CẬP NHẬT:

Tất cả các câu trả lời trên sẽ không hoạt động đối với các giá trị được lặp lại, câu trả lời @ BenBolker sử dụng duplicated()vị ngữ giải quyết điều này:

full_vector[!full_vector %in% searched_vector | duplicated(full_vector)]

Câu trả lời gốc: ở đây tôi viết một hàm nhỏ cho việc này:

exclude_val<-function(full_vector,searched_vector){

      found=c()

      for(i in full_vector){  

        if(any(is.element(searched_vector,i))){
          searched_vector[(which(searched_vector==i))[1]]=NA
        }
        else{
          found=c(found,i)
        }
    }

    return(found)
}

vì vậy, hãy nói full_vector=c(1,2,3,4,1)và searched_vector=c(1,2,3).

exclude_val(full_vector,searched_vector)sẽ trả về (4,1), tuy nhiên câu trả lời ở trên sẽ trả về (4).

q <- c(1,1,2,2,3,3,3,4,4,5,5,7,7)
rm <- q[11]
remove(rm)
q
q[13] = NaN
q
q %in% 7

Điều này đặt 13 trong một vectơ thành một số (NAN), nó hiển thị xóa sai (q [c (11,12,13)]) nếu bạn thử điều này, bạn sẽ thấy hàm loại bỏ không hoạt động trên số vectơ. bạn loại bỏ toàn bộ vector nhưng có thể không phải là một yếu tố duy nhất.

subsetĐôi khi cũng có thể hữu ích:

a <- sample(1:10)
bad <- c(2, 3, 5)

> subset(a, !(a %in% bad))
[1]  9  7 10  6  8  1  4