Data Visualization, R Programming, Data Science, Ggplot2, Tidyverse.
annotate("rect", xmin = -0.5, xmax = as.numeric(dat_plot[1,2]), ymin = -0.5, ymax = as.numeric(dat_plot[1,3]), fill = "steelblue", alpha = 0.1)+ annotate("rect", xmin = as.numeric(dat_plot[1,2]) , xmax = 9.5, ymin = as.numeric(dat_plot[1,3]), ymax = 11, fill = "steelblue", alpha = 0.1)+