如何为每个在R中夜间和白天时间比率为50/50的个体提取每天一个随机的白天时间？

library(lubridate)

# 定义夜间开始时间和结束时间
night_start <- hms("18:00:00")
night_end <- hms("06:00:00")

# 定义白天开始时间和结束时间
day_start <- hms("06:00:00")
day_end <- hms("18:00:00")

# 定义个体数量
individuals <- 10

# 为每个个体提取每天的随机白天时间
for (i in 1:individuals) {
  # 生成随机数确定每天的开始时间点
  random_start <- runif(1)
  
  # 计算白天开始时间点
  day_start_time <- hms(paste0(as.integer(random_start * 24), ":00:00"))
  
  # 根据白天开始时间点匹配白天时间段
  if (random_start <= 0.5) {
    day_end_time <- day_start_time + seconds(as.numeric(day_end - day_start))
  } else {
    day_end_time <- day_start_time + seconds(as.numeric(night_start - day_start))
  }
  
  # 输出每个个体每天的随机白天时间段
  print(paste("Individual", i, "daytime:", day_start_time, "-", day_end_time))
}