Learning how to create a data codebook

Load Packages

haven

if (!require(haven)){
  install.packages("haven", dependencies = TRUE)
  require(haven)
}

tidyverse

if (!require(tidyverse)){
  install.packages("tidyverse", dependencies = TRUE)
  require(tidyverse)
}

summarytools

if (!require(summarytools)){
  install.packages("summarytools", dependencies = TRUE)
  require(summarytools)
}

Import Data

dataset.spss <- read_sav ("Harry Potter Data.sav")

Codebook

dataset.spss %>%
  select(CoinFlip, FFM_12, Potter12) -> newVariable

print(dfSummary(newVariable, graph.magnif = .75), method = 'render')

Warning: unable to open connection to X11 display ''

Data Frame Summary

newVariable

Dimensions: 122 x 3
Duplicates: 84

No	Variable	Label	Stats / Values	Freqs (% of Valid)	Graph	Valid	Missing
1	CoinFlip [haven_labelled, vctrs_vctr, double]	Flip a coin. Is it heads or tails?	Min : 1 Mean : 1.3 Max : 2	1 : 83 ( 70.3% ) 2 : 35 ( 29.7% )		118 (96.7%)	4 (3.3%)
2	FFM_12 [haven_labelled, vctrs_vctr, double]	I see Myself as Someone Who..... - Starts quarrels with others	Mean (sd) : 1.9 (1.1) min ≤ med ≤ max: 1 ≤ 2 ≤ 5 IQR (CV) : 1 (0.6)	1 : 48 ( 49.0% ) 2 : 26 ( 26.5% ) 3 : 13 ( 13.3% ) 4 : 7 ( 7.1% ) 5 : 4 ( 4.1% )		98 (80.3%)	24 (19.7%)
3	Potter12 [haven_labelled, vctrs_vctr, double]	You enter an enchanted garden. What would you be most curious to examine first?	Mean (sd) : 2.5 (1) min ≤ med ≤ max: 1 ≤ 3 ≤ 4 IQR (CV) : 1 (0.4)	1 : 23 ( 22.5% ) 2 : 25 ( 24.5% ) 3 : 36 ( 35.3% ) 4 : 18 ( 17.6% )		102 (83.6%)	20 (16.4%)

Generated by summarytools 1.0.1 (R version 4.4.1)
2024-07-03