R过滤逻辑

Question

需要一些有关如何修复此过滤逻辑的见解。

test.session <- c("A","A","A","B","B","B")
test.start_flag <- c("1","0","0","1","0","0")
test.url <- c("in_list","in_field","out","not_in_list","in_field","out")
test.code_map <- 'tbd'
test.manual_map <- c("1","1","0","0","0","0")
test.df <- data.frame(test.session, test.start_flag, test.url, test.code_map, test.manual_map)

我想生成test.code_map 以匹配test.manual_map 向量。我已经对前四行进行了编码，但是需要对第 5 行和第 6 行的逻辑进行调整。逻辑：

• 如果起始标志为 1 且 url 为 'in_list'，则 code_map 等于 1（完成）
• 如果起始标志为 0 且 url 为 'in_field'，则 code_map 等于 1（完成）
• 如果起始标志为 0 且 url 为“out”，则 code_map 等于 0（完成）
• 如果开始标志为 1 且 url 为 'not_in_list' 则代码映射等于 0（完成）
• 如果起始标志为 0 且 url 为 'out'，则代码映射等于 0（完成 - 同上）
• 如果起始标志为 0 且 url 为 'in_field'，则代码映射等于 0 ***需要调整逻辑

*** 此字段需要等于 0，因为在此特定会话（会话 B）中，起始 URL 不等于我定义的字段，因此 code_map 的所有值都需要等于 0仅当满足此特定条件时。

Answer 1

理解你想要什么有点令人困惑，但似乎如果一个测试会话有一个 test.url “not_in_list”，那么该测试会话的所有 test.code_maps 应该是 0。如果是这样，这应该工作

test.df$test.code_map<-ifelse(
  ((test.df$test.start_flag == 1 & test.df$test.url=="in_list")|
  (test.df$test.start_flag == 0 & test.df$test.url=="in_field"& test.df$test.session!="B") &
    !test.session %in% test.df$test.session[test.df$test.url=="not_in_list"]),
  1, 0)