在时间范围08:00:00和15:00:00之间的采样时间

Question

如何对指定范围（08:00:00到15:00:00）之间的时间进行采样。 请帮忙！

我尝试过的代码，但会引发错误

sample(seq(as.Date.POSIXct('08:00:00'), as.Date.POSIXct('15:00:00')), 20)

预期：

[1] "08:01:00" "14:00:50" "12:49:50"  

Answer 1

创建特定持续时间和sample内的时间序列。时间将是今天的日期，为了只获取时间分量，我们使用format。

all_times <- format(seq(as.POSIXct('08:00:00', format = "%T"), 
                         as.POSIXct('15:00:00', format = "%T"), by = "sec"), "%T")

sample(all_times, 3)  
#[1] "11:51:16" "09:50:10" "13:09:21"