Commit b401bb15 authored by LDalby's avatar LDalby
Browse files

Need to handle the uneven distribution of high and lows better. It should just...

Need to handle the uneven distribution of high and lows better. It should just be a matter of doing different metrics
parent 1388ab67
...@@ -74,6 +74,8 @@ path_desktop("Goose", date_stamp, jobs, "scenario-grain-distributions.txt_152186 ...@@ -74,6 +74,8 @@ path_desktop("Goose", date_stamp, jobs, "scenario-grain-distributions.txt_152186
fst::read_fst() %>% fst::read_fst() %>%
as_tibble() -> grain_dists as_tibble() -> grain_dists
grain_dists %>% group_by(param, value) %>% count(grain_dist)
left_join(goose_numbers, grain_dists, by = c("param", "value", "season")) -> goose_numbers left_join(goose_numbers, grain_dists, by = c("param", "value", "season")) -> goose_numbers
# Summarize field forage data ---- # Summarize field forage data ----
...@@ -188,7 +190,8 @@ anim_save(filename = path_desktop("bn-high.gif")) ...@@ -188,7 +190,8 @@ anim_save(filename = path_desktop("bn-high.gif"))
gdays %>% gdays %>%
ungroup() %>% ungroup() %>%
filter(param == "GOOSE_BN_STARTNO_SCALER", filter(param == "GOOSE_BN_STARTNO_SCALER",
species == "pinkfoot") %>% species == "pinkfoot",
grain_dist == "low") %>%
select(-param, -species) -> gdays_bn_scaler select(-param, -species) -> gdays_bn_scaler
ggmap(bckgr) + ggmap(bckgr) +
...@@ -203,7 +206,7 @@ ggmap(bckgr) + ...@@ -203,7 +206,7 @@ ggmap(bckgr) +
caption = "Pinkfoot") + caption = "Pinkfoot") +
transition_manual(value) -> pf_map transition_manual(value) -> pf_map
animate(pf_map) animate(pf_map)
anim_save(filename = path_desktop("pf.gif")) anim_save(filename = path_desktop("pf-low.gif"))
gdays_bn_scaler %>% gdays_bn_scaler %>%
st_set_geometry(NULL) %>% st_set_geometry(NULL) %>%
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment