R: когда оба события (столбцы) имеют значение true, обратитесь к одному из них, чтобы определить значение

Question

Я хочу манипулировать двумя столбцами в R, поэтому, когда оба события имеют значение true, обратитесь к одному из столбцов, чтобы определить значение.Например:

a<- c(0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0)
b<- c(0,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0)

, когда a и b оба имеют значение true, для a [9] и a [10], обратитесь к b, чтобы определить значение другого столбца c в следующих строках.Затем, если b равно FALSE на некоторой строке, (здесь строка 17) еще раз проверьте, верны ли оба значения a и b.Итак, желаемый результат выглядит следующим образом:

c<- c(0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0)
data <- cbind(a,b,c)
data
      a b c
 [1,] 0 0 0
 [2,] 0 1 0
 [3,] 0 1 0
 [4,] 0 0 0
 [5,] 0 0 0
 [6,] 1 0 0
 [7,] 1 0 0
 [8,] 1 0 0
 [9,] 1 1 1
[10,] 1 1 1
[11,] 0 1 1
[12,] 0 1 1
[13,] 0 1 1
[14,] 0 1 1
[15,] 0 1 1
[16,] 0 1 1
[17,] 0 0 0
[18,] 0 0 0

Поскольку данные располагаются во многих строках, я бы предпочел использовать векторизованный метод, например ifelse (), для обработки этого.

Большое спасибо всем, кто может мне помочь с этим.

Answer 1

Я не уверен на 100%, что понимаю проблему, но здесь есть решение, которое воспроизводит вывод:

a<- c(0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0)
b<- c(0,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0)
df <- data.frame(a,b)

library(tidyverse)
df %>% mutate(c=case_when(
  a == 1 & b == 1 ~ 1,
  a == 0 & b == 0 ~ 0,
  TRUE ~ NA_real_
)) %>% fill(c)

#    a b c
# 1  0 0 0
# 2  0 1 0
# 3  0 1 0
# 4  0 0 0
# 5  0 0 0
# 6  1 0 0
# 7  1 0 0
# 8  1 0 0
# 9  1 1 1
# 10 1 1 1
# 11 0 1 1
# 12 0 1 1
# 13 0 1 1
# 14 0 1 1
# 15 0 1 1
# 16 0 1 1
# 17 0 0 0
# 18 0 0 0