Sys.setenv(JAVA_HOME="E:/java/JAVA(1)") #由于文件是xlsx格式,读取过程需要用到rjava包,所以需要配置java环境
library(rJava)library(xlsx)
library(ggplot2)
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
效果图如下: