如何在while循环条件为False后继续执行？求连续降温天数最大值

问题分析 #

你当前的while循环仅处理了第一段连续降温区间，遇到升温就直接停止，没有遍历后续数据。下面提供两种解决思路：

方法一：修复循环逻辑 #

在外层添加遍历循环，全程跟踪连续降温天数，同时记录最大值：

a <- dfmean[,4]
max_cool_days <- 0
current_cool_days <- 0
total_days <- length(a)

for (i in 1:(total_days - 1)) {
  if (a[i+1] < a[i]) {
    current_cool_days <- current_cool_days + 1
    # 更新最大值
    if (current_cool_days > max_cool_days) {
      max_cool_days <- current_cool_days
    }
  } else {
    # 遇到升温，重置当前连续天数
    current_cool_days <- 0
  }
}

# 输出结果
cat("最大连续降温天数：", max_cool_days, "\n")

方法二：向量化高效解法（无需apply家族） #

用diff和rle函数实现更简洁的统计，向量化操作比循环效率更高：

a <- dfmean[,4]
# 标记每一天是否比前一天降温
cooling_flag <- diff(a) < 0
# 统计连续降温的区间长度
cooling_runs <- rle(cooling_flag)
# 提取所有降温区间的长度，取最大值（无降温时返回0）
max_cool_days <- max(cooling_runs$lengths[cooling_runs$values], 0)

# 输出结果
cat("最大连续降温天数：", max_cool_days, "\n")

说明：diff(a)计算相邻两天的气温差，小于0即为降温；rle()会将连续的相同标记分组，提取降温组的长度后取最大值即可。

内容的提问来源于stack exchange，提问作者nick