Learn R - Create Codebook

Load Packages

haven

# Check if haven is already installed and if it is, load it.
if (!require(haven)){
  # If it's not intalled, then tell R to install it.
  install.packages("haven", dependencies = TRUE)
  # Once it's installed, tell R to load it.
  library(haven)
}

tidyverse

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

summarytools

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

Import Data

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

Codebook

#First select the variables you'd like to summarize
dataset %>%
  select (CoinFlip, FFM_6, Potter4) -> exampleDF

#Then print them with this command
print(dfSummary(exampleDF, graph.magnif = .75), method = 'render')

Data Frame Summary

exampleDF

Dimensions: 122 x 3
Duplicates: 96

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_6 [haven_labelled, vctrs_vctr, double]	I see Myself as Someone Who..... - Is reserved	Mean (sd) : 3.5 (1.1) min ≤ med ≤ max: 1 ≤ 4 ≤ 5 IQR (CV) : 1 (0.3)	1 : 4 ( 4.2% ) 2 : 17 ( 17.7% ) 3 : 19 ( 19.8% ) 4 : 38 ( 39.6% ) 5 : 18 ( 18.8% )		96 (78.7%)	26 (21.3%)
3	Potter4 [haven_labelled, vctrs_vctr, double]	Black or White?	Min : 1 Mean : 1.3 Max : 2	1 : 71 ( 71.0% ) 2 : 29 ( 29.0% )		100 (82.0%)	22 (18.0%)

Generated by summarytools 1.0.1 (R version 4.3.2)
2024-02-18