Sys.setenv(JAVA_HOME="E:/java/JAVA(1)")  #由于文件是xlsx格式，读取过程需要用到rjava包，所以需要配置java环境

x<-read.xlsx("xue.xlsx",1,encoding="UTF-8")#读取数据

数据形式如下：

                                                                                          #可以再加入smooth拟合曲线

geom_hline(aes(yintercept=9), colour="red", linetype="dashed")+geom_hline(aes(yintercept=3), colour="red", linetype="dashed")+

 #添加两条垂直于y轴的红色虚线

 theme(axis.text.x = element_blank(),axis.ticks.x = element_blank())+

#由于横坐标标签问题，在这里去掉x轴的标签和刻度线

scale_y_continuous(breaks=seq(0,28,4))

#设置y轴范围和break

效果图如下：