Commit 205eb4cc authored by Lena Hersemann's avatar Lena Hersemann

changed `right_join()` to `left_join()`

parent 46ce54f4
......@@ -7,7 +7,7 @@ export SCRIPT_DIRECTORY="$(dirname "$0")/"
args = commandArgs(trailingOnly = TRUE)
# LOAD packages --------------------------------------------------------------------------------------------------------
load_pack(devtools)
install.packages("devtools")
devtools::source_url("https://git.mpi-cbg.de/bioinfo/datautils/raw/v1.45/R/core_commons.R")
load_pack(destiny)
load_pack(plotly)
......@@ -59,10 +59,10 @@ select_choices <- infos %>% filter(type == "numeric")
# combine dm data with all metrics
dm %<>% as.data.frame() %>% mutate(cell_id = rownames(.)) %>% select(cell_id, DC1:DC10) %>% right_join(infos, by = "cell_id")
dm %<>% as.data.frame() %>% mutate(cell_id = rownames(.)) %>% select(cell_id, DC1:DC10) %>% left_join(infos, by = "cell_id")
# combine PCA data with all metrics
pca %<>% as.data.frame() %>% mutate(cell_id = rownames(.)) %>% select(cell_id, PC1:PC10) %>% right_join(infos, by = "cell_id")
pca %<>% as.data.frame() %>% mutate(cell_id = rownames(.)) %>% select(cell_id, PC1:PC10) %>% left_join(infos, by = "cell_id")
......
Markdown is supported
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