此地古同R语言

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
上一篇 下一篇

猜你喜欢

热点阅读