Як видалити декілька значень з вектора?

У мене такий вектор, як: a = c(1:10)і мені потрібно видалити декілька значень, наприклад:2, 3, 5

Як видалити ці числа (вони НЕ позиції у векторі) у векторі?

на даний момент я петлю вектор і роблю щось на кшталт:

a[!a=NUMBER_TO_REMOVE]

Але я думаю, що є функція, яка робить це автоматично.

%in%Оператор каже вам , які елементи є одними з numers видалити:

> 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

Зверніть увагу, що це мовчки видалить непорівнянні (такі речі, як NAі Inf)добре (в той час як вони зберігатимуть повторювані значення до aтих пір, поки вони не вказані в remove).

• Якщо aможе містити незрівнянні, але removeне буде, ми можемо використовувати match, кажучи, щоб повернутись 0за невідповідністю та незрівнянними ( %in%є загальним ярликом для 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 = 0не потрібен, оскільки незрівнянні все одно не збігаються, але я б включив його заради читабельності.
  Це, до речі, те, що setdiffробиться всередині (але без того, uniqueщоб викидати дублікати, в aякі не знаходяться remove).

• Якщо removeмістяться непорівнянні, вам доведеться перевіряти їх окремо, наприклад

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

  (Це не відрізняється NAвід, NaNале керівництво R все одно попереджає, що не слід покладатися на наявність різниці між ними)

  Для Inf/ -Infвам доведеться перевірити і те, signіis.finite

Можна використовувати setdiff.

Дано

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

Тоді

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

Ви можете це зробити так:

> 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

Незабаром

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

замість

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

використовуючи пакети, purrrі magrittrви можете:

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

це дозволяє subsetвикористовувати ting, використовуючи ім'я вектора лише один раз. І ви можете використовувати його в трубах :)

Спочатку ми можемо визначити нового оператора,

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

Тоді, як x не у видаленні

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

або навіщо йти на видалення, перейдіть безпосередньо

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

ОНОВЛЕННЯ:

Усі вищезазначені відповіді не працюватимуть для повторних значень, відповідь @ BenBolker за допомогою duplicated()предиката вирішує це:

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

Оригінальний відповідь: тут я пишу для цього невелику функцію:

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)
}

так, скажімо, full_vector=c(1,2,3,4,1)і searched_vector=c(1,2,3).

exclude_val(full_vector,searched_vector)повернеться (4,1), однак вищевказані відповіді повернуться просто (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

Це встановлює 13 у векторі не число (NAN), воно показує помилкове видалення (q [c (11,12,13)]), якщо ви спробуєте це, ви побачите, що функція видалення не працює на векторному номері. ви видаляєте весь вектор, але, можливо, не один елемент.

Є також, subsetщо іноді може бути корисним:

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

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