Learning how to create a data codebook

loadpackages

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

Loading required package: tidyverse

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.1     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

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

Loading required package: haven

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

Loading required package: summarytools

Warning in fun(libname, pkgname): couldn't connect to display ":0"

system might not have X11 capabilities; in case of errors when using dfSummary(), set st_options(use.x11 = FALSE)


Attaching package: 'summarytools'

The following object is masked from 'package:tibble':

    view

import data

dataset

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

codeblock

#First select the variables you'd like to summarize 
dataset.spss %>% 
  select(CoinFlip, FFM_1, Potter2) -> newVariable

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

Warning in png(png_loc <- tempfile(fileext = ".png"), width = 150 *
graph.magnif, : unable to open connection to X11 display ''
Warning in png(png_loc <- tempfile(fileext = ".png"), width = 150 *
graph.magnif, : unable to open connection to X11 display ''
Warning in png(png_loc <- tempfile(fileext = ".png"), width = 150 *
graph.magnif, : unable to open connection to X11 display ''

Data Frame Summary

newVariable

Dimensions: 122 x 3
Duplicates: 98

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_1 [haven_labelled, vctrs_vctr, double]

I see Myself as Someone Who..... - Is talkative

Mean (sd) : 3.5 (1.2)
min ≤ med ≤ max:
1 ≤ 4 ≤ 5
IQR (CV) : 1 (0.3)

1	:	7	(	7.1%	)
2	:	17	(	17.2%	)
3	:	14	(	14.1%	)
4	:	40	(	40.4%	)
5	:	21	(	21.2%	)

99 (81.1%)

23 (18.9%)

3

Potter2 [haven_labelled, vctrs_vctr, double]

Forest or River?

Min : 1
Mean : 1.4
Max : 2

1	:	56	(	55.4%	)
2	:	45	(	44.6%	)

101 (82.8%)

21 (17.2%)

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