rlistpurrrr-exams
How to extract exercises names from a nest list of exams from r `exams`?
I created 8 exams using the r exams package (each with the corresponding *.rds file). Each exam has the same 8 items (in a different order). All exams' *.rds were merged into a single list. As follows:
exams_list <- list(`00001` = list(exercise1 = list(question = c("\\emph{(2 \\myPoints)}",
"Q1"), questionlist = c("A1", "A2","A3", "A4", "A5"), solution = NULL,
solutionlist = NULL, metainfo = list(file = "stat1_en_descriptive_stat_34",
markup = "latex", type = "schoice", name = "stat1_en_descriptive_stat_34",
title = NULL, section = NULL, version = NULL, solution = c(FALSE,
FALSE, FALSE, TRUE, FALSE), clozetype = NULL, points = 2,
time = NULL, shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_34: b",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 40283L), supplements = structure(character(0), names = character(0), dir = "/tmp/RtmpH83QPG/file808555d833f/exam1/exercise1")),
exercise2 = list(question = c("\\emph{(2 \\myPoints)}", "Q2",
"", "\\hfill\\break", "\\includegraphics[width=0.55\\textwidth,height=\\textheight]{stat1_descriptive_stat_10.png}"
), questionlist = c("A1", "A2","A3", "A4", "A5"
), solution = NULL, solutionlist = NULL, metainfo = list(
file = "stat1_en_descriptive_stat_10", markup = "latex",
type = "schoice", name = "stat1_en_descriptive_stat_10",
title = NULL, section = NULL, version = NULL, solution = c(FALSE,
TRUE, FALSE, FALSE, FALSE), clozetype = NULL, points = 2,
time = NULL, shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_10: b",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 23616L), supplements = structure(c(stat1_descriptive_stat_10.png = "/tmp/RtmpH83QPG/file808555d833f/exam1/exercise2/stat1_descriptive_stat_10.png"), dir = "/tmp/RtmpH83QPG/file808555d833f/exam1/exercise2")),
exercise3 = list(question = c("\\emph{(2 \\myPoints)}", "Q3"
), questionlist = c("A1", "A2","A3", "A4", "A5"),
solution = NULL, solutionlist = NULL, metainfo = list(
file = "stat1_en_descriptive_stat_15", markup = "latex",
type = "schoice", name = "stat1_en_descriptive_stat_15",
title = NULL, section = NULL, version = NULL, solution = c(FALSE,
FALSE, FALSE, TRUE, FALSE), clozetype = NULL, points = 2,
time = NULL, shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_15: d",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 84038L), supplements = structure(character(0), names = character(0), dir = "/tmp/RtmpH83QPG/file808555d833f/exam1/exercise3")),
exercise4 = list(question = c("\\emph{(2 \\myPoints)}", "Q4"), questionlist = c("A1", "A2","A3", "A4", "A5"), solution = NULL, solutionlist = NULL,
metainfo = list(file = "stat1_en_descriptive_stat_29",
markup = "latex", type = "schoice", name = "stat1_en_descriptive_stat_29",
title = NULL, section = NULL, version = NULL, solution = c(FALSE,
FALSE, FALSE, TRUE, FALSE), clozetype = NULL, points = 2,
time = NULL, shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_29: d",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 104204L), supplements = structure(character(0), names = character(0), dir = "/tmp/RtmpH83QPG/file808555d833f/exam1/exercise4")),
exercise5 = list(question = c("\\emph{(2 \\myPoints)}", "Q5"
), questionlist = c("A1", "A2","A3", "A4", "A5"), solution = NULL,
solutionlist = NULL, metainfo = list(file = "stat1_en_prob_8",
markup = "latex", type = "schoice", name = "stat1_en_prob_8",
title = NULL, section = NULL, version = NULL, solution = c(FALSE,
FALSE, TRUE, FALSE, FALSE), clozetype = NULL, points = 2,
time = NULL, shuffle = 5, length = 5L, string = "stat1_en_prob_8: c",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 99878L), supplements = structure(character(0), names = character(0), dir = "/tmp/RtmpH83QPG/file808555d833f/exam1/exercise5"))),
`00002` = list(exercise1 = list(question = c("\\emph{(2 \\myPoints)}",
"Q1"), questionlist = c("A1", "A2","A3", "A4", "A5"
), solution = NULL, solutionlist = NULL, metainfo = list(
file = "stat1_en_descriptive_stat_10", markup = "latex",
type = "schoice", name = "stat1_en_descriptive_stat_10",
title = NULL, section = NULL, version = NULL, solution = c(FALSE,
FALSE, TRUE, FALSE, FALSE), clozetype = NULL, points = 2,
time = NULL, shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_10: c",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 66957L), supplements = structure(c(stat1_descriptive_stat_10.png = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise1/stat1_descriptive_stat_10.png"), dir = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise1")),
exercise2 = list(question = c("\\emph{(2 \\myPoints)}",
"Q2"),
questionlist = c("A1", "A2","A3", "A4", "A5"), solution = NULL,
solutionlist = NULL, metainfo = list(file = "stat1_en_descriptive_stat_34",
markup = "latex", type = "schoice", name = "stat1_en_descriptive_stat_34",
title = NULL, section = NULL, version = NULL,
solution = c(FALSE, FALSE, FALSE, TRUE, FALSE
), clozetype = NULL, points = 2, time = NULL,
shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_34: a",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 24446L), supplements = structure(character(0), names = character(0), dir = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise2")),
exercise3 = list(question = c("\\emph{(2 \\myPoints)}",
"Q3"), questionlist = c("A1", "A2","A3", "A4", "A5"), solution = NULL, solutionlist = NULL,
metainfo = list(file = "stat1_en_descriptive_stat_29",
markup = "latex", type = "schoice", name = "stat1_en_descriptive_stat_29",
title = NULL, section = NULL, version = NULL,
solution = c(FALSE, FALSE, TRUE, FALSE, FALSE
), clozetype = NULL, points = 2, time = NULL,
shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_29: c",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 42982L), supplements = structure(character(0), names = character(0), dir = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise3")),
exercise4 = list(question = c("\\emph{(4 \\myPoints)}",
"Q4"
), questionlist = c("A1", "A2","A3", "A4", "A5"), solution = NULL,
solutionlist = NULL, metainfo = list(file = "stat1_en_prob_8",
markup = "latex", type = "schoice", name = "stat1_en_prob_8",
title = NULL, section = NULL, version = NULL,
solution = c(FALSE, TRUE, FALSE, FALSE, FALSE
), clozetype = NULL, points = 4, time = NULL,
shuffle = 5, length = 5L, string = "stat1_en_prob_8: b",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 80660L), supplements = structure(c(stat1_en_descriptive_stat_20_1.png = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise4/stat1_en_prob_8_1.png",
stat1_en_descriptive_stat_20_2.png = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise4/stat1_en_prob_8_2.png"
), dir = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise4")),
exercise5 = list(question = c("\\emph{(2 \\myPoints)}",
"Q5"
), questionlist = c("A1", "A2","A3", "A4", "A5"
), solution = NULL, solutionlist = NULL, metainfo = list(
file = "stat1_en_descriptive_stat_15", markup = "latex",
type = "schoice", name = "stat1_en_descriptive_stat_15",
title = NULL, section = NULL, version = NULL, solution = c(FALSE,
TRUE, FALSE, FALSE, FALSE), clozetype = NULL, points = 2,
time = NULL, shuffle = 5, length = 5L, string = "stat1_en_descriptive_stat_15: b",
maxchars = NULL, abstention = NULL, stringtype = NULL,
seed = 69316L), supplements = structure(character(0), names = character(0), dir = "/tmp/RtmpH83QPG/file8087677e29b/exam1/exercise5"))))
I want to make a psychometric analysis of each of the items (per exam). As such, I want to extract the names of the exercises per exam, and use them to merge the answers to all the items adequately.
For the first step I need to extract the information from this list as follows:
exams_list$`00001`$exercise1$metainfo$name
exams_list$`00001`$exercise2$metainfo$name
#...
exams_list$`00002`$exercise1$metainfo$name
exams_list$`00002`$exercise2$metainfo$name
I tried to use the purrr package but I was not successful. My goal is to end up with list of vectors; one vector per exame containing the names of the exercises.
Solution
You can use a nested for() loop or nested sapply() for this:
sapply(exams_list, function(x) sapply(x, function(y) y$metainfo$name))
## 00001 00002
## exercise1 "stat1_en_descriptive_stat_34" "stat1_en_descriptive_stat_10"
## exercise2 "stat1_en_descriptive_stat_10" "stat1_en_descriptive_stat_34"
## exercise3 "stat1_en_descriptive_stat_15" "stat1_en_descriptive_stat_29"
## exercise4 "stat1_en_descriptive_stat_29" "stat1_en_prob_8"
## exercise5 "stat1_en_prob_8" "stat1_en_descriptive_stat_15"
The outer loop/apply is over the random replications (here 2), yielding the columns of the output. And the inner loop/apply is over the exercises in each replication (here 5), yielding the rows of the output.
From the matrix above you can obtain the necessary permutation to a desired order of the exercises, e.g., via match().
For the psychometric analysis I typically use the following workflow (using our own psychotools package).
## read nops evaluation output
x <- read.csv2("nops_eval.csv", dec = ".")
## select check columns and set 'not answered' to 'incorrect'
x <- as.matrix(x[, grep("^check\\.", names(x))])
x[is.na(x)] <- 0
## here you would have to apply the permutation and set nice colnames
## declare item-response matrix with itemresp class in psychotools
library("psychotools")
x <- itemresp(x)
plot(x)
## fit basic Rasch model (via CML) and person-item map
m <- raschmodel(x)
piplot(m)
| Stacked bar plot of raw frequencies | Person-item map for Rasch model |
|---|---|
 |
 |
For more refined analyses you might also be interested in these presentations:
- How to put infinity and -infinity on a graph with plot
- Is there a way to make R beep/play a sound at the end of a script?
- Understanding why grepl doesn't appear to be correctly identifying words
- How to modify legend symbol for geom_text using key_glyph?
- In R, how to check if a data.table contains a column and if it doesnt, create it and fill it with NA?
- Adabag package in R
- Group variables into toplevel variables within tbl_summary()
- Scrape Home Run Leaderboard from Baseball Savant using R
- Little hack for ggplot -- an easy way to add a text with the real means and standard deviation when using lines or bars
- How to retrieve Common Table Expressions (CTEs) as a R list?
- R Calculate multiple aggregations on several variables
- How to force shiny to update UI before reactive process finishes
- How to change GitHub Actions OS from macOS to Windows or Ubuntu?
- Assigndifferent paletes to different geoms but same scale
- R: Error "incorrect number of subscripts on matrix" when trying boot with roc
- How do I reference a function parameter inside a data.table with a column of the same name?
- ggraph: adjusting text label position on circular dendrogram
- List all months between two dates in R
- How to get column-wise summary statistics with missing codes?
- How to display only integer values on an axis using ggplot2
- How do I plot two geom_textlines + one geom_bar in a single ggplot?
- Convert Canadian Postal Code to Longitude and Latitude
- Adding percentage instead of observed counts on y axis on R figure
- Compute the Beta function with negative arguments
- Long to wide format based on variable suffixes in tidyverse in R
- ggplot2 0.9.0 automatically dropping unused factor levels from plot legend?
- Testing async ExtendedTask with shinytest2
- Dynamic geom_text() pastes of labels across facets in fact_wrap()
- Check if a directory is empty in R
- Read large number of small files efficiently in R