In rubenarslan/codebook: Automatic Codebooks from Metadata Encoded in Dataset Attributes

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

knitr::opts_chunk$set(warning = TRUE, message = TRUE, echo = FALSE, error = TRUE)

library(codebook)
library(dplyr)
data("bfi", package = 'codebook')
bfi <- bfi %>% select(-starts_with("BFIK_extra"),
                       -starts_with("BFIK_agree"),
                       -starts_with("BFIK_open"),
                       -starts_with("BFIK_neuro"),
                      BFIK_neuro_2R)

ggplot2::theme_set(ggplot2::theme_bw())

set.seed(1)
bfi$age <- rpois(nrow(bfi), 30)
library(ggplot2)
update_geom_defaults("bar", new = list(fill = "red"))
options(ggplot2.continuous.colour="viridis")

codebook(bfi)

rubenarslan/codebook documentation built on Nov. 13, 2022, 12:40 p.m.