《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