MaiaPelletier

library(ggplot2)

# create data to control rectangles
data <- data.frame(
  ystart = c(0, 0.25, 0.5, 0.75),
  yend = c(0.25, 0.5, 0.75, 1),
  group = paste0("group", 1:4)
)

# controls the size of the white middle space

MaiaPelletier

library(ggplot2)

ggplot() +
  geom_dotplot(
    data = data.frame(x = rep(1:5, 5)),
    aes(x),
    dotsize = 2, color = "black", fill = "white"
    ) +
  geom_dotplot(
    data = data.frame(x = c(1, rep(2, 2), rep(3, 3), rep(4, 4), rep(5, 5))),

MaiaPelletier

pudding_data <- 
  map_dfr(list.files(pattern = '.xlsx'), read_excel) %>%
  na.omit()
  
knowledge_labels <- c(
 "don't know it",
 "sounds familiar",
 "know it",
 "singing the lyrics"
)