R小姐：“看颜时代”如何使图表更好看

2018-11-24 本文已影响1人鲨瓜

@深咖啡勒

你点的歌到了，请注意查收。

他想对图书馆管理员说：每次从图书馆出来听着这首歌，满满的充实。

后台留言即可分享你的故事你的歌

这是一个看脸的时代，也是一个考验我们美学功底的时代。神奇的某音告诉我们：没有不好看的人，只有不会打扮的人。

一直专注于以图形展现数据的我们，一直面临着一个问题——如何让我们绘制的图表更充实、更好看？

本文将从两方面解答这个问题，一是通过注释的方式丰富图表信息，二是通过调整主题、字体、颜色、大小等参数使图表更好看。

注释

library(ggplot2)
library(gcookbook)

#如何添加注释
#传递数据
ggplot(faithful,aes(x=eruptions,y=waiting)) +
  #绘制点图，颜色为白色看不到点
  geom_point(colour='white') +
  #设置注释类型“text”，内容，字体类型，斜体，大小
  annotate('text',label='Group 1',family='serif',fontface='italic',size=5,
           #设置注释的位置和颜色
           x=2,y=85,colour='red') +
  #设置注释类型“text”，内容，字体类型，斜体，大小
  annotate('text',label='Group 2',family='serif',fontface='italic',size=5,
           #设置注释的位置和颜色
           x=3,y=85,colour='red') +
  #书写一个公式
  annotate('text',label="'Function:  '* y==frac(1,sqrt(2*pi)*e^{-x^2/2})",parse=TRUE,size=5,
           #设置公式的位置
           x=4.5,y=85,colour='pink') +
  #添加一条垂直线
  geom_vline(xintercept = 3.5,linetype='dashed',size=1,colour='red') +
  #添加一条水平线
  geom_hline(yintercept = 70,linetype='dashed',size=1,colour='red') +
  #添加一条斜线
  geom_abline(intercept = 40,slope = 30/3.5,size=1,colour='red') +
  #添加一个箭头标志
  annotate('segment',arrow=arrow(length = unit(.3,'cm')),size=1,colour='grey60',
           x=2.5,xend = 2,y=65,yend = 65) +
  #添加一个下划线
  annotate('segment',arrow=arrow(ends = 'both',angle = 90,length = unit(.1,'cm')),
           x=2.5,xend = 2,y=50,yend = 50,size=1,colour='blue') +
  #添加一个矩形阴影
  annotate('rect',xmin = 4.1,xmax = 4.8,ymin = 45,ymax = 65,alpha=.1) +
  #设置背景主题
  theme_bw() +
  #删除网格线
  theme(panel.grid = element_blank())

image

参数调整

#如何更改图表全局外观
#传递数据
ggplot(heightweight,aes(x=ageYear,y=heightIn)) +
  #绘制点图，改变颜色
  geom_point(colour='pink') +
  #添加图题
  ggtitle("Age and Height of Schoolchildren") +
  #设置主题背景
  theme_bw() +
  #删除网格线
  theme(panel.grid = element_blank(),
        #设置外边框颜色
        panel.border = element_rect(colour = 'blue'),
        #设置标签颜色
        axis.text = element_text(colour = 'blue'),
        #设置图题字体类型、斜体、颜色
        plot.title = element_text(family = 'serif',face = 'italic',colour = 'red',size = 16,hjust = .5),
        #设置X、Y轴标题类型、斜体、颜色
        axis.title = element_text(family = 'serif',face = 'italic',colour = 'red',size = 12))

image

如果你善于总结的话，你会发现几个非常常用的参数，颜色、大小、形状等，大部分情况下，我们都是通过调整这几个参数来使我们的图表更好看。

下期再见

你可能还想看

等你很久啦，长按加入古同社区

image

R小姐：“看颜时代”如何使图表更好看

猜你喜欢

热点阅读