library(ggplot2)

#point-range graph showing mean & 95% confidence interval of RV for each level of EV in dataset named dat1
ggplot(dat1,aes(x=EV, y=RV)) +
theme_classic() +
stat_summary(fun.data=mean_cl_normal, fun.args=list(conf.int=0.95)) +
stat_summary(fun.data=mean_cl_normal, fun.args=list(conf.int=0.95), geom='errorbar', width=0.2) +
geom_point(shape=21, position = position_jitter(width=0.2)) +
xlab(label = 'x-axis label') +
ylab(label = 'y-axis label')

#point-range graph showing mean plus/minus standard deviation of RV for each level of EV in dataset named dat1
ggplot(dat1, aes(x=EV, y=RV)) +
theme_classic() +
stat_summary(fun.data = mean_sdl, fun.args = list(mult = 1)) +
stat_summary(fun.data = mean_sdl, fun.args = list(mult = 1), geom = 'errorbar', width = 0.2) +
geom_point(shape=21, position = position_jitter(width=0.2)) +
xlab(label = 'x-axis label') +
ylab(label = 'y-axis label')