Skip to content
Permalink
Browse files

colors

  • Loading branch information
dviraran committed Jun 14, 2019
1 parent 61e3b6a commit 4bb890a9b89b284c65f89a0c74fb00c6cc2c3367
Showing with 8 additions and 2 deletions.
  1. +8 −2 SingleRbrowseR-standalone/helpers.R
@@ -16,14 +16,21 @@ library(Seurat)

#library(psych)
#library(gplots)
#library(RColorBrewer)
library(RColorBrewer)
#library(shinysky)
#library(rCharts)
#library(gridExtra)
#library(heatmap3)
#library(scatterD3)
#library(magrittr)


qual_col_pals = brewer.pal.info[brewer.pal.info$category == 'qual',]
colors = c('#fe296c', '#487eb6', '#a7ce31', '#f8cc03', '#ff8c02', '#699696', '#b77844', '#83acd0',
'#c2e076', '#fadc5a', '#ff549f', '#ffaf54', '#9ab8b7', '#d2a683', '#3d699b', '#87ac22',
'#cda908', '#d02158', '#d07300', '#567676')


loadRData <- function(fileName){
load(fileName)
get(ls()[ls() != "fileName"])
@@ -40,7 +47,6 @@ singlerDrawBoxPlot = function(sc_data,ref,cell_id,n.show = 50) {

}


singlerDrawBoxPlot2 = function(scores,ref,cell_id,n.show = 50,is.main.types=F) {
Scores=scores[cell_id,]
Scores = sort(Scores,decreasing = T)[1:min(n.show,length(Scores))]

0 comments on commit 4bb890a

Please sign in to comment.
You can’t perform that action at this time.