Скажем, у меня есть следующие данные для ввода в R
x <- c(1,1,0,0,0,0)
y <- c(1,0,1,0,0,0)
z <- c(0,0,0,0,1,1)
p <- c(0,0,0,1,1,0)
data <- data.frame(x,y,z,p)
Теперь я хочу ввести в данные новую переменную под названием «кошка».
внутри cat я хочу присвоить значения «a» любому наблюдению, где 1 появляется либо в x, либо в y o появляется в обоих. Я хочу присвоить значение «b» наблюдениям, где 1 появляется в любом/оба из z и p.
c("b", "a")[(!!rowSums(data[,1:2])) +0 + (!!rowSums(data[,3:4])+1)]
#[1] "a" "a" "a" "b" "b" "b"
x, y, которые являются 1, не пересекаются с z или p, имеющими 1 значенияВ качестве первого шага я сделал rowSums для столбцов x и y.
rowSums(data[,1:2])
#[1] 2 1 1 0 0 0
Двойное отрицание приведенного выше результата и добавление 0 дает
(!!rowSums(data[,1:2]))+0
#[1] 1 1 1 0 0 0
То же самое при применении к столбцам z и p, но я добавляю 1, что дает
(!!rowSums(data[,3:4]))+1
#[1] 1 1 1 2 2 2
Если вы добавите два вышеуказанных результата, получите
(!!rowSums(data[,1:2])) +0 + (!!rowSums(data[,3:4])+1)
#[1] 2 2 2 1 1 1
Это можно использовать как числовой индекс, так что если я использую c("b", "a")[!!rowSums..], значения 2 будут заменены на b, а 1 на a.
Эта строка возвращает «a», если x или y не равно нулю, и «b» в противном случае.
ifelse(data$x | data$y, "a", "b")
# [1] "a" "a" "a" "b" "b" "b"
Если вам нужно обработать случай, когда все четыре столбца равны нулю, вы можете использовать:
ifelse(data$x | data$y,
"a",
ifelse(data$z | data$p, "b", "neither a nor b"))
