Commit 854d1781 authored by Jeffrey Pullin's avatar Jeffrey Pullin
Browse files

Update concordance analysis

parent 3061d342
Pipeline #10845 passed with stage
in 21 seconds
......@@ -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")
)
```
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment