df <- data.frame(id = c("id1", "id1", "id2", "id2"), x1 = c(10, 9, 12, 12 ), x2 = c(16, 17, 15, 19), type = c("A", "B", "A", "B"))

library("ggplot2")

ggplot2::ggplot() +
  geom_segment(data = df, aes(colour = type, x = x1, xend = x2, y = id, yend = id), size = si)

ggplot2::ggplot() +
  geom_segment(data = df, aes(colour = type, x = x1, xend = x2, y = id, yend = id), size = c(10,12,10,12))