如何在R语言中获取通过set.seed()设置的实际种子值？

1. 获取set.seed()显式设置的种子值 #

R没有原生的get_seed()函数，但可以通过两种方式实现需求：

• 自定义封装函数记录种子
  直接封装一个能同时设置和记录种子的函数，后续直接调用记录的变量即可：

  # 全局变量存储当前种子
  current_seed <- NULL
  
  set_seed <- function(seed) {
    current_seed <<- seed
    set.seed(seed)
  }
  
  # 使用示例
  set_seed(123)
  current_seed  # 输出 123
  

• 从随机数生成器状态中提取
  若已用原生set.seed()设置种子，可从.Random.seed中提取原始值（默认使用Mersenne-Twister生成器时有效）：

  set.seed(123)
  rng_state <- .Random.seed
  original_seed <- rng_state[3]
  original_seed  # 输出 123
  

2. 查看Sys.time()设置的种子值 #

用系统时间设置种子时，必须先将时间转换为整数并记录，否则无法回溯：

# 转换Sys.time()为整数种子并记录
time_seed <- as.integer(Sys.time())
set.seed(time_seed)
# 查看种子值
time_seed  # 输出类似 1718234567 的整数

如果直接执行set.seed(as.integer(Sys.time()))而未记录，由于时间实时变化，将无法找回当时的种子值。

内容的提问来源于stack exchange，提问作者D Surya Praveen