geom_tile

Quick Start

library(ggplot2)
df <- data.frame(
  x = rep(c(2, 5, 7, 9, 12), 2),
  y = rep(c(1, 2), each = 5),
  z = factor(rep(1:5, each = 2)),
  w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2)
)

ggplot(df, aes(x, y)) + theme_light()+
  geom_tile(aes(fill = z), colour = "grey50")

library(patchwork)

P1 <- ggplot(df, aes(x, y)) + theme_light()+ ggtitle('P1')+
  geom_tile(aes(fill = z), colour = "grey50")+
  theme(plot.title = element_text(hjust = 0.5))

P2 <- ggplot(df, aes(x, y, width = w)) + theme_light()+ ggtitle('P2')+
  theme(plot.title = element_text(hjust = 0.5))+
  geom_tile(aes(fill = z), colour = "grey50")

P3 <- ggplot(df, aes(x, y))+ geom_bar(aes(fill=z),stat='identity')+ theme_light()+
  ggtitle('bar plot')+ theme(plot.title = element_text(hjust = 0.5))

(P1|P2)/P3

More