---

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')