Compute precipitation indicators from grouped data
Source:R/summarise_precipitation.R
summarise_precipitation.RdThe function computes precipitation indicators from grouped data. Expects precipitation in millimeters (mm).
Arguments
- .x
grouped data, created with
dplyr::group_by()- value_var
name of the variable with temperature values.
- normals_df
normals data, created with
summarise_normal()
Details
The rain spells indicators are computed based on climatological normals, created with the summarise_normal() function and passed with the normals_df argument. Keys to join the normals data must be present (like id, year, and month) and use the same names.
The following indicators are computed for each group.
countCount of data pointsnormal_meanClimatological normal mean, fromnormals_dfargumentnormal_p10Climatological 10th percentile, fromnormals_dfargumentnormal_p90Climatological 90th percentile, fromnormals_dfargumentmeanAveragemedianMediansdStandard deviationseStandard errormaxMaximum valueminMinimum valuep1010th percentilep2525th percentilep7575th percentilep9090th percentilerain_spells_3dCount of rain spells occurences, with 3 or more consecutive days with rain above the climatological normal average valuerain_spells_5dCount of rain spells occurences, with 5 or more consecutive days with rain above the climatological normal average valuep_1Count of days with precipitation above 1mmp_5Count of days with precipitation above 5mmp_10Count of days with precipitation above 10mmp_50Count of days with precipitation above 50mmp_100Count of days with precipitation above 100mmd_3Count of sequences of 3 days or more without precipitationd_5Count of sequences of 5 days or more without precipitationd_10Count of sequences of 10 days or more without precipitationd_15Count of sequences of 15 days or more without precipitationd_20Count of sequences of 20 days or more without precipitationd_25Count of sequences of 25 days or more without precipitation
Examples
# Compute monthly normals
normals <- precipitation_data |>
# Identify month
dplyr::mutate(month = lubridate::month(date)) |>
# Group by id variable and month
dplyr::group_by(code_muni, month) |>
summarise_normal(date_var = date, value_var = value, year_start = 1961, year_end = 1990) |>
dplyr::ungroup()
# Compute indicators
precipitation_data |>
# Identify year
dplyr::mutate(year = lubridate::year(date)) |>
# Identify month
dplyr::mutate(month = lubridate::month(date)) |>
# Group by id variable, year and month
dplyr::group_by(code_muni, year, month) |>
# Compute precipitation indicators
summarise_precipitation(value_var = value, normals_df = normals) |>
# Ungroup
dplyr::ungroup()
#> # A tibble: 3,024 × 30
#> code_muni year month count normal_mean normal_p10 normal_p90 mean median
#> <int> <dbl> <dbl> <int> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 3106200 1961 1 31 10.1 0 29.8 2.33e+1 13.0
#> 2 3106200 1961 2 28 6.88 0 21.4 8.75e+0 0.741
#> 3 3106200 1961 3 31 5.26 0 16.8 6.71e+0 0.668
#> 4 3106200 1961 4 30 2.12 0 5.86 1.64e+0 0
#> 5 3106200 1961 5 31 0.986 0 2.08 4.18e-1 0
#> 6 3106200 1961 6 30 0.521 0 0.321 1.14e-1 0
#> 7 3106200 1961 7 31 0.565 0 0.345 1.93e-1 0
#> 8 3106200 1961 8 31 0.489 0 0.269 4.72e-4 0
#> 9 3106200 1961 9 30 1.40 0 3.12 0 0
#> 10 3106200 1961 10 31 4.29 0 15.7 1.19e+0 0
#> # ℹ 3,014 more rows
#> # ℹ 21 more variables: sd <dbl>, se <dbl>, max <dbl>, min <dbl>, p10 <dbl>,
#> # p25 <dbl>, p75 <dbl>, p90 <dbl>, rain_spells_3d <int>,
#> # rain_spells_5d <int>, p_1 <int>, p_5 <int>, p_10 <int>, p_50 <int>,
#> # p_100 <int>, d_3 <int>, d_5 <int>, d_10 <int>, d_15 <int>, d_20 <int>,
#> # d_25 <int>