stat_summary(geom = "bar",
fun = mean,
fill="#c6c3c3")
image.png
添加误差线...这里误差线采用的是mean+-sem
library(ggplot2)
ebtop<-function(x){
return(mean(x)+sd(x)/sqrt(length(x)))
}...fun.min = ebbottom,
fun.max = ebtop,
width=0.2)
image.png
添加图上的散点...,
fun.max = ebtop,
width=0.2)+
geom_jitter(width = 0.3)
image.png
添加显著性...y_position = c(1.1,1.3,1.5),
#annotations = c(""),
parse = T)
image.png
如何在