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

效果圖如下：