tmp <- tibble::tribble(
~x, ~y, ~yse,
19.5, 1.289529412, 0.149148884,
21.5, 1.531205882, 0.138532792,
24.5, 1.347794118, 0.217123776,
27.5, 1.256227109, 0.131585902,
29.5, 0.902255194, 0.126190124
)
library(ggplot2)
gg_scatter <- ggplot(data=tmp,aes(x=x,y=y))+
geom_point()+
geom_line()+
geom_errorbar(aes(ymin=y-yse,ymax=y+yse))
print(gg_scatter)
out: