edm

library(edm)
library(ggplot2)
library(intervalAlgebra)
#> 
#> Attaching package: 'intervalAlgebra'
#> The following object is masked from 'package:stats':
#> 
#>     end

edm <- read_edm(file(system.file("example_events.jsonl", package = "edm")))
#> opening file input connection.
#> 
 Found 6 records...
 Imported 6 records. Simplifying...
#> closing file input connection.

ggplot(data = edm) +
  geom_interval(aes(interval = interval, y = domain)) + 
  scale_interval_continuous() + 
  theme_classic() +
  theme(
    axis.title.x = element_blank()
  )