在R语言中按多条件生成特定范围的偶数向量

要生成符合你需求的向量，我们可以分三步操作：生成区间内的偶数、定义条件过滤规则、筛选出符合条件的数值。

步骤1：生成目标区间内的所有偶数 #

首先生成2000000到4999999之间的所有偶数，由于区间上限是奇数，我们取到4999998：

all_evens <- seq(from = 2000000, to = 4999998, by = 2)

步骤2：定义条件判断逻辑 #

我们需要把数值转为字符串，通过字符串匹配来检查是否满足以下要求：

• 必须同时包含数字"2"和"6"
• 不能包含数字"1"和"5"

方式1：向量化筛选（效率更高） #

# 将所有偶数转为字符串
num_strings <- as.character(all_evens)

# 生成筛选掩码：同时满足所有条件
filter_mask <- grepl("2", num_strings) & 
               grepl("6", num_strings) & 
               !grepl("1", num_strings) & 
               !grepl("5", num_strings)

# 筛选出符合条件的数值
result_vector <- all_evens[filter_mask]

方式2：用Filter函数筛选（更直观） #

先定义一个判断单个数值是否符合条件的函数：

check_conditions <- function(num) {
  num_str <- as.character(num)
  has_2_6 <- grepl("2", num_str) && grepl("6", num_str)
  no_1_5 <- !grepl("1", num_str) && !grepl("5", num_str)
  return(has_2_6 && no_1_5)
}

# 用Filter函数筛选
result_vector <- Filter(check_conditions, all_evens)

验证结果 #

你可以用head(result_vector)查看前几个符合条件的数值，示例输出如下：

head(result_vector)
# 输出：2000026 2000062 2000206 2000260 2000602 2000620

内容的提问来源于stack exchange，提问作者Mattia Cottarelli