![[Stable]](figures/lifecycle-stable.svg)
filter_disturbance(data)Arguments
- data
A dataframe with column "disturbance_cause", e.g. the ouput of
wastd_GET("turtle-nest-disturbance-observations") parse_encounterobservations()ordata("wastd_data"); wastd_data$nest_dist
Value
The dataframe with rows matching disturbance causes.
See also
Other wastd:
add_nest_labels(),
disturbance_by_season(),
filter_alive(),
filter_dead(),
filter_predation(),
ggplot_disturbance_by_season(),
ggplot_emergence_success(),
ggplot_hatching_success(),
ggplot_hatchling_misorientation(),
ggplot_nesting_success_per_area_season_species_pct(),
ggplot_nesting_success_per_area_season_species(),
ggplot_sighting_status_per_area_season_species(),
ggplot_total_emergences_per_area_season_species(),
ggplot_track_success_by_date(),
ggplot_track_successrate_by_date(),
hatching_emergence_success_area(),
hatching_emergence_success_site(),
hatching_emergence_success(),
map_dist(),
map_fanangles(),
map_mwi(),
map_nests(),
map_tracks(),
map_wastd_wamtram_sites(),
map_wastd(),
nesting_success_per_area_day_species(),
nesting_success_per_area_season_species(),
nesting_type_by_area_season_age_species(),
nesting_type_by_area_season_species(),
nesting_type_by_season_age_species(),
nesting_type_by_season_calendarday_age_species(),
nesting_type_by_season_calendarday_species(),
nesting_type_by_season_day_species(),
nesting_type_by_season_species(),
nesting_type_by_season_week_age_species(),
nesting_type_by_season_week_site_species(),
nesting_type_by_season_week_species(),
nesting_type_by_site_season_age_species(),
nesting_type_by_site_season_species(),
parse_animal_encounters(),
parse_area_sf(),
parse_area(),
parse_encounterobservations(),
parse_surveys(),
parse_turtle_nest_encounters(),
print.wastd_api_response(),
sighting_status_per_area_season_species(),
sighting_status_per_site_season_species(),
summarise_hatching_and_emergence_success(),
summarise_wastd_data_per_day_site(),
total_emergences_per_area_season_species(),
total_emergences_per_site_season_species(),
track_success_by_species(),
track_success(),
tracks_ts()
Examples
data("wastd_data")
wastd_data$nest_dist %>%
filter_disturbance() %>%
head()
#> # A tibble: 6 × 64
#> pk source source_id encou…¹ encou…² encou…³ encou…⁴ encou…⁵ encou…⁶ encou…⁷
#> <int> <int> <chr> <int> <int> <chr> <chr> <int> <chr> <chr>
#> 1 2493 0 280ed802… 315 18 Locali… Perth … 53 Site Floria…
#> 2 5562 0 280ed802… 4919 148 Locali… Smokey… 51 Site Smokey…
#> 3 3652 0 280ed802… 2681 18 Locali… Perth … 33 Site Kensin…
#> 4 4038 0 280ed802… 2749 14 Locali… Onslow NA NA NA
#> 5 2487 0 280ed802… 314 18 Locali… Perth … 53 Site Floria…
#> 6 2501 0 280ed802… 322 18 Locali… Perth … 33 Site Kensin…
#> # … with 54 more variables: encounter_expedition <lgl>,
#> # encounter_survey_id <int>, encounter_survey_start_time <chr>,
#> # encounter_survey_end_time <chr>, encounter_survey_start_comments <chr>,
#> # encounter_survey_end_comments <chr>,
#> # encounter_survey_absolute_admin_url <chr>,
#> # encounter_survey_production <lgl>, encounter_name <chr>,
#> # encounter_observer_pk <chr>, encounter_observer_username <chr>, …
data("odkc_data")
odkc_data$tracks_dist %>%
sf_as_tbl() %>%
filter_disturbance() %>%
head()
#> # A tibble: 6 × 110
#> photo_…¹ distu…² distu…³ distu…⁴ comme…⁵ id submi…⁶ odata…⁷ meta_…⁸ start…⁹
#> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <dbl>
#> 1 1644790… unknown guess comple… "Turtl… d7df… uuid:4… https:… uuid:4… NA
#> 2 1642112… other expert… na "Sorry… ce00… uuid:1… https:… uuid:1… NA
#> 3 1641553… turtle guess comple… "Eggs … 4537… uuid:c… https:… uuid:c… 117.
#> 4 1641554… unknown expert… na NA 6ff2… uuid:c… https:… uuid:c… 117.
#> 5 1641856… turtle expert… partly NA c94c… uuid:b… https:… uuid:b… 114.
#> 6 1641856… turtle expert… partly NA 9140… uuid:b… https:… uuid:b… 114.
#> # … with 100 more variables: start_geopoint_latitude <dbl>,
#> # start_geopoint_altitude <dbl>, start_geopoint_accuracy <dbl>,
#> # start_geopoint <list>, observation_start_time <dttm>, device_id <chr>,
#> # reporter <chr>, details_nest_age <chr>, details_species <chr>,
#> # details_nest_type <chr>, details_observed_at_longitude <dbl>,
#> # details_observed_at_latitude <dbl>, details_observed_at_altitude <dbl>,
#> # details_observed_at_accuracy <dbl>, details_observed_at <list>, …
odkc_data$dist %>%
sf_as_tbl() %>%
filter_disturbance() %>%
head()
#> # A tibble: 6 × 45
#> id meta_…¹ start…² start…³ start…⁴ start…⁵ start_geop…⁶ observation_start…⁷
#> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <list> <dttm>
#> 1 uuid… uuid:8… NA NA NA NA <NULL> 2022-02-28 05:38:45
#> 2 uuid… uuid:c… NA NA NA NA <NULL> 2022-02-10 05:19:45
#> 3 uuid… uuid:a… NA NA NA NA <NULL> 2022-02-04 06:16:20
#> 4 uuid… uuid:6… 119. -20.3 4.07 3.22 <named list> 2022-02-28 06:10:38
#> 5 uuid… uuid:d… 114. -21.8 -7.18 3.22 <named list> 2022-02-26 06:42:49
#> 6 uuid… uuid:1… 114. -21.9 -9.11 3.22 <named list> 2022-01-13 07:28:43
#> # … with 37 more variables: device_id <chr>, reporter <chr>,
#> # disturbanceobservation_photo_disturbance <chr>,
#> # disturbanceobservation_disturbance_cause <chr>,
#> # disturbanceobservation_disturbance_cause_confidence <chr>,
#> # disturbanceobservation_location_longitude <dbl>,
#> # disturbanceobservation_location_latitude <dbl>,
#> # disturbanceobservation_location_altitude <dbl>, …