R 中的 For 循环不会通过所有值 go

Question

我需要通过所有年份 go 并在开始时间定义新的日子。 我的代码现在看起来像这样：

starting_hour <- 5
hours_in_day <- 48

for (x in unique(data$Year)) {
  a = 1
  while (a <= nrow(filter(data, data$Year == x)) && (data$Year == x)) {
    if ((data[a, "Hours"] == starting_hour) && (a < 48)) {
      for (c in 1:floor((nrow(filter(data, data$Year == x))-starting_hour)/hours_in_day)) {
        for (b in 0:(hours_in_day-1)) {
          data[a, "Hours"] <- b
          data[a, "Date"] <- c
          a <- a+1
        }
      }
      next
    }
    else {
      data[a, "Date"] <- 0
      a <- a+1
      if (data[a, "Year"] != x) {
        break
      }
      next
    }
  }
}`

现在这只适用于第一年。 我不明白为什么多年来它都没有 go 。 这是我的数据的前 50 行：

> dput(data)
structure(list(Date = structure(c(1419984000, 1388534400, 1388534400, 
1388534400, 1388534400, 1388534400, 1388534400, 1388534400, 1388534400, 
1388534400, 1388534400, 1388534400, 1388534400, 1388534400, 1388534400, 
1388534400, 1388534400, 1388534400, 1388534400, 1388534400, 1388534400, 
1388534400, 1388534400, 1388534400, 1388534400, 1388620800, 1388620800, 
1388620800, 1388620800, 1388620800, 1388620800, 1388620800, 1388620800, 
1388620800, 1388620800, 1388620800, 1388620800, 1388620800, 1388620800, 
1388620800, 1388620800, 1388620800, 1388620800, 1388620800, 1388620800, 
1388620800, 1388620800, 1388620800, 1388620800, 1388707200), tzone = "UTC", class = c("POSIXct", 
"POSIXt")), Year = c(2014, 2014, 2014, 2014, 2014, 2014, 2014, 
2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 
2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 
2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 
2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014), 
    Hours = c(23, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
    14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 0, 1, 2, 3, 4, 5, 
    6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 
    22, 23, 0)), row.names = c(NA, -50L), class = c("tbl_df", 
"tbl", "data.frame"))