Ainda não achei uma solução. Mas, caso eu tenha entendido o problema corretamente, cheguei até aqui:
library(dplyr)
setwd("E:\\")
dados <- read.csv2("dado.csv")
dados$Nivel <- as.numeric(as.character(dados$Nivel))
dadosNovo <- tbl_df(dados) %>%
group_by(Date) %>%
summarise(NivelMax = max(Nivel, na.rm=TRUE)) %>%
mutate(Ind = ifelse(NivelMax > 2, 1, 0)) %>%
arrange(as.Date(Date, "%d/%m/%Y"))
> head(dadosNovo, 3)
Source: local data frame [3 x 3]
Date NivelMax Ind
1 01/02/2014 1.04 0
2 02/02/2014 1.04 0
3 03/02/2014 1.04 0
A estratégia até até aqui foi: construir um novo data frame com o nível máximo em cada dia. Criar uma nova coluna com uma variável indicadora que recebe o valor 1 se o nível no dia é maior que 2.Fiz isso imaginando que poderia ser tranquilo contar as sequencias de 1, mas isso se mostrou não trivial. Bem, pelo menos eu não consegui ainda vislumbrar uma forma de fazer isso.
Bem, pode ser que alguem tenha uma forma de fazer isso... e identificar os ínícios das enchentes...
Caso eu consiga avançar, volto aqui.
Abs.