R/FN_colsets.R

In poyuliu/MARco: MARco: Microbiome Analysis RcodeDB

colset.d.2 <- RColorBrewer::brewer.pal(11,"RdBu")[c(10,2)]
colset.d.4 <- c("#227093","#ffa801","#2c2c54","#b33939")
colset.d.5 <- c("#4285F4","#FBBC05","#EA4335","#0b5e12","#2e2128")
colset.d.5 <- c("#4285F4","#FBBC05","#EA4335","#0b5e12","#2e2128")
colset.d.6 <- c("#003C78","#FFBE00","#46961E","#645AA0","#D25500","#474747")
colset.d.12 <- c('#a6cee3','#1f78b4','#b2df8a','#33a02c','#fb9a99','#e31a1c','#fdbf6f','#ff7f00','#cab2d6','#6a3d9a','#ffff99','#b15928')
colset.tax <- c("#CBD588","#87CEEB","#FFE4E1","#5F7FC7","#FFA500","#DA5724","#508578","#CD9BCD","#E6E6FA","#AD6F3B","#673770","#652926","#C84248","#8569D5","#FF6347","#E0FFFF","#FFF8DC","#5E738F","#D1A33D","#8A7C64","#599861","#ADD8E6")


darker.col <- function(colset,degree=30){
    colset.dark <- col2rgb(colset)-degree
    colset.dark <- ifelse(colset.dark<0,0,colset.dark)
    colset.dark <- ifelse(colset.dark>255,255,colset.dark)
    colset.dark <- apply(colset.dark,2,function(x) rgb(x[1],x[2],x[3],maxColorValue = 255))
    return(colset.dark)
}


WhBuRd.g <- colorRampPalette(c("#FFFFFF","#2e96ff", "#ff243f"))
BuWhRd.g <- colorRampPalette(c("#2e96ff","#FFFFFF", "#ff243f"))

#save.image("FN_colsets.RData")