R 配色

virids调色板

安装和加载，及测试代码

install.packages("viridis")
library(viridis)

library(ggplot2)
ggplot(data.frame(x = rnorm(10000), y = rnorm(10000)), aes(x = x, y = y)) +
  geom_hex() + coord_fixed() +
  scale_fill_viridis() + theme_bw()

热图调色

seed(1234)
matrix <-  matrix(rnorm(100), 20, 10)
matrix[1:10, seq(1, 10, 2)]   <- matrix[1:10, seq(1, 10, 2)] + 3
matrix[11:20, seq(2, 10, 2)] <- matrix[11:20, seq(2, 10, 2)] + 2
matrix[15:20, seq(2, 10, 2)] <- matrix[15:20, seq(2, 10, 2)] + 4
colnames(matrix)  <- paste("Test", 1:10, sep = "")
rownames(matrix) <- paste("Gene", 1:20, sep = "")

# default
pheatmap(matrix)
# viridis
pheatmap(test, color = viridis(7))

viridis提供的配色方案