plt <- ggplot(plot_df) + # Make custom panel grid geom_hline( aes(yintercept = y), data.frame(y = c(0:3) * 1000), color = "lightgrey" ) + # Add bars to represent the ...