Color Selection

library(scales)# show_pal()

ggsci 颜色系统

ggsci 颜色系统，可直接用于ggplot2画图系统的scale_color_npg()，scale_fill_npg(),和非ggplot2的颜色调用pal_npg(“nrc”, alpha = 1)(10),ggsci网址

library(ggsci)
library(scales)
mypal <-  pal_npg("nrc", alpha = 0.6)(10)
show_col(mypal)

mypal <-  pal_npg("nrc", alpha = 1)(10)
show_col(mypal)

mypal_aaas <-  pal_aaas("default", alpha =1)(10)
show_col(mypal_aaas)

#mypal_aaas

RColorBrewer 颜色系统

RColorBrewer 颜色系统

library(RColorBrewer)

my_colors <- brewer.pal(n = 9, name = "Set1")
show_col(my_colors)
additional_colors <- c("#800000", "#555555", "#AAAAAA", "#FF69B4", "#D2E11E", "#7FFF00", "#D2691E")
my_colors2 <- adjustcolor(my_colors, alpha.f = 0.6)
full_palette <- c(my_colors, additional_colors,my_colors2)
full_palette <-  adjustcolor(full_palette, alpha.f = 0.6)
show_col(full_palette)
#full_palette
#my_colors

my_colors_Set3 <- brewer.pal(n = 12, name = "Set3")
show_col(my_colors_Set3)

mycolmix <- c(mypal,mypal_aaas,my_colors,my_colors_Set3)
show_col(mycolmix)

两种颜色的配色方案

两种颜色的配色方案

Tcolpal <- c("#F86D61","#78DFFA")
show_col(Tcolpal)

https://colorbrewer2.org/#type=sequential&scheme=BuGn&n=3

ExpCol <-c('#67001f','#b2182b','#d6604d','#f4a582','#fddbc7','#f7f7f7','#d1e5f0','#92c5de','#4393c3','#2166ac','#053061')
show_col(ExpCol)

color_12a <- c('#8dd3c7','#ffffb3','#bebada','#fb8072','#80b1d3','#fdb462','#b3de69','#fccde5','#d9d9d9','#bc80bd','#ccebc5','#ffed6f')
show_col(color_12a)

color_12b <- c('#a6cee3','#1f78b4','#b2df8a','#33a02c','#fb9a99','#e31a1c','#fdbf6f','#ff7f00','#cab2d6','#6a3d9a','#ffff99','#b15928')
show_col(color_12b)

单细胞注释配色

mycolmix24 <- c(
  '#E64B35FF','#DC0000FF','#4DBBD5FF','#00A087FF','#3C5488FF','#F39B7FFF','#8491B4FF','#91D1C2FF',
  '#B09C85FF','#984EA3FF','#FF69B4','#4DAF4AFF','#377EB8FF','#7E6148FF','#FF7F00FF','#631879FF',
  '#FF7F0099','#374E55FF','#DF8F44FF','#00A1D5FF','#B24745FF','#79AF97FF','#6A6599FF','#80796BFF')
show_col(mycolmix24)

#

mycolmix30 <- c( 
  "#FB8072","#DC050C", "#1965B0", "#7BAFDE", "#882E72", 
  "#B17BA6", "#FF7F00", "#FDB462", "#E7298A", "#E78AC3", 
  "#33A02C", "#B2DF8A", "#55A1B1", "#A6761D", "#8DD3C7", 
  "#E6AB02", "#7570B3", "#BEAED4", "#666666", "#999999", 
  "#aa8282", "#d4b7b7", "#8600bf", "#ba5ce3", "#808000", 
  "#aeae5c", "#1e90ff", "#00bfff", "#56ff0d", "#ffff00")
show_col(mycolmix30)

nature_pal <- c(
  "#4E79A7", "#A0CBE8", "#F28E2B", "#FFBE7D", "#59A14F",
  "#8CD17D", "#B6992D", "#F1CE63", "#499894", "#86BCB6",
  "#E15759", "#FF9D9A", "#79706E"
)
show_col(nature_pal)

配色

col_pal1 <- c("#C69D3B","#EFC971","#48A83E","#7ABC68","#34B5B6","#6DC2C2","#BC90BC","#A6AEC1","#CF504F","#0074B3")
show_col(col_pal1)

col_pal2 <- c("#C74546","#D2749B","#F89C54","#F8AD20","#E8C559","#FDDB50","#E3E592","#C6CB48",
              "#93CC82","#79B96C","#9FD9DC","#1FB4B6","#A1D4F0","#68A7D4","#C7C2E1","#9D8EC4")
show_col(col_pal2)

col_pal3 <- c("#EA9C9D","#F8984E","#FBAE6E","#4D97CD","#88C4E8","#C9A1CA","#B67EB7","#BDC3D2")
show_col(col_pal3)

col_pal4 <- c("#984762","#D16948","#7E6E85","#A7A9AC","#C28EA9","#EC83BA","#A35390","#4A72A6",
              "#3E8E93","#5D995D","#48A462","#E1C62F","#E6E61D","#FFB716")
show_col(col_pal4)

col_pal5 <- c("#FF1F1F","#AB2D3E","#DE5A5A","#FF8204","#C6C625","#0E870E","#54EDE5","#71A4E4","#7F7FFF","#B44DE0")
show_col(col_pal5)

col_pal6 <- c("#A3CEE3","#1777B3","#2FA048","#8ED1C7","#81C77F","#BEBAD8","#C8B1D3","#BA7EB6",
              "#D86127","#F47D6E","#F49897","#F7CDE0","#F57F20","#FBBE6D","#B4D66C","#617ABC")
show_col(col_pal6)

col_pal7 <- c("#258B45","#41AB5D","#A2D39A","#005B32","#76C376","#FAAD6C","#F68D40","#F26B4D",
              "#9A1A1E","#EF3E2C","#F069A0","#AD1F80","#DC3894","#F06A21","#CA1F26","#FED1A3",
              "#BDBDDB","#9F9AC7","#6A52A2","#807DBC","#4B54A4","#CA992B","#FEBF0E","#FCDF90",
              "#007BA0","#026EA0","#9ECAE1","#6BADD6","#2472B5","#4492C8")
show_col(col_pal7)