R中时间框架的Ifelse条件

Question

我有一个棘手的问题要解决，但我不知何故找不到答案。

我有毫米的日期和值，用于淋浴。 因此，我需要做的是找出连续3天是否超过150毫米的降雨。 我的data.frame（“ rain”）看起来像这样。

   date amount
1. 1965-07-15     38.85315
2. 1968-08-02     33.22356
3. 1972-08-15     30.90391
4. 1978-08-07     33.34613
5. 1987-08-18     37.85918
6. 1989-07-24     38.23495
7. 1995-07-22     52.46519
8. 1995-07-23     70.29935
9. 1995-07-24     45.11350

最后，我只想得到满足条件的日期。 在这种情况下，结果应该是。

7. 1995-07-22     52.46519
8. 1995-07-23     70.29935
9. 1995-07-24     45.11350

现在，我试图考虑一些解决问题的条件。 不幸的是，我想不出R中的任何函数对我有帮助。 如果有人对如何解决此问题有任何想法，我将不胜感激。

提前致谢

Answer 1

您的样本数据：

x <- read.table(header=T,
                colClasses=c(date='Date','numeric'),
text="date amount
1965-07-15     38.85315
1968-08-02     33.22356
1972-08-15     30.90391
1978-08-07     33.34613
1987-08-18     37.85918
1989-07-24     38.23495
1995-07-22     52.46519
1995-07-23     70.29935
1995-07-24     45.11350"
                )

找到每个三合会的日期差和总和：

library(zoo)
delta <- rollapply(x$date, 3, FUN=function(x) range(x)[2]-range(x)[1])
sums  <- rollapply(x$amount, 3, FUN=sum)

这些是您想要的行的（开始位置）：

delta <= 2 & sums >= 150
## [1] FALSE FALSE FALSE FALSE FALSE FALSE  TRUE

这是请求的数据子集：

w <- which(delta <= 2 & sums >= 150)
x[c(w,w+1,w+2),]
##         date   amount
## 7 1995-07-22 52.46519
## 8 1995-07-23 70.29935
## 9 1995-07-24 45.11350