以下是一个示例代码，用于遍历包含时间的数据框，并在时间早于当前时间时执行某个操作：

# 创建一个包含时间的数据框
df <- data.frame(
  time = c("2022-01-01 10:12:00", "2022-01-02 08:30:00", "2022-01-03 13:45:00"),
  value = c(10, 20, 30)
)

# 将时间列转换为日期时间格式
df$time <- as.POSIXct(df$time, format = "%Y-%m-%d %H:%M:%S")

# 获取当前时间
current_time <- Sys.time()

# 遍历数据框
for (i in 1:nrow(df)) {
  # 如果时间早于当前时间
  if (df$time[i] < current_time) {
    # 执行某个操作，例如打印时间和值
    cat("时间:", df$time[i], " 值:", df$value[i], "\n")
  }
}

在上面的示例中，我们首先创建了一个包含时间和值的数据框。然后，我们将时间列转换为日期时间格式，并获取当前时间。接下来，我们使用一个循环来遍历数据框中的每一行。如果时间早于当前时间，就执行某个操作，例如打印时间和值。

请注意，代码中的操作可以根据实际需求进行修改。