🤩 ggsci | 一秒搞定你的顶刊配色（一）

rm(list = ls())
library(tidyverse)
library(ggsci)
library(patchwork)

library(ggstatsplot)
dat <- movies_long

str(dat)

p1 <-  dat %>% 
  ggplot(aes(x = length, y = rating, colour = genre)) +
  geom_point(alpha = 0.7) +
  geom_smooth(method = "loess", alpha = 0.05, size = 1, span = 1) +
  theme_bw()

p2 <-  dat %>% 
  ggplot(aes(x = rating, fill = genre)) +
  geom_histogram(binwidth = 0.8, position = "dodge") +
  theme_bw()

p1 + p2

p1_npg <-  p1 + scale_color_npg()
p2_npg <-  p2 + scale_fill_npg()

p1_npg + p2_npg

p1_aaas <-  p1 + scale_color_aaas()
p2_aaas <-  p2 + scale_fill_aaas()

p1_aaas + p2_aaas

p1_nejm = p1 + scale_color_nejm()
p2_nejm = p2 + scale_fill_nejm()

p1_nejm + p2_nejm

p1_lancet <-  p1 + scale_color_lancet()
p2_lancet <-  p2 + scale_fill_lancet()

p1_lancet + p2_lancet

p1_jama <-  p1 + scale_color_jama()
p2_jama <-  p2 + scale_fill_jama()

p1_jama + p2_jama

p1_jco <-  p1 + scale_color_jco()
p2_jco <-  p2 + scale_fill_jco()

p1_jco + p2_jco

p1_ucscgb <-  p1 + scale_color_ucscgb()
p2_ucscgb <-  p2 + scale_fill_ucscgb()

p1_ucscgb + p2_ucscgb

p1_d3 <-  p1 + scale_color_d3()
p2_d3 <-  p2 + scale_fill_d3()

p1_d3 + p2_d3

p1_locuszoom <-  p1 + scale_color_locuszoom()
p2_locuszoom <-  p2 + scale_fill_locuszoom()

p1_locuszoom + p2_locuszoom

p1_igv <-  p1 + scale_color_igv()
p2_igv <-  p2 + scale_fill_igv()

p1_igv + p2_igv

p1_uchicago <-  p1 + scale_color_uchicago()
p2_uchicago <-  p2 + scale_fill_uchicago()

p1_uchicago + p2_uchicago

p1_startrek <-  p1 + scale_color_startrek()
p2_startrek <-  p2 + scale_fill_startrek()

p1_startrek+ p2_startrek

p1_tron <-  p1 + scale_color_tron()
p2_tron <-  p2 + scale_fill_tron()

p1_tron + p2_tron

p1_futurama <-  p1 + scale_color_futurama()
p2_futurama <-  p2 + scale_fill_futurama()

p1_futurama + p2_futurama

p1_rickandmorty <-  p1 + scale_color_rickandmorty()
p2_rickandmorty <-  p2 + scale_fill_rickandmorty()

p1_rickandmorty + p2_rickandmorty

p1_simpsons <-  p1 + scale_color_simpsons()
p2_simpsons <-  p2 + scale_fill_simpsons()

p1_simpsons + p2_simpsons

library("reshape2")

cor <- cor(unname(cbind(dat[,3:6],dat[,3:6],dat[,3:6],dat[,3:6])))
cor_melt <-  melt(cor)      
           
p3 <-  cor_melt %>%
  ggplot(aes(x = Var1, y = Var2, fill = value)) +
  geom_tile(size = 0.3,na.rm = T) +
  theme_bw() +
  theme(axis.title.x = element_blank(),
        axis.title.y = element_blank())

p3

p3_gsea     <-  p3 + scale_fill_gsea()
p3_gsea_inv <-  p3 + scale_fill_gsea(reverse = TRUE)

p3_gsea + p3_gsea_inv

wrap_plots(
  p3 + scale_fill_material("red"),         p3 + scale_fill_material("pink"),
  p3 + scale_fill_material("purple"),      p3 + scale_fill_material("deep-purple"),
  p3 + scale_fill_material("indigo"),      p3 + scale_fill_material("blue"),
  p3 + scale_fill_material("light-blue"),  p3 + scale_fill_material("cyan"),
  p3 + scale_fill_material("teal"),        p3 + scale_fill_material("green"),
  p3 + scale_fill_material("light-green"), p3 + scale_fill_material("lime"),
  p3 + scale_fill_material("yellow"),      p3 + scale_fill_material("amber"),
  p3 + scale_fill_material("orange"),      p3 + scale_fill_material("deep-orange"),
  p3 + scale_fill_material("brown"),       p3 + scale_fill_material("grey"),
  p3 + scale_fill_material("blue-grey")
)

mypal <-  pal_npg("nrc", alpha = 0.7)(9)
mypal

library("scales")
show_col(mypal)