基于因子值 (1,0) 绘制时间序列数据的条形图

【问题标题】：plot bar chart for time series data based on factor value (1,0)基于因子值 (1,0) 绘制时间序列数据的条形图
【发布时间】：2020-01-31 05:46:47
【问题描述】：

我有一个看起来像这样的数据框/小标题：

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))

我想绘制类似bar chart using time series and value data 请参阅附件，因为我还不能添加内嵌图片。

【问题讨论】：

标签： r timeserieschart

【解决方案1】：

您可以从ggplot2 使用geom_rect。要为绘图准备 tibble，您可以创建一个列，用于设置对应于顺序时间的 xmax。

library(dplyr)
library(ggplot2)
z %>% mutate(xmax = lead(Time), y = 0) %>%
  ggplot(aes(xmin = Time, xmax = xmax, ymin = y, ymax =y+1))+
  geom_rect(aes(fill = as.factor(Value)))+
  theme(axis.text.y = element_blank(),
        legend.title = element_blank())

它回答了你的问题吗？

【讨论】：

这正是我想要的。非常感谢！