knitr::opts_chunk$set(echo = TRUE) options(knitr.table.format = "html")
d <- describe(df)
d$df %>% dplyr::mutate_if(is.numeric, signif, 3) %>% knitr::kable() %>% kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)
d$vars %>% dplyr::mutate_if(is.numeric, signif, 3) %>% knitr::kable() %>% kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)
d$quantitatives %>% dplyr::mutate_if(is.numeric, signif, 3) %>% knitr::kable() %>% kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)
d$temporals %>% dplyr::mutate_if(is.numeric, signif, 3) %>% knitr::kable() %>% kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)
d$categoricals %>% dplyr::mutate_if(is.numeric, signif, 3) %>% knitr::kable() %>% kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.