geom_text()展示不全，很有可能是y轴过于短，导致上下没有间隙
如果修改代码 ，使用ylim()就可以修复
p <- ggplot2(....) +geom_text(...)
p <- p+ ylims(-0.2, 120)
但是如果希望能够限制y轴长度及刻度线展示：
p<- p + ylim(-0.2, 120) + scale_y_continuous(breaks = seq(0, 100, 25))
会使得y轴的坐标轴上限又变成100，图片展示又不全，非常坑
X轴标签为空
axis.title.x = element_blank()
