Lean R - create Notebook

Load Packages

haven

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

tidyverse

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

summarytools

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

Import Data

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

Codebook

dataset %>%
  select(CoinFlip, FFM_8, Potter7) -> 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: 83

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_8 [haven_labelled, vctrs_vctr, double]	I see Myself as Someone Who..... - Can be somewhat careless	Mean (sd) : 2.6 (1.2) min ≤ med ≤ max: 1 ≤ 2 ≤ 5 IQR (CV) : 2 (0.4)	1 : 19 ( 19.4% ) 2 : 32 ( 32.7% ) 3 : 18 ( 18.4% ) 4 : 26 ( 26.5% ) 5 : 3 ( 3.1% )		98 (80.3%)	24 (19.7%)
3	Potter7 [haven_labelled, vctrs_vctr, double]	Four boxes are placed before you. Which would you try and open?	Mean (sd) : 2.6 (1.2) min ≤ med ≤ max: 1 ≤ 3 ≤ 4 IQR (CV) : 2 (0.5)	1 : 25 ( 24.8% ) 2 : 24 ( 23.8% ) 3 : 21 ( 20.8% ) 4 : 31 ( 30.7% )		101 (82.8%)	21 (17.2%)

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