R：ggplot2（12），第5章 工具箱（4）

《ggplot2：数据分析与图形艺术》

第5章 工具箱

5.10 添加图形注释

添加图形注释有两种基本的方式：逐个添加或批量添加。
逐个添加的方式适合少量的、图形属性多样化的注解。我们只要为所有想要的图形属性设置好对应的值就可以了。如果我们需要添加多个具有类似属性的注解，将它们放到数据框中并一次添加完成也许更有效。
下面的例子中，我们分别用以上两种方式，向经济数据中加入了有关美国总统的信息。
> (unemp <- qplot(date, unemploy, data=economics, geom="line", ylab="No. unemployed(1000s)"))#这里的括号表示既将qplot对象赋值给unemp变量，又将图形展示出来。

绘制的是美国经济情况当中，失业情况随着时间的变化。
> presidential <- presidential[-(1:3),]#筛选在1970年以后执政的美国总统信息
> presidential
#A tibble: 8 x 4
name start end party
<chr> <date> <date> <chr>
1 Nixon 1969-01-20 1974-08-09 Republican
2 Ford 1974-08-09 1977-01-20 Republican
3 Carter 1977-01-20 1981-01-20 Democratic
4 Reagan 1981-01-20 1989-01-20 Republican
5 Bush 1989-01-20 1993-01-20 Republican
6 Clinton 1993-01-20 2001-01-20 Democratic
7 Bush 2001-01-20 2009-01-20 Republican
8 Obama 2009-01-20 2017-01-20 Democratic
> unemp <- qplot(date, unemploy, data=economics, geom="line", ylab="No. unemployed(1000s)")
> unemp + geom_vline(aes(xintercept=start), data=presidential)#之后进行绘图，geom_vline表示向图中加入平行于y轴的竖线，加入的数据是data=pre