R:找到值>0并检查数据帧中两个连续值的总和?

我有一个包含两列的数据框:年份和区域(整数)。

df<-data.frame(year = 1:7,
           area = c(5,0,0,8,0,8,4))

  year area
1    1    5
2    2    0
3    3    0
4    4    8
5    5    0
6    6    8
7    7    4

我想:

• 用area>查找第一年;0
• 连续两年的面积。如果总和大于;0,打印值的年份。否则,(如果和=0),在向量中搜索下列数字。

我之前所做的:

• 我能找到第一年和 area >0 :

  firstYear<-min(df$year[df$area > 0])
  

• 然后计算 area 随后两年:

  sum.year = sum(subset(df, year == firstYear + 1 | year == firstYear + 2)$area)
  

我不确定的是,如何包括 if..else 或 while year 如果接下来两年的总和=0?

如果…否则 陈述

if (sum.year >0) {
    print(firstYear)
  } else firstYear = firstYear + 1 # move and check the next year

虽然 循环在我的记录中移动:

while (firstYear <= max(df$year)) {
  if (sum.year >0) {
    print(firstYear)
  } else firstYear = firstYear + 1
}

但是我不知道怎么把if..else和while语句放在一起?谢谢你的帮助!