[英]Ifelse condition for timeframes in R
我有一個棘手的問題要解決,但我不知何故找不到答案。
我有毫米的日期和值,用於淋浴。 因此,我需要做的是找出連續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中的任何函數對我有幫助。 如果有人對如何解決此問題有任何想法,我將不勝感激。
提前致謝
您的樣本數據:
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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.