Логическая обработка списков в R

Question

Я некоторые R, который, например:

x<-c(-3,1,-5,7,-10) 
y<-c(1,2,3,4,5) 

Я хочу проверить элементы х против некоторого условия, т.е. < 0, и если это правда, манипулируют у на основе что.

Например, если мой логический контроль был х < 0, то элементы [0], [2], [4] у будут изменены, то есть:

print(y) 
y=[0,2,0,3,0] 

Я гугл вокруг бит и не находят ничего, что делает его элементарным. Я уверен, что это неудача google-fu, но очень благодарна.

Answer 1

Например, это добавит 1 к этим значениям.

y[x < 0] <- y[x < 0] + 1 

Предполагая, что вы хотите сохранить все элементы Y:

y <- ifelse(x < 0, 0, y) 

Answer 2

y[x < 0] <- 0 
y 
#[1] 0 2 0 4 0 

Индексация начинается с 1 в R. Мы можем подмножество y логическим индексом x < 0. Одной из сильных сторон R является способность подмножества имен, булевых чисел и чисел.

Эти две функции возвращают одинаковый выход y[c(TRUE, FALSE, TRUE, FALSE, TRUE)] и y[c(1,3,5)]. Функция пытается определить, какой тип подмножества вы делаете.

Третий случай для подмножества не может использоваться в этом примере, потому что y не имеет имен. Но если мы назвали вектор, мы тоже можем подмножить этот путь.

names(y) <- c("A", "B", "C", "D", "E") 
y[c("A", "C", "E")] 

---

также, что вы замедлились распорными и операторы присваивания. Он уникален для R, но <- похож на =.

x<-5 

В этом случае <- получает приоритет в порядке операций и эквивалентна x = 5, не x < -5.

Answer 3

Из-за способом реализованы булевы переменные, вы можете использовать их в арифметике, как если бы они равны 0 или 1, и, следовательно, для примера вы можете использовать:

y*(x>=0) 
[1] 0 2 0 4 0 

Для метода более общего назначения, функция replace существует:

replace(y,x<0,0) 
[1] 0 2 0 4 0