A 2nd look at vaccination breakthroughs in Switzerland








library(tidyverse) library(tidymodels) library(probably) library(finetune) library(textrecipes) library(stopwords) library(wesanderson) library(kableExtra) library(clock) library(glue) library(janitor) library(vip) library(ggrepel) library(tictoc) library(doParallel) registerDoParallel(cores = 6)
theme_set(theme_bw()) (cols <- wes_palette(name = "Darjeeling2"))The Natural History Museum began recording cetacean (whales, dolphins and porpoises) strandings in 1913. I’d like to explore this 1913-1989 dataset.
strandings_df <- read_csv("strandings.csv") %>%
clean_names() %>%
mutate(
date = date_parse(date, format = "%d/%m/%Y"),
length = parse_number(length_et),
species_lumped = fct_lump_n(species, 20),
across(ends_with("_val"), as.integer)
)
# glimpse(strandings_df)
Exploratory
Some of the species labels contain a question mark or forward slash. This indicates uncertainty, so it might be fun to see if a machine ...



Copyright © 2022 | MH Corporate basic by MH Themes