散点图加标签

library(ggrepel)
library(ggplot2)

a<- read.csv('714.csv')
df<-data.frame(a)
head(df)

image.png

p=ggplot(data=a, aes(x=a$WM_CK, y=a$HY_CK,label=a$textlable,color=a$anno))+geom_point(size=1.5)+
  scale_colour_manual(
    values = c("labled" = "darkorange2",
               "unlabled" = "green3"
    ))
#color=a$anno:设置点的颜色。

p+xlim(0.0,+0.8)+ylim(0.5,+2.5)+theme_bw()+ geom_text_repel( min.segment.length = 0,size=3,force = 25,color="black")  
#min.segment.length = 0 :加标签线。
#size=3：设置标签字体大小。
#force = 25：设置标签之间的距离，数值月底距离越远，越不重合。