R添加点的标签

geom_text_repel()和geom_label_repel()
参数：
size = 4, #注释文本的字体大小
box.padding = 0.5, #字到点的距离
point.padding = 0.8, #字到点的距离，点周围的空白宽度
min.segment.length = 0.5, #短线段可以省略
segment.color = “black”, #segment.colour = NA, 不显示线段
nudge_x/y:数据点与相应数据标签的距离
segment.size:指定线段的粗细
arrow：angle: 箭头的尖角的角度；length: 箭头尖角的长度；ends: “last”, “first”, “both”, 指定线段的那端画箭头；type: “open”和”closed” 指定箭头是否为封闭的三角形。
force：重叠文本标签之间的排斥力，默认为 1。
force_pull：文本标签与其对应数据点之间的吸引力，默认为 1。
max.time：尝试解决重叠的最大秒数。 默认为 0.5。
max.iter：尝试解决重叠的最大迭代次数。 默认为 10000。
max.overlaps：排除重叠太多内容的文本标签。 默认为 10。
xlim, ylim：x 和 y 轴的限制。 文本标签将受到这些限制。 默认情况下，文本标签被限制在整个绘图区域。
direction：“both”、“x”或“y”——调整标签位置的方向。

data = read.table("11111 - 副本.xls",header=T)
data1 = read.table("tergetid.xls",header=T)
p <- ggplot(data,aes(x = Rank, y = Score))+geom_point(aes(colour = Color,size = abs(Log2FC)),alpha=0.5)+ scale_color_manual(values=c("Down" = "#80B1D3","UN" = "grey","Up" = "#FB8072"))+theme_bw()+geom_hline(yintercept=0,linetype=2,color="black")
p+ggrepel::geom_text_repel(aes(label=GeneID),data1,size=3,point.padding = 0.5,hjust = 0.5,segment.color="grey",segment.size=0.2,segment.alpha=0.8,nudge_y=1,max.overlaps=20)