在R语言中生成排除指定异常日期的随机日期

首先明确：seq函数本身无法直接完成过滤操作，它仅负责生成连续的日期序列，没有内置参数支持排除特定值，所以需要通过后续过滤步骤实现需求。

下面是两种实用的实现方式：

方法一：分步生成并过滤（可读性更高） #

先生成完整日期序列，剔除异常日期后再抽样，适合异常日期较多的场景：

# 定义需排除的异常日期
exception_date <- c(as.Date("2022-04-01"), as.Date("2022-08-01"), as.Date("2022-12-01"))

# 生成指定范围内的完整日期序列，过滤掉异常日期
valid_dates <- seq(from = as.Date("2022-01-01"), to = as.Date("2022-12-31"), by = 'day')
valid_dates <- valid_dates[!valid_dates %in% exception_date]

# 从有效日期中随机抽取1个
random_date <- sample(x = valid_dates, size = 1)

方法二：一次性整合（代码更紧凑） #

直接在sample参数内完成序列生成与过滤，适合异常日期较少的场景：

exception_date <- c(as.Date("2022-04-01"), as.Date("2022-08-01"), as.Date("2022-12-01"))

random_date <- sample(
  x = seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = 'day')[
    !seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = 'day') %in% exception_date
  ],
  size = 1
)

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