R: how to use geom_point to add points to side-by-side error bars

Question

library(tidyverse)

library(ggplot2)
x <- c(3.409091, 4.090909, 4.772728, 5.454546)
data <- structure(list(approach1 = c(1.02967633502518, 1.01580726843304, 1.0428