有时样本比较多，而我们想在图形中添加标签的时候，容易出现标签遮盖的问题，ggplot2的辅助包ggrepel就是专门处理遮盖问题的。

ggrepel（https://github.com/slowkow/ggrepel）是发表在github上的开源包，使用之前是要先安装：

安装稳定版本：

install.packages("ggrepel")

或者安装最新的开发版本：

install.packages("devtools")

devtools::install_github("slowkow/ggrepel")

睁大你的眼睛，原图来袭：

图片来源于ggrepel在github主页

孙老湿举栗子

library(ggplot2)

library(ggthemr) #载入上期介绍的主题配置包

参数

说明

segment.color

连接点与标签线段的颜色

segment.size

线段的粗细

segment.alpha

线段的透明度

box.padding

文本框周边填充

point.padding

点周围填充

arrow

线段添加箭头

force

强制性将重叠文本散开

max.oter

最大迭代次数

nudge_x,nudge_y

标签开始位置在坐标轴的移动距离

我们使用mtcars数据集作为演示，用head()函数查看前6行，用mpg和wt变量绘图：

首先我们用ggplot的geom_text()函数绘图，效果如下：

ggthemr("flat")

p <- ggplot(mtcars, aes(wt, mpg))

geom_point()

geom_text(aes(label = rownames(mtcars)))

p

我们在用geom_text_repel()函数绘图：

p<- ggplot(mtcars, aes(wt, mpg))

geom_point()

geom_text_repel(aes(label =rownames(mtcars)))

p

p<- ggplot(mtcars, aes(wt, mpg, col = factor(cyl)))

geom_point()

geom_text_repel(aes(label =rownames(mtcars)),

box.padding = unit(0.35,"lines"),

point.padding = unit(0.5,"lines"),

show.legend = F,

size = 3)

p

本系列课程主要侧重于讲解图形原理，以及在R中的实现过程，并没有特意追求美观，故很多图的细节部分修饰有限，大家重点理解实现过程。

有任何问题，欢迎在文末留言讨论。