annotating with rectangles

annonate_rect.R

library(dplyr)
library(ggplot2)

dat <- data_frame(xs = runif(10, 2, 15), 
                  ys = runif(10, 2, 15),
                  xe = rnorm(10, 2, 0.4),
                  ye = rnorm(10, 2, 0.4))


dat %>% 
  ggplot(aes(x = xs, y = ys)) +
  geom_point() +
  annotate("polygon", 
           xmin = dat$xs - dat$xe, 
           xmax = dat$xs + dat$xe,
           ymin = dat$ys - dat$ye, 
           ymax = dat$ys + dat$ye)