Publications by Julian Flowers
bird trends
02.04.2022
Garden bird watch h <- here::here("E011/data") df1 <- read_rds("gb.rds") df2 <- read_rds("bto_data.rds") a <- df2 %>% filter(year %in% c(1995, 2019), !spcode %in% c("houma", "swift", "bullf")) %>% group_by(spcode) %>% mutate(change = 100 * (sm[2]/sm[1] -1)) %>% select(spcode, change) %>% mutate(sc = ifelse(spcode %in% c("grefi", "starl...
42 sym R (7903 sym/14 pcs) 3 img