Can I set mean values to 2 decimal places?
fun_mean <- function(x){return(data.frame(y=mean(x),label=mean(x,na.rm=T)))}
goo = ggplot(dataset1, aes(x=Pleace, y=Scored.Probabilities)) +
geom_boxplot(aes(fill=Pleace)) +
stat_summary(fun.y = mean, geom="point",colour="darkred", size=3) +
stat_summary(fun.data = fun_mean, geom="text", vjust=-0.7)
print (goo)