![[Stable]](figures/lifecycle-stable.svg)
filter_predation(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 predator presences.
See also
Other wastd:
add_nest_labels(),
disturbance_by_season(),
filter_alive(),
filter_dead(),
filter_disturbance(),
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_predation() %>%
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 5550 0 280ed802… 4908 148 Locali… Smokey… 51 Site Smokey…
#> 2 5552 0 280ed802… 4909 148 Locali… Smokey… 51 Site Smokey…
#> 3 5555 0 280ed802… 4913 148 Locali… Smokey… 51 Site Smokey…
#> 4 5556 0 280ed802… 4915 148 Locali… Smokey… 51 Site Smokey…
#> 5 5557 0 280ed802… 4916 148 Locali… Smokey… 51 Site Smokey…
#> 6 5559 0 280ed802… 4917 148 Locali… Smokey… 51 Site Smokey…
#> # … 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_predation() %>%
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… crab expert… na NA e55a… uuid:4… https:… uuid:4… NA
#> 2 1643924… goanna expert… partly Unmark… 2603… uuid:0… https:… uuid:0… 122.
#> 3 1643924… goanna expert… partly NA 9f8f… uuid:0… https:… uuid:0… 122.
#> 4 1645917… crab expert… partly NA f7e9… uuid:6… https:… uuid:6… 114.
#> 5 1644705… crab expert… partly NA 94df… uuid:7… https:… uuid:7… 114.
#> 6 1644619… crab expert… neglig… NA 1704… uuid:4… https:… uuid:4… 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_predation() %>%
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:c… 122. -17.9 31.2 9.7 <named list> 2022-02-04 05:40:42
#> 2 uuid… uuid:2… NA NA NA NA <NULL> 2022-02-27 08:54:09
#> 3 uuid… uuid:1… NA NA NA NA <NULL> 2022-02-27 06:42:53
#> 4 uuid… uuid:4… 114. -21.9 -12.1 4.29 <named list> 2022-02-27 06:46:09
#> 5 uuid… uuid:c… 114. -21.9 -12.2 3.22 <named list> 2022-02-27 07:05:03
#> 6 uuid… uuid:3… NA NA NA NA <NULL> 2021-12-13 09:49:46
#> # … 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>, …