代码之家 › 专栏 › 技术社区 › Kumpelka

每天生成一个随机数

random r

Kumpelka · 技术社区 · 7 年前

我正在寻找一种方法来为一天生成一个随机数,并且这个随机数在一整天都保持稳定。第二天,代码将生成另一个随机数,依此类推。

我精确地说,我不需要为每年的同一天分配相同的随机数。

实际代码:

# Data
MyMax <- 45
MyValues <- paste0("The video of the day is : video_", seq(1:MyMax))

# Random generator
MyRandomNumber <- sample(1:MyMax, 1)

# Output
print(MyValues[MyRandomNumber])

预期输出:

-&燃气轮机;每次我使用代码时,2017年12月16日:

[1] "The video of the day is : video_35"
[1] "The video of the day is : video_35"

-&燃气轮机;每次我使用代码时,2017年12月17日:

[1] "The video of the day is : video_48"
[1] "The video of the day is : video_48"

-&燃气轮机;每次我使用代码时,2018年12月16日:

[1] "The video of the day is : video_12"
[1] "The video of the day is : video_12"

3 回复 | 直到 6 年前

AntoniosK 7 年前

# specify maximun random number (minimum is 1)
MyMax <- 100

# this will make sure randomisation remains stable at each day
set.seed(as.numeric(Sys.Date()))

# show the randomised value
paste0("The video of the day is : video_", sample(1:MyMax, 1))

# [1] "The video of the day is : video_79"

无论您今天运行此代码多少次,您都会得到相同的输出。明天,它将发生变化,并将全天保持稳定,等等。

Kumpelka 7 年前

我在上述评论的帮助下找到的解决方案。

# Data
MyMax <- 45
MyValues <- paste0("The video of the day is : video_", seq(1:MyMax))

# Random generator
set.seed(as.numeric(Sys.Date()))
MyRandomNumber <- sample(1:MyMax, 1)

# Output
print(MyValues[MyRandomNumber])

jimbo 7 年前

这将为每天生成一个随机数。

library(tidyverse)

dayYear <- as.Date(Sys.Date(),format='%d/%m/%Y') %>% lubridate::yday() %>% integer()
set.seed(dayYear)
randNum <- rnorm(1)

推荐文章

Sarah Marie · 单击按钮,用随机颜色/大小将每个字母设置为字符串样式

2 年前

ecology · 基于R中随机生成数集的子集列

2 年前

ratus111 · 如何在Python中创建包含10个基本数字的100个值的数据帧?

2 年前

Alan Jones · 使用random从列表创建动态列表

2 年前

breking bed · 单击按钮时如何随机选择唯一编号

2 年前

Carrot Man · 如何让熊猫数据框随机填充1和0?

2 年前

Chowlett · Ruby数组#shuffle中的默认随机参数是什么

2 年前

Justin Arnold · 范围内的随机数不是随机数

2 年前

baseballdude7711 · 在10%的时间内生成一个随机数,否则生成0

2 年前

Menna Magdy · 如何使用非模型字段进行过滤?

2 年前