Load packages

Haven

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

## Loading required package: haven

Tidyverse

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.4.4     ✔ 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

Summarytools

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 <- read_sav ("Harry Potter Data.sav")

Codebook

dataset %>%
  select(CoinFlip, FFM_5, Potter3) -> newVariable

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: 99

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

I see Myself as Someone Who..... - Is original, comes up with new ideas

Mean (sd) : 3.8 (0.8)

min ≤ med ≤ max:

2 ≤ 4 ≤ 5

IQR (CV) : 1 (0.2)

2	:	6	(	6.2%	)
3	:	26	(	26.8%	)
4	:	50	(	51.5%	)
5	:	15	(	15.5%	)

97 (79.5%)

25 (20.5%)

3

Potter3 [haven_labelled, vctrs_vctr, double]

Moon or Stars?

Min : 1

Mean : 1.6

Max : 2

1	:	39	(	38.6%	)
2	:	62	(	61.4%	)

101 (82.8%)

21 (17.2%)

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

Learn R - Create codebook