从可被两个整数整除的向量中查找元素

Question

我想从向量中提取所有可被x或Y整除的元素同样，我想从向量中提取所有可被x和Y整除的元素。实际上，我想在一个向量中提取被5或7除的元素，在另一个向量中提取5和7。 Y

Answer 1

我们可以编写一个函数来返回可被x AND y和x OR y整除的元素的列表。

get_all_elements <- function(vec, x, y) {
   list(OR = vec[vec %% x == 0 | vec %% y == 0], 
        AND = vec[vec %% x == 0 & vec %% y == 0])
}

get_all_elements(1:100, 5, 7)

#$OR
# [1] 5   7  10  14  15  20  21  25  28  30  35  40  42  45  49  50  55  56  60  63  
#     65  70  75  77  80 84  85  90  91  95  98 100

#$AND
#[1] 35 70