R语言分图散点图

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")#读取数据

数据形式如下：

ggplot(x, aes(x=time,y=SUM,group=1))+geom_point()+facet_wrap(~时间)+labs(title="血糖趋势走向图",x="时间",y="血糖浓度（mmol/L）")+

                                                                                          #可以再加入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

效果图如下：