feat!: set names of plots in fig-yi-deviation-cont-rating #42

egouldo · Sep 2, 2024 · e14400e · e14400e
1 parent 8c3cdbf
commit e14400e
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/supp_mat/SM3_ExplainingDeviation.qmd b/supp_mat/SM3_ExplainingDeviation.qmd
@@ -879,7 +879,10 @@ fig_cap_yi_deviation_cont_rating <-
 #| echo: false
 yi_cont_plots <- 
   yi_cont_plot_data$plot_data %>% 
-  map(.f =  ~ plot_continuous_rating(.x))
+  map(.f =  ~ plot_continuous_rating(.x)) %>% 
+  purrr::set_names({yi_cont_plot_data %>% 
+      unite(plot_name, dataset, estimate_type, sep = " ") %>% 
+      pull(plot_name)})
 
 patchwork::wrap_plots(yi_cont_plots,heights = 4, byrow = TRUE) +
   patchwork::plot_annotation(tag_levels = 'A')