r - 根据R中的另一个逻辑列表替换列表中的逻辑元素

Question

我正在尝试根据另一个列表更改列表的逻辑值（元素）。基本上，如果两个列表都是“TRUE”，我想将主列表中的值更改为“FALSE”。两个列表的长度都是 5。例如

List_A <- list(c(TRUE,FALSE,TRUE),c(FALSE,TRUE,TRUE),c(FALSE,FALSE,FALSE),c(TRUE,TRUE,TRUE),c(TRUE,FALSE,TRUE))

List_B <-list(c(FALSE,FALSE,FALSE),c(TRUE,TRUE,FALSE),c(TRUE,TRUE,TRUE),c(FALSE,FALSE,TRUE),c(FALSE,TRUE,TRUE))

列表 B 具有序列作为名称属性。

期望的输出：

Output <-
list(c(TRUE,FALSE,TRUE),c(FALSE,FALSE,TRUE),c(FALSE,FALSE,FALSE),c(TRUE,TRUE,FALSE),c(TRUE,FALSE,FALSE))

换句话说，listA 中的元素保持不变，除非它们在两个列表中都有匹配的 TRUE 值，这会将它们替换为 FALSE。我试过运行下面的 for 循环，但它不起作用，我不知道如何重定向输出，如果它这样做的话。

for(i in 1:length(List_A)) { List_A[[i]][List_B[[i]]] <- FALSE }

标签： rlistfunctionnested-loops

Answer 1

您可以借助Map功能。

如果两个值都TRUE变为FALSE或保持值来自List_A。

Output <- Map(function(x, y) replace(x, x & y, FALSE), List_A, List_B)
Output
#[[1]]
#[1]  TRUE FALSE  TRUE

#[[2]]
#[1] FALSE FALSE  TRUE

#[[3]]
#[1] FALSE FALSE FALSE

#[[4]]
#[1]  TRUE  TRUE FALSE

#[[5]]
#[1]  TRUE FALSE FALSE

数据

List_A <- list(c(TRUE,FALSE,TRUE),c(FALSE,TRUE,TRUE),c(FALSE,FALSE,FALSE),c(TRUE,TRUE,TRUE),c(TRUE,FALSE,TRUE))
List_B <- list(c(FALSE,FALSE,FALSE),c(TRUE,TRUE,FALSE),c(TRUE,TRUE,TRUE),c(FALSE,FALSE,TRUE),c(FALSE,TRUE,TRUE))