r - 检查某个元素是否存在于另一个向量中并打印其值

Question

我想编写一个简单的循环，检查 a 中是否存在 a.sub 的任何元素，然后提取该元素并打印其值

a.sub <- c(22,3)
a <- seq(1: 10)

if(a.sub %in% a){

  present <-  a.sub[a.sub %in% a] # this extract the value in `a.sub` which is present in `a` 
  print(present)

} else {

  print("no element is present")
}

"no element is present"
Warning message:
  In if (a.sub %in% a) { :
      the condition has length > 1 and only the first element will be used

为什么循环不打印 3，因为 a.sub 和 a 中都存在 3？

Answer 1

当我们使用if/else时，需要考虑的一件事是条件生成的输出的长度。 if/else 期望长度为 1 的逻辑输出，并且未进行矢量化。这里的问题是检查另一个向量中是否存在一个向量的任何元素

if(any(a.sub %in% a)) print(a.sub[a.sub %in% a]) else print("No element present")
#[1] 3