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)