Координаты полосы графика вдоль оси x с помощью ggplot2

С geom_segment:

ggplot(data) + geom_segment(aes(x = start,
                                y = Seq,
                                xend = end,
                                yend = Seq),
                                size = 3)

Раскрашены последовательностями;

Образец кода:

library(ggplot2)

ggplot(df, aes(y = seq, x = start, colour = seq)) +
  geom_segment(aes(yend = seq, xend = end), size = 3) +
  labs(x = "Position", y = "", color = "Sequences")+
  theme_minimal()

Сюжет:

Пример данных:

df<-structure(list(seq = c("S1", "S2", "S3", "S4", "S5", "S6"), start = c(20L, 
25L, 40L, 41L, 20L, 10L), end = c(30L, 35L, 45L, 60L, 60L, 30L
)), class = "data.frame", row.names = c(NA, -6L))