Add Climate Velocity to shifts dataframe
add_cv.RdAdd Climate Velocity to shifts dataframe
Arguments
- data
Shifts dataframe from get_shifts() function
- type
Choice of climate velocity values from study area (SA) or species-speficic study area (SP) polygons
- stat
Statistic of climate velocity to add. c("min", "1Q", "median", "mean", "3Q", "max")
- exp
Exposure variable. c("temp","precip")
- res
Spatial resolution with which climate velocities were calculated c("1km","25km","50km","110km"). Note that higher resolutions will generally have higher velocities, since climate velocity is calculated as climate trend / spatial gradient.
Examples
get_shifts() |> add_cv(stat = c("mean"), exp = c("temp"),res = c("LAT" = "25km", "ELE" = "1km")) |> dplyr::glimpse()
#> Rows: 31,759
#> Columns: 17
#> $ id <chr> "A002_P1_LAT_LE_M1", "A002_P1_LAT_LE_M1", "A002_P1…
#> $ article_id <chr> "A002", "A002", "A002", "A002", "A002", "A002", "A…
#> $ poly_id <chr> "P1", "P1", "P1", "P1", "P1", "P1", "P1", "P1", "P…
#> $ method_id <chr> "M01", "M01", "M01", "M01", "M01", "M01", "M01", "…
#> $ eco <chr> "Ter", "Ter", "Ter", "Ter", "Ter", "Ter", "Ter", "…
#> $ type <chr> "LAT", "LAT", "LAT", "LAT", "LAT", "LAT", "LAT", "…
#> $ param <chr> "LE", "LE", "LE", "LE", "LE", "LE", "LE", "LE", "L…
#> $ sp_name_publication <chr> "Ambloplites_rupestris", "Ameiurus_nebulosus", "Ch…
#> $ sp_name_checked <chr> "Ambloplites_rupestris", "Ameiurus_nebulosus", "Ch…
#> $ subsp_or_pop <chr> "sportfish", "sportfish", "baitfish", "sportfish",…
#> $ calc_rate <dbl> 0.4579, 4.8519, -0.4789, 0.9116, 3.1590, 0.9326, 0…
#> $ calc_unit <chr> "km/year", "km/year", "km/year", "km/year", "km/ye…
#> $ direction <chr> "Expansion", "Expansion", "Contraction", "Expansio…
#> $ along_gradient <chr> "Latitude", "Latitude", "Latitude", "Latitude", "L…
#> $ VelAlong_mean_temp <dbl> 1.224970, 1.224970, 1.224970, 1.224970, 1.224970, …
#> $ cv_temp_var <chr> "Mean Annual Temperature", "Mean Annual Temperatur…
#> $ cv_res <chr> "25km", "25km", "25km", "25km", "25km", "25km", "2…