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

这篇文章主要为大家介绍了R语言可视化使用ggplot2绘制24小时动态血糖，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪

数据格式

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是正常血糖高值