Delete obselete file

analysis/expert-mgs-direction.Rmd

----
-title: "Expert-annotated marker genes regulation direction"
-output: html_document
----
-
-```{r setup, include=FALSE}
-knitr::opts_chunk$set(echo = TRUE)
-```
-
-```{r}
-ren <- readRDS(here::here("data", "real_data", "ren.rds"))
-stephenson <- readRDS(here::here("data", "real_data", "stephenson.rds"))
-yoshida <- readRDS(here::here("data", "real_data", "yoshida.rds"))
-dominguez_conde <- readRDS(here::here("data", "real_data", "dominguez_conde.rds"))
-
-blood_expert_mgs <- readRDS(here::here(expert_mg_folder, "blood_expert_mgs.rds"))
-```
-
-```{r}
-blood_expert_mgs %>% 
-  filter(cluster %in% intersect(blood_expert_mgs$cluster, unique(ren$label))) %>% 
-  pull(expert_mgs) %>% 
-  unlist() %>% 
-  unique() %>% 
-  purrr::pluck(30) %>% 
-  plotExpression(ren, x = "label", features = .)
-```