knitr::opts_chunk$set(echo = TRUE)
library(tidyverse) library(vroom) library(inspectdf) library(skimr) library(janitor) library(craggy2019)
Generate a minimally serviceable data frame:
oneNightCount <- vroom(system.file("extdata", "oneNightCount.csv", package = "craggy2019")) oneNightCount <- oneNightCount %>% clean_names %>% select(-total) %>% filter(location != "TOTAL")
Inspect with a few skimr and inspectdf:
skim(oneNightCount) inspectdf::inspect_cor(oneNightCount) %>% show_plot() inspectdf::inspect_num(oneNightCount) %>% show_plot() inspectdf::inspect_na(oneNightCount)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.