Update concordance analysis

analysis/concordance.Rmd

@@ -123,7 +123,7 @@ saveRDS(
 # Intersection dendrogram
 
 ```{r intersection-dendrogram}
-n <- 5
+n <- 10
 all_concordance_data <- concordance_data %>% 
   rowwise() %>% 
   mutate(mgs = list(get_top_sel_mgs(mgs, n = n)$gene)) %>% 
@@ -160,8 +160,8 @@ dendrogram_plot <- ggplot() +
             aes(x = x, y = y, label = label, hjust = 0), 
             size = 4
   ) +
-  coord_flip(xlim = c(2.5, 41.5)) +
-  scale_y_reverse(limits = c(3.1, -0.5)) + 
+  coord_flip(xlim = c(3, 54)) +
+  scale_y_reverse(limits = c(4, -1.5)) + 
   theme_dendro()
 dendrogram_plot
 
@@ -372,7 +372,7 @@ seurat_wilcox <- readRDS(
 )
 
 scran_t_any <- readRDS(
-  here::here("results", "real_data", "pbmc3k-scran_t_any.rds")
+  here::here("results", "real_data", "pbmc3k-scran_findMarkers_t_any.rds")
 )
 ```