R语言可视化ggplot2绘制24小时动态血糖图_R语言

sample=read.csv("sample.csv",header = T,stringsAsFactors = F)head(sample)

time=strptime("00:00:00","%H:%M:%S")+300*0:287 #没有填日期的时候，默认日期为今天

#time首先要转换成 POSIXct 格式, 下面的breaks一样，geom_datetime接受的只有POSIXct格式。
sample$time=as.POSIXct(sample$time)
#breaks都是自定义的，选取哪个时间点都可以
ggplot(sample,aes(x=time,y=Glucose,group=1))+geom_line()+scale_x_datetime(
  limits = c(as.POSIXct("2020-03-24 00:00:00 CST"),as.POSIXct("2020-03-24 23:59:59 CST")),
  breaks = c(as.POSIXct("2020-03-24 00:00:00 CST"),as.POSIXct("2020-03-24 04:00:00 CST"),as.POSIXct("2020-03-24 07:00:00 CST"),as.POSIXct("2020-03-24 12:00:00 CST"),as.POSIXct("2020-03-24 18:00:00 CST"),as.POSIXct("2020-03-24 22:00:00 CST")),
  labels = c("00:00","04:00","07:00","12:00","18:00","22:00")
             )+scale_y_continuous(
               breaks = c(6.0,6.1,6.5,7.0,7.5,8.0,8.5),labels = c("6.0","6.1","6.5","7.0","7.5","8.0","8.5")
             )+theme_bw() +
             theme(axis.text = element_text(size=16),axis.title = element_text(size=24)) #轴标签的大小
             + geom_hline(yintercept = c(6.1)) #添加一水平线，6.1是正常血糖高值