R for
Authoring!!

OOH Session #65…
…Quizzing your audience!!!

Open Office Hours
(February 18, 2025)

  • Recap session #64         ↔︎️
  • Focal issue(s):
    • Quizzing your
      audience!!!
  • Shared problem-solving

Recap of Session
#64:

…prettifying parallel analyses

library(psych)
library(tidyverse)

df <- read.csv("merged_data.csv") %>% 
      select(-1, -262)


cor <- cor(df, use = 
             "pairwise.complete.obs")

par <- fa.parallel(cor, 
                  fm = "minres", 
                  fa = "fa", 
                  n.iter =100)

library(ggplot2)
library(reshape2)

pretty <- as.data.frame(cbind(
      par$fa.values,par$fa.sim))

names(pretty)[1] <- "Actual"
names(pretty)[2] <- "Simulated"
pretty$Number <- 1:260

prettylong <- melt(pretty, 
      id.vars = "Number", 
      variable.name="Type", 
      value.name="Eigen")

ggplot(prettylong, aes(x=Number, y=Eigen, shape=Type, color=Type)) + 
  geom_point(aes(size=Eigen)) + geom_line() +
  scale_shape_manual(values=c(16, 17)) + 
  scale_color_manual(values=c('#56B4E9', '#bada55'))

Today…

Quizzing your audience

Session Info (February 18, 2025) Rendering:

R version 4.2.2 (2022-10-31 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19045)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.utf8 
[2] LC_CTYPE=English_United States.utf8   
[3] LC_MONETARY=English_United States.utf8
[4] LC_NUMERIC=C                          
[5] LC_TIME=English_United States.utf8    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] fontawesome_0.5.2

loaded via a namespace (and not attached):
 [1] lubridate_1.9.3   emo_0.0.0.9000    digest_0.6.31     crayon_1.5.2     
 [5] assertthat_0.2.1  lifecycle_1.0.4   jsonlite_1.8.9    magrittr_2.0.3   
 [9] evaluate_1.0.0    stringi_1.7.12    rlang_1.1.3       cli_3.6.0        
[13] rstudioapi_0.15.0 vctrs_0.6.5       generics_0.1.3    rmarkdown_2.28   
[17] tools_4.2.2       stringr_1.5.1     glue_1.6.2        purrr_1.0.1      
[21] xfun_0.42         yaml_2.3.10       fastmap_1.1.1     compiler_4.2.2   
[25] timechange_0.3.0  htmltools_0.5.7   knitr_1.45