diff --git a/analysis/concordance.Rmd b/analysis/concordance.Rmd index e4f106659e4ae25673183749562df9f6147aecbd..9957550ac712016b86c6f03df306cd0620e7327e 100644 --- a/analysis/concordance.Rmd +++ b/analysis/concordance.Rmd @@ -566,7 +566,7 @@ saveRDS( ) ``` -```{r intersection-dendrogram} +```{r intersection-dendrogram-by-dataset} plot_dendrogram_by_dataset <- function(data, data_id) { n <- 10 diff --git a/analysis/predictive-performance.Rmd b/analysis/predictive-performance.Rmd index 56004d289d30b833d3b986d9f1959882510f9106..30a9ac0c21ae8bf57d9839673707c3118686e3c6 100644 --- a/analysis/predictive-performance.Rmd +++ b/analysis/predictive-performance.Rmd @@ -135,7 +135,7 @@ pred_perf_data %>% plot_classifier_metric("median_f1_score") pred_perf_data %>% - filter(data_id == "pbmc3k", classifier == "sum") %>% + filter(data_id == "pbmc3k", classifier == "sum_max") %>% plot_classifier_metric("median_f1_score") + coord_flip(ylim = c(0.0, 1)) diff --git a/analysis/stability-simulations.Rmd b/analysis/stability-simulations.Rmd index dc08c873e5c3fc6e72bf299c6d0c297b7e26dd26..0cd7d93d83467d176ba5891be22df18be37148ff 100644 --- a/analysis/stability-simulations.Rmd +++ b/analysis/stability-simulations.Rmd @@ -20,7 +20,7 @@ source(here::here("code", "analysis-utils.R")) source(here::here("code", "plot-utils.R")) ``` -```{r load-data} +```{r} cluster_path <- here::here("results", "cluster_stability_sim_data") n_cluster_stability_data <- tibble( path = list.files(cluster_path, full.names = TRUE) @@ -98,7 +98,7 @@ n_cluster_stability_plot <- n_cluster_stability_plot_data %>% n_cluster_stability_plot ``` -```{r load-data} +```{r} path <- here::here("results", "cell_stability_sim_data") n_cells_stability_data <- tibble(path = list.files(path, full.names = TRUE)) %>% mutate(file = basename(path)) %>%