Capstone length of floods (solution)

Exercise
Output solution

Attaching package: 'dplyr'
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
Warning: One or more parsing issues, call `problems()` on your data frame for details,
e.g.:
  dat <- vroom(...)
  problems(dat)
Rows: 253696 Columns: 16
── Column specification ────────────────────────────────────────────────────────
Delimiter: "\t"
chr  (9): agency_cd, site_no, tz_cd, discharge_cd, gauge_height_cd, temperat...
dbl  (6): discharge, gauge_height, temperature, conductance, DO, elevation
dttm (1): datetime

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
           start_dates flood_lengths
1  2011-10-09 23:45:00          5813
2  2011-12-11 22:15:00           753
3  2012-06-28 11:15:00           226
4           2012-10-27           753
5  2012-11-16 03:00:00          1274
6  2013-05-06 07:15:00           108
7  2013-05-07 11:45:00             5
8  2013-09-20 23:45:00           140
9  2013-09-22 11:00:00             5
10 2013-09-22 12:30:00             2
11 2013-09-22 15:00:00           187
12 2013-09-24 14:00:00             2
13 2013-09-24 18:15:00          3046
14 2014-08-25 15:45:00             1
15 2014-08-25 16:15:00         13439
16 2015-01-23 21:00:00           196
17 2015-09-16 03:15:00          4524
18 2015-11-10 05:30:00           250
19 2015-11-26 13:45:00             1
20 2015-11-26 14:45:00             3
21 2015-11-26 15:45:00             1
22 2015-11-26 16:45:00             7
23 2015-11-27 01:45:00           223
24 2015-12-05 08:45:00           648
25 2016-10-06 16:45:00          4859
26 2017-09-08 17:45:00         10378