Вы можете использовать geom_rect
из ggplot2
. Чтобы подготовить свой тиббл к графику, вы можете создать столбец, используемый для установки 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())
![enter image description here](https://i.stack.imgur.com/9smZe.png)
Отвечает ли он на ваш вопрос?