我是新来的，想不出怎么解决这个问题。我有一个数据。帧=时间表
| 周数|启动时间|结束日期|
| - -|- -|- -|
| 一个|上午9时|下午3点|
| 一个|上午9时|下午3点|
| 一个|上午9时|下午3点|
| 一个|上午9时|下午3点|
| 一个|上午9时|下午3点|
| 一个|不适用|不适用|
| 一个|不适用|不适用|
| 2个|上午9时|下午3点|
| 2个|上午9时|下午3点|
| 2个|上午9时|下午3点|
| 2个|上午9时|下午3点|
| 2个|上午9时|下午3点|
| 2个|不适用|不适用|
| 2个|不适用|不适用|
| 三个|上午9时|下午3点|
| 三个|上午9时|下午3点|
| 三个|上午9时|下午3点|
| 三个|上午9时|下午3点|
| 三个|上午9时|下午3点|
| 三个|不适用|不适用|
| 三个|不适用|不适用|
| - ----|||
| 我的天|||
| 五十二|||
| - ----|||
我有一本轮班字典：

> start_vec <- c("06:00", "08:00", "14:00")
> end_vec <- c("14:00", "16:00", "22:00")

我的循环是遍历所有52周，并将9am和3 pm替换为字典值。但问题是这些值不应重复，即每周应不同。
例如，我用以下内容开始一年：08：00 - 16：00。一年可以从任何班次开始。请查看以下示例：
| 周数|启动时间|结束日期|
| - -|- -|- -|
| 一个|上午8时|16点整|
| 一个|上午8时|16点整|
| 一个|上午8时|16点整|
| 一个|上午8时|16点整|
| 一个|上午8时|16点整|
| 一个|不适用|不适用|
| 一个|不适用|不适用|
| 2个|下午2点|22点整|
| 2个|下午2点|22点整|
| 2个|下午2点|22点整|
| 2个|下午2点|22点整|
| 2个|下午2点|22点整|
| 2个|不适用|不适用|
| 2个|不适用|不适用|
| 三个|上午6时|下午2点|
| 三个|上午6时|下午2点|
| 三个|上午6时|下午2点|
| 三个|上午6时|下午2点|
| 三个|上午6时|下午2点|
| 三个|不适用|不适用|
| 三个|不适用|不适用|
| - ----|||
| 我的天|||
| 五十二|||
| - ----|||
我尝试制作嵌套循环，或者制作week_number向量，以便能够用特定值替换所有不带NA的1。

> rd_dt <- data.frame()
> for (i in 1:length(schedule$Week_number)){
> for (s in start_vec){
> for (e in end_vec){
> dt <- schedule[i,] 
> if (schedule$Start == NA){
> next
> else {

提前感谢您的任何提示。