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