为什么我的火山图不好看？

library(ggplot2)
library(ggthemes)#载入R包
df <- read.table('all.txt',sep = '\t',header = T)#读入实例数据
df$change = ifelse(df$fdr < 0.05,ifelse(df$logFC > 0 ,'Up','Down'),'Stable')#指定分组
df$v <- -log10(df$fdr)#对fdr值做-log10转换

eg <- df[order(abs(df$logFC)),]#对数据排序
for_label <- eg[88:97,]#选取要标注的top10，也可以自己指定基因的数据
ggplot(data = df,aes(x = logFC,y = v)) + #读入数据，指定xy轴
  geom_point(alpha=1, size=1,aes(color=change)) + #画点
  scale_color_manual(values=c("#4DBBD5", "grey","#E64B35"))+ #设定颜色，顺序为分组首字母的排序
  geom_vline(xintercept=0,lty=4,col="black",lwd=0.8) + #画虚线
  geom_hline(yintercept = -log10(0.05),lty=4,col="black",lwd=0.8) + #画虚线
  theme_few() + #ggtheme的主题之一
  labs(y="-log10(FDR)") + #设置y轴标题
  geom_point(size = 3, shape = 1, data = for_label) + #画标注点的外圈
  ggrepel::geom_label_repel(aes(label = gene),data = for_label,color="black") #画标注点的文本