R 基于因子值（1,0）绘制时间序列数据条形图

我有一个dataframe/tibble，看起来像：

z <- tibble(Time = as.POSIXct(c(
            '2020-01-06 00:22:15',
            '2020-01-06 00:45:16',    
            '2020-01-06 00:46:37',    
            '2020-01-06 01:29:55')), 
            Value = c(0,1,0,1))

---

z您可以从
ggplot2
使用
geom\u rect
。要为打印准备TIBLE，可以创建一列，用于设置与顺序时间相对应的xmax

库（dplyr）
图书馆（GG2）
z%>%突变（xmax=提前期，y=0）%>%
ggplot（aes（xmin=Time，xmax=xmax，ymin=y，ymax=y+1））+
几何校正（aes（填充=as.因子（值）））+
主题（axis.text.y=element_blank（），
legend.title=元素_blank（））


它能回答你的问题吗？
这正是我想要的。非常感谢你！