解答:使用ggrepel package
library(ggplot2)
library(ggrepel)
data<-read.csv("L1PA2_100_modify.csv")
ggplot(data,aes(x=chromStates, y=GIGGLE_score)) +
geom_violin(aes(fill = chromStates))+
geom_jitter(height = 0, width = 0.1)+
theme_bw()+
geom_text_repel(data=subset(data,Biology=="ESC"), aes(label=Biology))