复制 is.element答案

【问题标题】：Replicating is.element复制 is.element
【发布时间】：2019-09-22 23:29:02
【问题描述】：

我需要在 R 中复制 is.element 函数。我有两个向量，需要比较每个向量中的值，如果一个匹配另一个，则输出为 True，其他所有向量为 False。

我尝试过的代码不太好用：

x <- c(3, 0, -2, 0)
y <- c(-1, 0, 1)
n <- length(x)
answer <- is.logical(x)
for (i in 1:n) {
  if (x[i] == y[i]) { 
    answer[i] <- TRUE
  } else {
    answer[i] <- FALSE
    }
  }
answer

预期答案：

[1] FALSE  TRUE FALSE  TRUE

【问题讨论】：

标签： r

【解决方案1】：

一个选项是outer，将“x”的每个元素与“y”进行比较，以返回逻辑matrix，可以简化为逻辑vector 通过获取每行中 TRUE 元素的 sum (rowSums) 并检查它是否大于 0

rowSums(outer(x, y, `==`)) > 0
#[1] FALSE  TRUE FALSE  TRUE

或者使用sapply 创建逻辑矩阵并执行`colSums

colSums(sapply(x, `==`, y)) > 0

【讨论】：

谢谢，阿克伦。但是，很抱歉我之前没有说明，我仅限于使用“for 循环”和“if”语句。如何以这种方式比较向量 x 和向量 y 中的每个元素？

【解决方案2】：

实际上，我只是想通了。再次感谢。

x <- c(3, 0, -2, 0)
y <- c(-1, 0, 1)
n <- length(x)
m <- length(y)
answer <- is.logical(x)
for (i in 1:n) {
  for (j in 1:m) {
    if (x[i] == y[j]) {
    answer[i] <- TRUE
    break
  } else {
    answer[i] <- FALSE
   }
  }   
}
answer

【讨论】：