R语言数据可视化——图形色彩设计（调色盘）

R语言数据可视化——图形色彩设计

图形颜色的选择对我们最终图形呈现的效果影响很大，我们需要用到的图形配色也跟随着图形出现的场合而变化，这篇文章整理了前辈们制作的在ggplot包绘制图形时，常常使用的配色包，供大家在不同场合下选择合适的配色。

主题颜色代码包

在这里，主要介绍4个常用的调色包：RColorBrewer、ggthmr、ggsci、ggthemes，这些包有一些已经生成好的色条或者主题供我们选择使用。

首先，加载好我们需要用到的R包和数据 ：

library(RColorBrewer)
library(scales)
library(readxl)
library(ggplot2)
library(ggthemes)
library(ggsci)
library(ggtech)
library(dplyr)
library(viridis)
library(jtools)
library(wesanderson)
library(gridExtra)
setwd("/Users/apple/Desktop/ggplot 可视化")
movie=read.csv("清洗后数据.csv")
happy=read.csv("2019.csv")
college=read.csv("college.csv")  
a<-filter(movie,release_date == 'SummerVacation')
df1 <- as.data.frame(table(a$content_rating))
b<-filter(movie,release_date == 'Christmas')
df2 <- as.data.frame(table(b$content_rating))
c<-filter(movie,release_date == 'Easter')
df3 <- as.data.frame(table(c$content_rating))
d<-filter(movie,release_date == 'Other')
df4 <- as.data.frame(table(d$content_rating))
DF<-rbind(df1,df2,df3,df4)
DF$release_date<-c('SummerVacation','SummerVacation','SummerVacation','SummerVacation','SummerVacation','Christmas','Christmas','Christmas','Christmas','Christmas','Easter','Easter','Easter','Easter','Easter','Other','Other','Other','Other','Other')

常用的配色包

RColorBrewer

RColorBrewer是较为常用的调整颜色的R包

色块展示

(1)连续型Sequential，生成渐变颜色的色条,可以在热图等图形中使用。
(2)极端型Diverging，生成深色强调两端、浅色表示中部的颜色，可用来标注数据中的离群点。
(3)离散型Qualitative，生成彼此差异明显的颜色，通常用来标记分类数据。

display.brewer.all(type = "all")

截取色条色块

display.brewer.pal(3, "Set1")

图形绘制

stacked=ggplot(movie,aes(imdb_score,fill=release_date))+
  geom_histogram(position = "stack",
                 binwidth =.5,
                 alpha=.9,
                 color="black")+theme_minimal()+
  labs(title = "Stacked Histogram")
pie=ggplot(DF, aes(x="", y=Freq, group=Var1, color=Var1, fill=Var1)) +
  geom_bar(stat="identity",width=1,position = position_fill()) + 
       coord_polar("y", start=0)+ 
  facet_wrap(~ release_date)+     ##通过release_date分面展示
   labs(x = "", y = "&