大家好，我是葛菲喵，今天就由我来给大家点颜色看看吧。
在前几期的文章中，古同已经将生活中常用的图表向我们做了详细介绍，我们已经掌握了这些图表的基本绘制方法。
如果你还不是很熟悉的话，点开往期的文章，温习一下吧！
今天我主要向大家介绍一下图表的颜色搭配。
1
颜色
#颜色包，可根据名称调用
library(RColorBrewer)
#查看所有颜色分类
display.brewer.all()
image
2
进阶
library(ggplot2)
library(tidyverse)
library(gcookbook)
#传递数据，以性别分组
ggplot(heightweight,aes(x=ageYear,y=heightIn,colour=sex)) +
#绘制点图
geom_point() +
#选择颜色板的Set2
scale_colour_brewer(palette = 'Set2') +
#更改x轴标题
xlab(label = 'AgeYear') +
#更改Y轴标题
ylab(label = 'Height') +
#设置背景主题
theme_bw() +
#删除所有网格线
theme(panel.grid = element_blank(),
#设置图表框的颜色
panel.border = element_rect(colour = 'red'),
#设置X、Y轴标题的字体、倾斜
axis.title = element_text(family = 'serif',face = 'italic')) +
#添加一个矩形，并设置好位置
annotate('rect',xmin = 14,xmax = 16,ymin = 50,ymax = 55,
#设置填充色和透明度
fill='red',alpha=.1) +
#添加文本，并设置位置
annotate('text',label='I am a rect',x=17,y=58,
#设置文本字体、倾斜、颜色
family='serif',fontface='italic',colour='#698B69') +
#添加箭头
annotate('segment',arrow=arrow(length = unit(.25,'cm')),
#设置位置和颜色
x=16.5,y=57,xend = 16,yend = 55,colour='#EF3030')
image
3
精通
#提取出Source == 'Berkeley'的所有数据
climate_sub <- filter(climate,Source == 'Berkeley')
#添加一列value并使 Anomaly10y>0 的value值为'pos'
climate_sub$value[climate_sub$Anomaly10y>0] <- 'pos'
#与上述同理
climate_sub$value[climate_sub$Anomaly10y<0] <- 'neg'
#传递数据
ggplot(climate_sub,aes(x=Year,y=Anomaly10y,fill=value)) +
#绘制区域图，设置透明度
geom_area(alpha=.5) +
#设置背景主题
theme_light() +
#删除所有网格线
theme(panel.grid = element_blank(),
#将X轴标签倾斜调整位置
axis.text.x = element_text(angle = 60,hjust = 1),
#设置X、Y轴标题字体、倾斜、颜色
axis.title = element_text(family = 'serif',face = 'italic',colour = 'grey20'))
image
色彩运用的好会使图表增分不少，而想要使用所需的颜色，首先要知道颜色的名字。
后台回复：想你了。获取所有颜色图表。
下期再见。
你可能还想看
等你很久啦，长按加入古同社区
image
网友评论