In AdrienLeGuillou/descriptor: Simple and tidy data description

knitr::opts_chunk$set(echo = TRUE)
options(knitr.table.format = "html")

General

d <- describe(df)

Data Frame infos

d$df %>% 
  dplyr::mutate_if(is.numeric, signif, 3) %>%
  knitr::kable() %>% 
  kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)

Data Frame variables

d$vars %>% 
  dplyr::mutate_if(is.numeric, signif, 3) %>%
  knitr::kable() %>% 
  kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)

Univariate analysis

Quantitatives variables

d$quantitatives %>% 
  dplyr::mutate_if(is.numeric, signif, 3) %>%
  knitr::kable() %>% 
  kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)

Quantitatives variables (dates)

d$temporals %>% 
  dplyr::mutate_if(is.numeric, signif, 3) %>%
  knitr::kable() %>% 
  kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)

Categorical variables

d$categoricals %>% 
  dplyr::mutate_if(is.numeric, signif, 3) %>%
  knitr::kable() %>% 
  kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)

Individual exploration

rm(d)
plts <- plot_describe(df, max_lvl = max_lvl)

for (n in names(plts)) {
  cat("### `", n, "`\n\n")
  print(plts[[n]])
  cat("\n\n")
}

rm(plts)

AdrienLeGuillou/descriptor documentation built on May 22, 2019, 7:55 p.m.