'ggplot2 geom_linerange remove whitespace between rows

Am attempting to create a plot similar to a strip chart recorder showing outage data. Outage Severity is Major and Minor. Plot has a large amount of vertical white space between the two rows and before and after that I would like to remove to create a compact two-row chart.

dataframe is:

> head(dfsub)
                StartDateTime                 EndDateTime Outage.DUR Outage.Severity
1 2021-07-01T00:23:33.0000000 2021-07-01T00:25:26.0000000  1.8833333           Minor
2 2021-07-01T00:25:26.0000000 2021-07-01T00:31:33.0000000  6.1166667           Major
3 2021-07-01T00:31:33.0000000 2021-07-01T00:40:34.0000000  9.0166667           Major
4 2021-07-01T00:40:34.0000000 2021-07-01T00:42:57.0000000  2.3833333           Minor
5 2021-07-01T00:42:57.0000000 2021-07-01T00:43:49.0000000  0.8666667           Minor
6 2021-07-01T00:43:49.0000000 2021-07-01T00:45:35.0000000  1.7666667           Minor

R Code I am running

ggplot(dfsub) +
  geom_linerange(aes(y = Outage.Severity, 
                     xmin = StartDateTime,
                     xmax = EndDateTime,
                     colour = as.factor(Outage.Severity)
                     ),
                 show.legend = FALSE,
                 size = 50) +
  scale_color_manual(values = c("red", "yellow")) +
  theme(legend.position = "none") +
  theme_test()

generates this plot linerange plot - lots of whitespace



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source