ggplot2：添加注解

转自https://www.jianshu.com/p/ee7767e5a6e2
1、添加注解
1.1 添加文本注解
可以使用annotate()函数对图像进行添加注解：

annotate(geom="", x=, y=, label='', family='', fontface='',colour='', size=#)
#geom表示添加注解的类型，可以为'text'文本类型等；其他类型查看?annotate
#x、y是给注解在图中赋予一个坐标
#label为要注释的内容
#family、fontface、colour、size等是分别用来控制注解的字体、样式、颜色、大小等
#annotate()和geom_text()有所不同：前者用来添加单独的文本对象，后者则会根据数据创建许多文本对象

如果坐标轴是连续型的，需要使用特殊值Inf和-Inf来在绘图区域边缘放置文本注解；
也需要用hjust和vjust来调整文本位置
1.2 添加数学表达式
在annotate()函数中，使用parse=T选项，然后在label参数中输入数学表达式即可

2、添加直线
2.1 水平线和垂直线
对于横线或竖线，分别使用geom_hline()和geom_vline函数即可

geom_hline(yintercept=#) #指定y轴截距
geom_vline(xintercept=#) #指定x轴截距
#使用*intercept参数来控制截距项即可绘制
#也可以对函数进行数据映射,即可绘制数据框中的值
#如果坐标轴是离散型，不能以字符串形式指截距，需要使用which(levels(...))来指定
pg <- ggplot(PlantGrowth, aes(x=group, y=weight)) + geom_point()
pg + geom_vline(xintercept = which(levels(PlantGrowth$group)=="ctrl"))

2.2 添加斜线
对于斜线或者是拟合直线,可以使用geom_abline()函数绘制

geom_abline(intercept=#, slope=#)
#intercept表示截距, slope表示斜率

3、添加箭头和线段
添加箭头或线段需要使用annotate('segment')

annotate('segment', x=#, xend=#, y=#, yend=#, arrow=arrow())
#没有添加arrow参数时是绘制线段
#如果添加了arrow参数，需要提前加载library(grid)包才能调用arrow()函数；详情??grid::arrow

4、添加误差线
使用geom_errorbar()函数并将变量映射到ymin和ymax参数即可

ce <- subset(cabbage_exp, subset = Cultivar=='c39')
ggplot(ce, aes(x=Date, y=Weight)) +
  geom_line(aes(group=1)) +
  geom_point(size=4) +
  geom_errorbar(aes(ymin=Weight-se, ymax=Weight+se), width=.2)

5、添加分面注解
5.1 添加独立分面注解
在创建分面后配合数据框使用geom_text()函数
在分面后将因子的标签映射到geom_text()上即可使得每个分面出现对应因子标签的注解

p <- ggplot(mpg, aes(x=displ, y=hwy)) + 
  geom_point() +
  facet_grid(.~drv)

f_labels <- data.frame(drv=c('4','f','r'), label=c('4wd','front','rear'))
p + geom_text(x=6, y=40, aes(label=label), data=f_labels)

5.2 添加统一分面注解
若使用annotate()函数，则将会使所有分面都添加统一的标签

p + annotate('text', x=6, y=42, label='label text')