如何生成符合分组范围且与age02年龄差≤15的随机数？

要实现「按分组生成指定范围随机年龄，且与age02差值绝对值不超过15」的需求，需要逐行计算每个观测的有效采样区间，再在区间内随机取值。以下是具体实现代码：

library(dplyr)

# 先将haven标记型变量转换为普通数值
data <- data %>%
  mutate(
    iagegrp = as.numeric(iagegrp),
    age02 = as.numeric(age02)
  )

set.seed(1) # 保证结果可重复
result <- data %>%
  rowwise() %>% # 逐行处理每个观测
  mutate(
    # 定义各分组对应的基础年龄范围
    base_low = case_when(iagegrp == 3 ~ 25, iagegrp == 4 ~ 45),
    base_high = case_when(iagegrp == 3 ~ 44, iagegrp == 4 ~ 64),
    # 结合差值限制，确定最终采样区间
    final_low = max(base_low, age02 - 15),
    final_high = min(base_high, age02 + 15),
    # 在区间内随机抽取1个年龄值
    age = sample(final_low:final_high, 1)
  ) %>%
  ungroup() %>%
  select(iagegrp, age02, age) # 保留目标列

代码说明 #

• 转换数值类型：将haven_labelled类型的变量转为普通数值，避免后续计算异常
• 逐行处理：用rowwise()确保每个观测的采样区间独立计算
• 双重范围限制：
  1. 先根据iagegrp确定分组基础年龄范围
  2. 再结合age02 ±15的限制，取两个范围的交集作为最终采样区间
• 随机采样：在最终区间内随机抽取1个整数作为生成的年龄

运行后，result数据框会包含符合要求的age列，满足分组范围和差值限制的双重条件。

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