p4 <- p3 +
geom_segment(aes(x = min(umap$UMAP_1) , y = min(umap$UMAP_2) ,
xend...xend = min(umap$UMAP_1) , yend = min(umap$UMAP_2) + 3),
colour = "black", size=1,arrow...= arrow(length = unit(0.3,"cm"))) +
annotate("text", x = min(umap$UMAP_1) +1.5, y = min(umap$UMAP_...= min(umap$UMAP_1) -1, y = min(umap$UMAP_2) + 1.5, label = "UMAP_2",
color="black",size =...%
group_by(cell_type) %>%
summarise(
UMAP_1 = median(UMAP_1),
UMAP_2 = median(