R小姐:哼,看我不给你点颜色看看
2018-11-24 本文已影响1人
鲨瓜
大家好,我是葛菲喵,今天就由我来给大家点颜色看看吧。
在前几期的文章中,古同已经将生活中常用的图表向我们做了详细介绍,我们已经掌握了这些图表的基本绘制方法。
如果你还不是很熟悉的话,点开往期的文章,温习一下吧!
今天我主要向大家介绍一下图表的颜色搭配。
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